Mailsversand durch File

  Option Explicit 
  Dim objEmail, objFSO 
'Objekt erstellen  
  Set objEmail = CreateObject("CDO.Message")   
'E-Mailadresse des Senders  
  objEmail.Sender = "from@example.com"   
'E-Mailadresse des Empfängers  
  objEmail.To = "to@example.com"   
'Betrefftext  
  objEmail.Subject = "Das ist der Betrefftext"   
'E-Mailinhalt  
  objEmail.TextBody = "Das ist der Inhalt der E-Mail"  
'Dateianhang  
  objEmail.AddAttachment "c:\temp\readme.txt"  
'Nutzen eines externen SMTP-Servers (1 = lokaler SMTP-Server; 2 = externer SMTP-Server)  
  objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
'SMTP Serveradresse (IP oder Name)  
  objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "name_des_mailservers"  
'Port (Achtung bei SSL Verschlüsselung ist der Standardport 465)  
  objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25   
'SSL Verschlüsselung aktivieren oder deaktieren  
  objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False  
'Einstellen des Connectiontimeouts  
  ObjEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60  
'Bei SMTP Authentifizierung folgende Zeilen verwenden (1 = Klartext)  
  objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1   
'Benutzername  
  objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "benutzername_des_mailaccounts"  
'Kennwort  
  objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "kennwort_des_mailaccounts"   

'Felder laden  
  objEmail.Configuration.Fields.Update
'E-Mail versenden  
  objEmail.Send 

  wscript.echo "Fertig."