_INetSmtpMail klappt irgendwie nicht

1. offizieller Beitrag
    [autoit]

    #include <GUIConstants.au3>
    #include <INet.au3>

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $Form1 = GUICreate("E-Mail Bomber", 502, 432, 193, 125)
    GUISetBkColor(0x808080)
    $Label1 = GUICtrlCreateLabel("SMTP Server durch welchen die Email gesendet werden soll. ", 6, 3, 295, 17)
    $Input1 = GUICtrlCreateInput("smtp.ispdomain.com", 318, 3, 181, 21)
    $Label2 = GUICtrlCreateLabel("Der Name welcher als Absender erscheinen soll.", 6, 36, 232, 17)
    $Input2 = GUICtrlCreateInput("r1fLeX", 317, 35, 181, 21)
    $Label3 = GUICtrlCreateLabel("Die Email Adresse welche als Absender erscheinen soll.", 6, 75, 266, 17)
    $Input3 = GUICtrlCreateInput("r1fLeX@isawesome.de", 317, 71, 181, 21)
    $Label4 = GUICtrlCreateLabel("Die Email Adresse an welche die Mail geschickt werden soll. ", 6, 114, 291, 17)
    $Input4 = GUICtrlCreateInput("r1fLeX@gmx.de", 318, 110, 181, 21)
    $Label6 = GUICtrlCreateLabel("Der Betreff der Email.", 6, 153, 104, 17)
    GUICtrlSetBkColor(-1, 0xFF0000)
    $Label5 = GUICtrlCreateLabel("Identifizierung für die SMTP Serververbindung.", 6, 189, 224, 17)
    GUICtrlSetBkColor(-1, 0xFF0000)
    $Label7 = GUICtrlCreateLabel("Red = Optional", 426, 414, 75, 17)
    GUICtrlSetBkColor(-1, 0xFF0000)
    $Input5 = GUICtrlCreateInput("r1fLeX is so fucking awesome *__*", 318, 149, 181, 21)
    $Input6 = GUICtrlCreateInput("Type in if you want", 318, 185, 181, 21)
    $Label8 = GUICtrlCreateLabel("E-Mail Inhalt", 9, 225, 62, 17)
    $Edit1 = GUICtrlCreateEdit("", 9, 249, 481, 130)
    GUICtrlSetData(-1, "")
    GUICtrlSetCursor (-1, 5)
    $Button1 = GUICtrlCreateButton("Credits", 6, 405, 88, 25, 0)
    $Button2 = GUICtrlCreateButton("Send", 114, 393, 100, 37, 0)
    $Button3 = GUICtrlCreateButton("Exit", 231, 404, 88, 25, 0)
    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $Button1
    MsgBox (0,"Credits", "Programm von Benedikt 'r1fLeX' Schubert")
    Case $Button2
    $var1 = GUICtrlRead ( $Input1 )
    $var2 = GUICtrlRead ( $Input2 )
    $var3 = GUICtrlRead ( $Input3 )
    $var4 = GUICtrlRead ( $Input4 )
    $var5 = GUICtrlRead ( $Input5 )
    $var6 = GUICtrlRead ( $Input6 )
    $var7 = GUICtrlRead ( $Edit1 )
    _INetSmtpMail ( $var1, $var2, $var3, $var4, $var5, $var7, $var6 ,"","","1")
    Case $Button3
    Exit
    EndSwitch
    WEnd

    [/autoit]


    Dieser Code klappt nicht. Könnte mir ein Profi kurz unter die Arme greifen?
    Danke im vorraus.

    Spoiler anzeigen
    [autoit]

    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
    $rc = _INetSmtpMailCom($mail_server,$absender_name,$absender_adresse, $empfaenger_adresse, $betreff, $nachrichtentext, $anhang, $cc_emfaenger,$bcc_empfaenger, $mail_benutzername, $mail_passwort)
    If @error then
    msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
    EndIf

    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
    $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.Cc = $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 $ex = 1 To $S_Files2Attach[0]
    $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
    If FileExists($S_Files2Attach[$x]) Then
    $objEmail.AddAttachment ($S_Files2Attach[$x])
    Else
    $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
    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
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    ;Authenticated SMTP
    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
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Sent the Message
    $objEmail.Send
    if @error then
    SetError(2)
    return $oMyRet[1]
    EndIf
    EndFunc;==>_INetSmtpMailCom
    ;
    ;
    ; Com Error Handler
    Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
    EndFunc;==>MyErrFunc

    [/autoit]

    Du musst die hier verwenden dann klappts auch =)
    $mail_sever und den ganzen käse musste da noch ausfüllen
    (bei web.de ist es smtp.web.de)

    Edit: Komm ich jetzt in die Credits? XD