Email senden

Impressum

Verantwortlicher für die Seite und den Inhalt :

Gabriel Thiel

Trentinostraße 3 / 4 / 1

A - 2441 Mitterndorf an der Fischa

Österreich

Haftungsausschuss & Datenschutz

Impressum

 

In diesem Skript wird von der angegebenen Absenderadresse an die Empfängeradresse eine Mail versendet:

 

Es sollten die Felder: "Absendername", "Zielempfänger" sowie den "PostausgangsServer" durch Email-Adresse bzw. SMTP-Server ersetzt werden.

 

 

Dim ObjEMail

Set ObjEMail = CreateObject("CDO.Message")

ObjEMail.From = "Absenderadresse"
ObjEMail.To = "Zielempfänger"
ObjEMail.Subject = "Test E-Mail"
ObjEMail.Textbody = "Diese Email ist ein Test !"

ObjEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

ObjEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "PostausgangsServer"

ObjEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

ObjEMail.Configuration.Fields.Update
ObjEMail.Send

 

 

Nach richtiger Konfiguration sendet dieses Skript den vordefinierten Text an die angegebene Email-Adresse!

 

Achtung: Der Email-Server darf in DIESEM Fall nicht verschlüsselt sein !

 

 

Quelle: de.wikibooks.org