E-Mail senden mit AutoIT

[SYY99]

Hi, ich möchte mal testen ob ich es schaffe einen E-Mail sender mit AutoIT zu schreiben. Leider klappt das nicht irgendwie^^

also hier ist mein skript

#include <INet.au3>
Local $s_SmtpServer = " "
Local $s_FromName = @UserName
Local $s_FromAddress = "[email protected]"
Local $s_ToAddress = "[email protected]"
Local $s_Subject = "test"
Dim $as_Body[3]
$as_Body[0] = "drei"
$as_Body[1] = "zeiliger"
$as_Body[2] = "text"
Local $s_helo = ""
Local $s_first = ""
Local $b_trace = ""
$mail = _INETSMTPMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, @CRLF)
If $mail = 1 Then
	MsgBox (0,"Ok","e-maile senden funz.")
Else
	MsgBox (0,"Fehler error code "&@error,"e-mail senden funz nicht!")
EndIf
Exit

wenn ich bei "$s_SmtpServer", "smtp.gmail.com" eingebe, dann bekomm ich @error = 50 und wenn ich dort so eine IP-Adresse eingebe, dann bekomm ich @error = 4

kann mir hierbei einer helfen?

EDIT: achja, und was bringt eigentlich dieses @CRLF? das hab ich einfach so mal mit reingeschrieben weil jemand anderes das auch gemacht hat oO

[N.E.O.]

[SYY99]

Originally Posted by N.E.O.

thx für die antwort aber ich hab das prob schon gegooglet und dieser post hat mir nicht geholfen. ich bekomm @error = 50

[link]

Ich will dir nichts ja unterstellen, aber könnte es sein, dass du in Hacksector, Hackbound, oder wie all diese Skiddy-Foren auch heißen mögen, besser aufgehoben bist?


Btw. Mir gefallen deine Strings:

MsgBox (0,"Ok","e-maile senden funz.")
MsgBox (0,"Fehler error code "&@error,"e-mail senden funz nicht!")

Ein Misch-Masch aus Groß- und Kleinschreibung, dann wieder nicht, dann Deutsch, dann Englisch, hier ein substantiviertes Verb missachtet, da der dritten Person ihr t-Anhängsel geklaut...
So viel Zeit muss doch echt drinnen sein~

[SYY99]

wieso -.- ich will nur was versuchen und hab probleme bekommen wo ich mit google keine lösung gefunden habe ._.

und die msgbox hab ich nur schnell eingebaut um zu wissen was jetzt falsch daran war ._.

[link]

Eine Email zu verschicken ist ziemlich spezifisch, somit bringt es dir keine generelle Übung.
Du hättest von dem Ganzen also nur etwas, wenn du es für irgendetwas gebrauchen kannst, was ich für recht unwahrscheinlich halte, außer es stimmt, was ich im vorherigen Post geschrieben habe.

Falls dem so ist, könntest du dich ja meiner impliziten Bitte fügen ;-)
Wenn nicht, suche dir Beispiele zum Programmieren, bei denen man auch die Grundkenntnisse und elementaren Vorgehensweisen trainiert und manifestiert.


Zu CR LF/0Dh, 0Ah:
Newline - Wikipedia, the free encyclopedia (2s googlen)

[felixli93]

vor ein paar tagen hat FieserHund hier eine andere udf gesendet:
Mit der klappt es bei mir einwandfrei, mit der von autoit mitgelieferten klappts bei mir auch nicht.

hier die udf:

 Spoiler

Func _SmtpMail($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) ;### Debug Console
			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
	
	;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
	If $ssl Then
		$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
	EndIf
	;Update settings
	$objEmail.Configuration.Fields.Update
	; Set Email Importance
	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
	; Sent the Message
	$objEmail.Send
	If @error Then
		SetError(2)
		Return $oMyRet[1]
	EndIf
	$objEmail=""
EndFunc ;==>_INetSmtpMailCom

MfG felixli93