Logo faq-o-matic.net
Logo faq-o-matic.net

Visual Basic Script Mailer

von veröffentlicht am7. Februar 2008, 09:08 Uhr Kurzlink und Zitatlink einblenden
Kategorie Kategorie: Administration, Mail, VBScript   Translate with Google Translate Translate EN   Die angezeigte Seite drucken

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

© 2005-2019 bei faq-o-matic.net. Alle Rechte an den Texten liegen bei deren Autorinnen und Autoren.

Jede Wiederveröffentlichung der Texte oder von Auszügen daraus - egal ob kommerziell oder nicht - bedarf der ausdrücklichen Genehmigung durch die jeweiligen Urheberinnen oder Urheber.

Das Impressum findet sich unter: http://www.faq-o-matic.net/impressum/

Danke, dass du faq-o-matic.net nutzt. Du hast ein einfaches Blog sehr glücklich gemacht!