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