Hallo Zusammen
Haben einen neuen Exchnage Server 2010 bekommen, Port 25 steht offen und ein versuch mit Telnet eine Email zu versenden klappt auch soweit.
Leider will mein Script noch nicht denn Job durchführen daher wäre ich Euch sehr dankbar um Hilfe.
Besten Danke
Gruss
Mauri
Spoiler anzeigen
#include <INet.au3>
$s_SmtpServer = "emailserver052local"
;$s_SmtpServer = "10.1.1.16 25"
$s_helo = "ehlo"
$s_FromName = "TEST EMAIL von Script"
$s_FromAddress = "email@luzern.ch"
$s_ToAddress = "benutzer@luzern.ch"
;$s_FromAddress = "mail from:email@luzern.ch"
;$s_ToAddress = "rcpt to:benutzer@luzern.ch"
$s_data = "data"
$s_Subject = "My Test UDF"
Dim $as_Body[4]
$as_Body[0] = "11111111111"
$as_Body[1] = "22222222222"
$as_Body[2] = "33333333333"
$as_Body[3] = "."
;$Response = _INetSmtpMail ($s_SmtpServer, $s_helo, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_trace)
$Response = _INetSmtpMail ($s_SmtpServer, $s_helo, $s_FromAddress, $s_ToAddress, $s_data, $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
