Email VBS

Nur zur dokumentation, falls mal jemand eine Mail aus der von einem Windows-Rechner aus einem Script senden will. Das hier in eine Datei packen, mailserver, from und to einstellen, als .vbs speichern und ausführen.

  1. Set mailing = CreateObject("CDO.Message")
  2.  
  3. ' Configuration
  4. mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  5. mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailserver"
  6. mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  7. mailing.Configuration.Fields.Update
  8.  
  9. ' Actual Content
  10. mailing.From = "sender@example.com"
  11. mailing.To = "test@example.com"
  12. mailing.Subject = "Script-Mail!"
  13. mailing.TextBody = "Hallo Welt"
  14.  
  15. 'Sending
  16. mailing.Send

0 Responses to “Email VBS”


  • No Comments

Leave a Reply