Email per VBS senden
Ich habe folgendes Skript erstellt:
leider bekomme ich folgende Fehlermeldung:
Der smtp-Server ist erreichbar. Kennwort und Benutzer stimmen auch. Was mache ich falsch?
Vielen Dank im vorraus. Gruß Qui-Gon
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test"
objMessage.From = """Meine Adresse"" <meineadresse@web.de>"
objMessage.To = "dieemaildesanderen@gmx.de"
objMessage.TextBody = "test"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.web.de"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meineadresse@web.de"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "meinpasswort!"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
leider bekomme ich folgende Fehlermeldung:
Fehler: Die Nachricht konnte nicht an den SMTP-Server gesendet werden. Der Transportfehlercode lautet 0x80040217. Die Serverantwort lautet not available.
Code: 80040211
Quelle: (null)
Der smtp-Server ist erreichbar. Kennwort und Benutzer stimmen auch. Was mache ich falsch?
Vielen Dank im vorraus. Gruß Qui-Gon
Please also mark the comments that contributed to the solution of the article
Content-Key: 98958
Url: https://administrator.de/contentid/98958
Printed on: April 25, 2024 at 11:04 o'clock
1 Comment