E-Mail senden mit AutoIT

08/14/2009 19:44 SYY99#1

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

Code:

#include <INet.au3>
Local $s_SmtpServer = " "
Local $s_FromName = @UserName
Local $s_FromAddress = "...@web.de"
Local $s_ToAddress = "...@hotmail.de"
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

08/14/2009 19:45 N.E.O.#2

[Only registered and activated users can see links. Click Here To Register...]

08/14/2009 20:00 SYY99#3

Quote:

Originally Posted by N.E.O.

[Only registered and activated users can see links. Click Here To Register...]

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

08/14/2009 20:50 link#4

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:

Quote:

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~

08/14/2009 21:38 SYY99#5

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 ._.

08/14/2009 22:21 link#6

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)

08/15/2009 11:50 felixli93#7

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

Code:

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