EMail Programm funktioniert seit Scite4Autoit3 nichtmehr

  • Hi

    ich habe folgendes Programm, wie normal:

    [autoit]

    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") = 2
    $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
    MsgBox(16, "test", "Ihr Nachricht wurde nicht gesendet. Bitte prüfen Sie ihre Internetverbindung oder versuchen Sie es später erneut.")
    EndIf
    $objEmail=""
    EndFunc

    [/autoit]

    und das hat auch immer funktioniert als ich noch normales SciTE hatte.. jetzt das hier:

    Code
    "C:\Users\...\Test.au3"(1865,15) : error: missing separator character before keyword.
        $objEmail.To
    ~~~~~~~~~~~~~~^
    C:\Users\...\Test.au3 - 1 error(s), 0 warning(s)
    !>12:08:37 AU3Check ended. Press F4 to jump to next error.rc:2
    +>12:08:37 AutoIt3Wrapper Finished.
    >Exit code: 2    Time: 0.8801

    Lg Phil-IT

    Einmal editiert, zuletzt von philipp (20. September 2014 um 13:34)

  • da hilft uns die funktion nicht viel. die haben wir ja auch. außer du hast sie verändeert, aber davon steht hier nichts.
    ich habe einige programme mit den ich auch maile und die funktion arbeitet einwandfrei. also benötigen wir schon das schrift wo die mailfunktion genutzt wird. es sollte schon so sein, das wir, die helfenden, möglich nicht viel abtippen müssen oder so.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    OuBVU5ebLhHu5QvlnAyQB4A7SzBrvWulwL7RLl2BdH5tI6sIYspeMKeXMSXl

  • Und jetzt?
    Sollen wir uns Gedanken darüber machen, wieso und warum du deine Scite-Version geändert hast?

    Frag die Leute, die dafür verantwortlich sind!

    ciao
    Andy


    "Schlechtes Benehmen halten die Leute doch nur deswegen für eine Art Vorrecht, weil keiner ihnen aufs Maul haut." Klaus Kinski
    "Hint: Write comments after each line. So you can (better) see what your program does and what it not does. And we can see what you're thinking what your program does and we can point to the missunderstandings." A-Jay

    Wie man Fragen richtig stellt... Tutorial: Wie man Script-Fehler findet und beseitigt...X-Y-Problem

    Einmal editiert, zuletzt von Andy (20. September 2014 um 13:12)

  • und wenn es 50.000 zeilen sind, wie sollen wir helfen, wenn die Funktion okay ist, aber du nichts scripten möchtest?


    Schau mal wie ich das mache mit "_INetMail", soetwas brauchen wir, das wir Dir weiter helfen können. wir müssen es ja auch verstehen und den fehler suchen können.

    Spoiler anzeigen
    [autoit]


    Func mail()
    Local $data_mail = _GUICtrlListView_GetSelectedIndices($hListView)
    Local $Address = _GUICtrlListView_GetItemText($hListView, Abs($data_mail), 14)
    Local $Subject = "AutoIt Hilfe"
    Local $Body = " Hallo Phil-IT," & @CRLF & @CRLF & "Wie Du siehst geht es doch" & @CRLF & @CRLF & "Problem: " & _GUICtrlListView_GetItemText($hListView, Abs($data_mail)) & @CRLF & "und das auch mit Platzhalter bzw. mit Daten aus einem ListView. " & _GUICtrlListView_GetItemText($hListView, Abs($data_mail), 1) & @CRLF & "Also gib uns mehr zum helfen." & _GUICtrlListView_GetItemText($hListView, Abs($data_mail), 7) & @CRLF & @CRLF & "Mit freundlichem Gruß, Alina."
    _INetMail($Address, $Subject, $Body)
    EndFunc ;==>mail

    [/autoit]

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    OuBVU5ebLhHu5QvlnAyQB4A7SzBrvWulwL7RLl2BdH5tI6sIYspeMKeXMSXl

  • ich verstehe nicht auf was du hinaus willst? der fehler muss in dieser funktion liegen? aber ich verstehe leider nicht wie das sein kann und was an dem '$objEmail.To = $s_ToAddress' falsch sein sollte.

  • Du scheinst es immer noch nicht zu kapieren^^

    "Alte_was_auch_immer_Scite_Version" Script läuft.
    "Neue_was_auch_immer_Scite_Version" Script läuft nicht.

    Und DU suchst den "Fehler" in AutoIt?
    Das Script ist sowas von uninteressant, SCITE bzw. eines der beim zusammenstellen dazugehörigen Programme wie Tidy o.a. funken dazwischen!
    Poste die 2-3 Zeilen VOR deiner Fehlermeldung, da sollte dann auch stehen, welches Programm den "Fehler" verursacht...

    Code
    >"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "E:\test.au3" /UserParams    
    +>12:58:29 Starting AutoIt3Wrapper v.2.1.4.0 SciTE v.3.3.7.0 ;  Keyboard:00000407  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64    Environment(Language:0407  Keyboard:00000407  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64)
    >Running AU3Check (3.3.10.2)  from:C:\Program Files (x86)\AutoIt3
    +>12:58:29 AU3Check ended.rc:0
    >Running:(3.3.10.2):C:\Program Files (x86)\AutoIt3\autoit3.exe "E:\test.au3"    
    --> Press Ctrl+Alt+F5 to Restart or Ctrl+Break to Stop
    +>12:58:33 AutoIt3.exe ended.rc:0
    >Exit code: 0    Time: 3.409

    DAS ist die Ausgabe der Console, und nicht nur 2-3 Zeilen davon^^

  • haha ich merks auch ich war gerade im englischen forum unterwegs und hab auch gelesen dass es an dem autoit wrapper oder so liegt.. Hier:

    Code
    +>13:19:17 Starting AutoIt3Wrapper v.14.801.2025.0 SciTE v.3.4.4.0   Keyboard:00000407  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64    Environment(Language:0407)
    +>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\Phil\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\Phil\AppData\Local\AutoIt v3\SciTE
  • Wieder mal ein Grund, niemals eine "neue" Version aufzuspielen.
    Bananaware ftl...

  • Ich denke du hast den Thread im blauen Forum gelesen?

    http://www.autoitscript.com/forum/topic/16…t/#entry1191685