HI habe ein paar Fragen zum Thema _INetSmtpMail
1. Was ist der unterschied zwischen _INetSmtpMAil und _INetMAil?
2.Welches ist einfacher ?
3.Wenn ich will das ,eine E-Mail versendet wird ohne das der Benutzer etwas tut ,nehme ich dann_INetSmtpMail oder _INetMail?
Ja ich weiß das das Thema häufig angesprochen wird ,ich habe aber nirgendwo etwas hilfreiches gefunden.
Wäre cool wenn jemand hilft
1. http://translation.autoit.de/onlinehilfe/li…s/_INetMail.htm und http://translation.autoit.de/onlinehilfe/li…NetSmtpMail.htm. Bitte jeweils die erste Zeile lesen.
2. Ansichtssache. Lies die beiden Hilfeseiten und "BILD dir deine Meinung".
3. Da du ja hier bereits die erste Zeile gelesen hast, sollte sich diese Frage erübrigen. Für Nummer 2 entfällt dabei die Alternative.
Ja ich weiß das das Thema häufig angesprochen wird ,ich habe aber nirgendwo etwas hilfreiches gefunden.
Seltsam, wie/wo sucht ihr eigentlich immer eure Informationen?
Sprenger könnte es sein das du den Falschen Code gepostet hast?^^ Das war der zu meiner Frage 
#include <INet.au3>
[/autoit][autoit][/autoit][autoit]$s_SmtpServer = "mysmtpserver.com.au" ; bei mir smtp.web.de /was kann man da noch hin schreiben für web.de?
$s_FromName = "Mein Name"
$s_FromAddress = "Absender E-Mail Adresse"
$s_ToAddress = "Empfänger E-Mail Adresse"
$s_Subject = "Meine Test UDF"
Dim $as_Body[2]
$as_Body[0] = "Die neue E-Mail UDF wird getestet"
$as_Body[1] = "Zweite Zeile"
$Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Erfolg!", "Die E-Mail wurde versandt")
Else
MsgBox(0, "Fehler!", "Das versenden der E-Mail schlug fehl. Fehlercode: " & $err)
EndIf
Hab das jetzt aus dem Link von i2c kopiert und alle Daten eingegeben
es erscheint die MsgBox "Das versenden der E-Mail schlug fehl. Fehlercode:50"
Was muss ich verändern?
nimm die UDF, die ich als Link gepostet habe.
Damit kannst Du auch Username und Passwort für den SMTP-Server ohne Probleme angeben.
Das ist auch der Grund für Deinen Fehler 50. Keine Authentifizierung am SMTP-Server.
Sprenger könnte es sein das du den Falschen Code gepostet hast?^^ Das war der zu meiner Frage
Stimmt naja da war ich gerade durchn Wind :D. Aber in deinem Thread ist der richtige Code
nimm die UDF, die ich als Link gepostet habe.
Damit kannst Du auch Username und Passwort für den SMTP-Server ohne Probleme angeben.
Das ist auch der Grund für Deinen Fehler 50. Keine Authentifizierung am SMTP-Server.
BIGTHX super funktioniert aber gibt es das auch irgendwie in kleiner ?und kann
man mit AutoIt E-Mails empfangen ?
kleiner als das hier
#Include<file.au3>
;##################################
; Variables
;##################################
$SmtpServer = "MailServer" ; address for the smtp-server to use - REQUIRED
$FromName = "Name" ; name from who the email was sent
$FromAddress = "your@Email.Address.com" ; address from where the mail should come
$ToAddress = "your@Email.Address.com" ; destination address of the email - REQUIRED
$Subject = "Userinfo" ; subject from the email - can be anything you want it to be
$Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = "CCadress1@test.com" ; address for cc - leave blank if not needed
$BccAddress = "BCCadress1@test.com" ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
$Username = "******" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "********" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS
;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
;
; The UDF
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 : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
$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
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 
$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
sicherlich,
kürze einfach alles raus, was Du nicht brauchst wie Attachments, ErrorHandler...
empfangen geht auch in autoit.
Such mal nach POP3.
Problem ist aber, dass der Emailempfang etwas komplizierter im Management ist,
als einfach was wegzuschicken.
