E-Mail verschicken mit AutoIt?

So ich hab einen scripe gemacht.
Der scripe soll das machen das die leute die hilfe brauchen einfach ihren text eingeben ihren namen und e-mail dann wird der text auf meine e-mail gesendet und ich kann denen dann helfen.
Der sieht wie folgend aus:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Rawi.RAWI-03E5F68DC8\Desktop\Server Erstellung.kxf
$Hilfe = GUICreate("Hilfe", 203, 290, 309, 206)
$Dein = GUICtrlCreateLabel("Dein", 64, 16, 44, 17)
$Name = GUICtrlCreateLabel("Name", 120, 16, 32, 17)
$Adresse = GUICtrlCreateLabel("Adresse", 112, 80, 47, 17)
$Deine = GUICtrlCreateLabel("Dein", 64, 144, 35, 17)
$Email = GUICtrlCreateLabel("E-mail", 64, 80, 44, 17)
$Nachricht = GUICtrlCreateLabel("Text", 103, 144, 32, 17)
$DeinenNamenHierEingeben = GUICtrlCreateInput("DeinenNamenHierEingeben", 24, 40, 153, 21)
$EmailAdresseHierEingeben = GUICtrlCreateInput("E-mailAdresseHierEingeben", 24, 104, 153, 21)
$DeinTextHierEingeben = GUICtrlCreateInput("DeinTextHierEingeben", 24, 168, 153, 21)
$Senden = GUICtrlCreateButton("Senden", 24, 216, 153, 57, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

EndSwitch
WEnd

Nun soll es aber so sein, dass das was sie rein geschrieben haben an meine e-mail geschickt werden soll.
Wie amch ich das? Kann mir einer das machen?

Edit GtaSpider: Bitte ein Aussagekräftigeren Titel benutzen als "Hilfe! Habe eine Frage"
Habe es mal geändert

kann mir keiner helfen?

Zitat von Oscar

Vor allem:

Wieviel willst Du denn bezahlen?

Wir helfen gern, aber wenn hier einer ankommt mit "Schreibt mir mal mein Script", dann führt das schnell dazu, dass man denjenigen einfach ignoriert.

sry kann nit bezahlen aber wäre dir sehr dankbar da ich das projekt bis morgen fertig haben muss ich ich schon den ganzen tag es irgendwie versuche komm bitte machs doch umsonst.

MfG
Ich

jetzt sieht es so aus:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Rawi.RAWI-03E5F68DC8\Desktop\Server Erstellung.kxf
$Hilfe = GUICreate("Hilfe", 203, 290, 309, 206)
$Dein = GUICtrlCreateLabel("Dein", 64, 16, 44, 17)
$Name = GUICtrlCreateLabel("Name", 120, 16, 32, 17)
$Adresse = GUICtrlCreateLabel("Adresse", 112, 80, 47, 17)
$Deine = GUICtrlCreateLabel("Dein", 64, 144, 35, 17)
$Email = GUICtrlCreateLabel("E-mail", 64, 80, 44, 17)
$Nachricht = GUICtrlCreateLabel("Text", 103, 144, 32, 17)
$DeinenNamenHierEingeben = GUICtrlCreateInput("DeinenNamenHierEingeben", 24, 40, 153, 21)
$EmailAdresseHierEingeben = GUICtrlCreateInput("E-mailAdresseHierEingeben", 24, 104, 153, 21)
$DeinTextHierEingeben = GUICtrlCreateInput("DeinTextHierEingeben", 24, 168, 153, 21)
$Senden = GUICtrlCreateButton("Senden", 24, 216, 153, 57, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$s_SmtpServer = "mail.xxx.de"
$s_FromName = "My Name"
$s_FromAddress = "From eMail Address"
$s_ToAddress = "xxxxx@xxx.de"
$s_Subject = "My Test UDF"
Dim $as_Body[2]
$as_Body[0] = "Testing the new email udf"
$as_Body[1] = "Second Line"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf

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

aber er sendet die nachricht immer noch nicht auf meine e-mail was mache ich falsch?

Mit freundlichen Grüßen

Rawi Kumar

So hab nochmal eine änderung gemacht:
sieht jetzt wie folgend aus:

#include <INet.au3>
#include <GUIConstants.au3>
GUICreate ("E-Mail", 203, 290, 309, 206)
GUISetState (@SW_SHOW)
; Labls
GUICtrlcreatelabel ("Dein Name:",64, 16)
GUICtrlcreatelabel ("E-mail Adresse:",64, 80)
GUICtrlcreatelabel ("Deine Nachricht:",64, 144)
GUICtrlCreateInput("Deinen Namen hier Eingeben", 10, 40, 180, 21)
GUICtrlCreateInput("Deine E-mal Adresse hier Eingeben", 10, 104, 180, 21)
GUICtrlCreateInput("Deine Nachricht hier Eingeben", 10, 168, 180, 21)
; Buttons
$ok = GUICtrlCreateButton ("Senden", 24, 216, 153, 57, 0)
;$close = GUICtrlCreateButton ( "Schließen", 140, 260, 70)
; Eingabe Felder...
$s_FromName = "******"
$s_FromAddress = "********"
$s_ToAddress = "********"
$s_Subject = "betreff"
Dim $as_Body[2]
$as_Body[0] = "Erste Zeile"
$as_Body[1] = "Zweite Zeile"
; ******* Mail
While 1
$msg = GUIGetMsg()
Select
Case $msg = $ok
$s_SmtpServer = "********"
$mail = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $mail = 1 Then
MsgBox(0, "Mail!", "Die E-mail wurde erfolgreich versand an:" & $s_ToAddress)
Else
MsgBox(0, "Error!", "E-mail konnte nicht gesandt werden!" & $err)
EndIf
EndSelect
Wend

Ich habs paar mal ausprobiert jedes mal wenn ich auf Senden gehe kommt ein Fenster. Da steht "E-mail konnte nicht gesandt werden!3"
1.Was mache ich falsch ?
2.Wie kann ich es beheben?
3.Könnte einer von euch mir das mal zeigen?

Mit freundlichen Grüßen

Rawi Kumar