Visual Basic Script Mailer

Für Administratoren ist es oft nützlich, per EMail benachrichtigt zu werden, wenn ein bestimmtes Ereignis eintritt, z.B.

• Stromausfall
• Server Reboot
• Eine Festplatte ist fast voll
• Ein Virus wurde gefunden

Mit dem untenstehenden Visual-Basic-Script-Programm  kann dies leicht realisiert werden. Man braucht dazu neben den Namen von Absender und Empfänger auch den Namen eines SMTP-Servers, welcher das Mail weiterleiten soll. Je nach Server ist zudem ein Kontoname und Passwort erforderlich.

'----------------------------------------------------- 
'Dieses VB Script Programm schickt ein EMail an den 
'angegebenen Empfänger. 
'Elemente dieses Programmes stammen von hier: 
'http://www.paulsadowski.com/WSH/cdo.htm 
'http://classicasp.aspfaq.com/email/how-do-i-validate-an-e-mail-address.html 
'http://classicasp.aspfaq.com/email/how-do-i-send-e-mail-with-cdo.html 
'----------------------------------------------------- 
Option Explicit
Dim objEMail, body, NL, cdobasic 
Const sender   = "horst@server.de" 
Const receiver = "katja@server.de" 
Const subject  = "VB Script Test Message" 
Const server   = "mail.server.de" 
Const user     = "smtp@server.de" 
Const password = "smtp" 
Const schema   = "http://schemas.microsoft.com/cdo/configuration/"
NL = chr(10) 
body = "Zeile 1" & NL & "Zeile 2" & NL & "Zeile 3"
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.GetFile(FileName) 
FileDate = objFile.DateLastModified
Set objEMail = CreateObject("CDO.Message") 
With objEMail 
.From = sender 
.To = receiver 
.Subject = subject 
.Textbody = body 
.AddAttachment "d:\Testfile.bin" 
With .Configuration.Fields 
.Item (schema & "sendusing") = 2 
.Item (schema & "smtpserver") = server 
.Item (schema & "smtpserverport") = 25 
.Item (schema & "smtpauthenticate") = cdoBasic 
.Item (schema & "sendusername") = user 
.Item (schema & "sendpassword") = password 
End With 
.Configuration.Fields.Update 
.Send 
End With