SMTP

ArtOne

Hallo Leute ich habe ein Problem! Seid einer guten Woche funktioniert mein SMTP Script nicht mehr, es tritt immer der gleiche Fehler auf.

$objEmail.Send
$objEmail^ ERROR

Diesen SMTP-Script habe ich immer erfolgreich nutzen können und jetzt funktioniert er nicht mehr, woran kann es liegen?

Hier der Script:

AutoIt: SMTP

$MAILFROM = "Absender"
$MAILTO = "Empfänger"
$MAILFROMNAME = "Absendername"
$MAILBODY = "Der Body der Nachricht"
$MAILSUBJECT = "Der Betreff der Nachricht"
$MAILATTACHMENT = ""
$SPEED = "Normal"
$MAILSERVER = "SMTP.GMAIL.COM"
$SMTPUSER = "user"
$SMTPPASS = "passwort"
$SMTPPORT = "25"
$SMTPUSESSL = 1




_INetSmtpMailCom($MAILSERVER,$MAILFROMNAME,$MAILFROM,$MAILTO,$MAILSUBJECT,$MAILBODY,$MAILATTACHMENT,"","",$SPEED,$SMTPUSER,$SMTPPASS,$SMTPPORT,$SMTPUSESSL)


Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF)
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 0
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort


    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf


    $objEmail.Configuration.Fields.Update


    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update


    $objEmail.Send
    If @error Then
        SetError(2)
    EndIf
    $objEmail=""
EndFunc

Alles anzeigen

Bitte um Hilfe!

Grüße ArtOne

Runa

In deiner Fehlerbeschreibung hast du vergessen den eigentlichen Fehler mit rein zu kopieren.
Ohne den ist es allerdings nahezu unmöglich dir das Problem des Scripts zu nennen.

Hier Möglichkeiten für Fehler, die exakt so angezeigt werden könnten:

Error: Variable must be of type "Object".
Error: $objEmail: undeclared global variable

Und beide Fehler haben vollkommen unterschiedliche Problematiken dahinterstehen. Bei ersterem könnte es hunderte verschiedene Gründe haben, weshalb AutoIt nicht auf das Objekt zugreifen kann. Es könnte nicht erstellt worden sein, es kann wieder zerstört worden sein, es könnte der Zugriff verweigert werden, ... es könnte auch schlicht die Methode nicht für das Objekt bekannt sein. Auch könnte es sein, dass der Methodenaufruf faul ist.

Du merkst:

Deine Fehlermeldung lässt sich ohne die genaue Fehlermeldung, mit dem sich das Problem nachstellen lässt nicht analysieren oder nachvollziehen, daher wird dir auch keiner so wirklich helfen können.

EDIT: Ich bin blind - Script übersehen ...

"C:\Users\SAL\Desktop\Test.au3" (66) : ==> The requested action with this object has failed.:
$objEmail.Send
$objEmail^ ERROR

Oder anders: Die Mail kann nicht versendet werden.

EDIT2:

Das Problem ist gelöst, wenn du die UDF so verwendest, wie sie war, bevor du darin herumgepfuscht hast.
Heißt: Zeile 45 hast du aus der 2 einfach eine 0 gemacht. Damit nutzt dein Script keine Authentifizierungsmethode (nicht im Schema enthalten) und dein Script scheitert daran.

Des Weiteren bitte ich dich solches Verhalten in der Shoutbox in Zukunft zu unterlassen, da ich mich sonst gezwungen sehe, die Lösung weiter hinauszuzögern oder zu verweigern:

ArtOne Vor 30 MinutenBITTE UM HILFE!
ArtOne Vor 30 MinutenBITTE UM HILFE!
ArtOne Vor 29 MinutenSMTP

**water**

Was hast sich seitdem auf Deinem PC geändert? Programme hören nicht plötzlich auf zu funktionieren ...

Runa

@water er hat die UDF kaputt gemacht. Siehe Edit 2 meines Posts

**water**

Ah, UDF-Killer Also klassischer Schuss ins Knie