Mails mit VB Script senden

Wer’s braucht: (Parameter anpassen nicht vergessen!)

Set objEmail      = CreateObject(„CDO.Message“)
objEmail.From     = „m_hans@dynasys.int“
objEmail.To       = „interne_administratoren@dynasys.int“
objEmail.Subject  = „Test SMTP Mail“
objEmail.Textbody = „Dies ist eine Testmail an die Administratoren.“
objEmail.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2
objEmail.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/smtpserver“) = „SMTP-Server“
objEmail.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25
‚***
‚*** ist Authentifizierung nötig?
‚*** dann diese Zeilen aktivieren
‚***
‚objEmail.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/sendusername“) = „samaccountname“
‚objEmail.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/sendpassword“) = „Passwort“
‚objEmail.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/smtpauthenticate“)= 1
objEmail.Configuration.Fields.Update
objEmail.Send

Bei Scripten gilt immer: Erst den Quellcode lesen, dann ausprobieren! 

 

Autor: matze

Bei Scripten gilt immer: Erst den Quellcode lesen, dann ausprobieren!