'EMail verschicken an die User
	Const olByValue = 1
	Const olMailItem = 0	   
	Dim objMail
	Dim MailItem
 
	Set objMail = CreateObject("Outlook.Application")
	Set MailItem = objMail.CreateItem(olMailItem)
 
	With MailItem
	    .To = "meineemail"
	    .Subject = "Fehlerprotokoll bei Datenerfassung auf '" & ComputerName & "'"
	    .Body = "Es sind folgende Fehlermeldungen aufgetretten: "& chr(13) & chr( _
  10) & "Test" & chr(13) & chr(10) & "----------------"
	    '.Attachments.Add Fehlerpfad, olByValue, 1
	    '.Send << löst eine Warnung aus, das EMails per Script verschickt werden 
' sollen!
	End With
	'Hier wird der Warnung vorgespielt, das der User die EMail selber senden will
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.AppActivate MailItem
	WshShell.SendKeys("%s") ' "Alt-S" >> Outlook denkt der User sendet die Email

#############
#www.ragesoft.de#
#############