Mail versand unter Windows Server 2003

brainsucker

Erfahrenes Mitglied
Hallo Zusammen, ich habe ein kleines Problem mit meinem Script und hoffe dass mir hier jemand weiterhelfen kann.

Code:
Sub MailAdmin(SysName)		
WScript.Echo "Funktion SendMail wurde aufgerufen"
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.LogEvent 1, _
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Neuer Betreff"
objMessage.Sender = "absender@send.de"
objMessage.To = "ziel@empfang.de"
objMessage.TextBody = "Hier kommt text"

smtp = "dnsnamedesservers"
    objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
    objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update

objMessage.Send
WScript.Echo "Gesendet"


End Sub


Ich habe das ganz unter Win XP auf meinem System geprüft. Es hat auch funktioniert. Allerdings habe ich auch ein fertig eingerichtets Outlook. Das ganze soll jetzt aber auf einen Server 2003 portiert werden der über kein Outklook verfügt. Die Funktion wird zwar aufegrufen, die Email aber nicht gesendet. SMTP habe ich entsprechend angepasst. Muss ich denn ein Outlook auf dem Server einrichten? Dachte iegentlich dass wenn ich nur Mails senden will ich auch nur die Daten des SMPT brauche...
Wo kann noch das Problem liegen? Firewall? Auffällig ist allerdings dass er die Funktion nicht fertig ausführt (da sonst ja eine Meldung käme - tut sie aber nicht )

Über Hinweise wäre ich dankbar
 

Neue Beiträge

Zurück