Dim objOutl
 
Set ws = Wscript.CreateObject("Wscript.Shell") 
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)
 
ddate = Date
dtime = Time
dtime = Left(dtime,5)
StrText = "Sehr geehrte Damen und Herren!"
 
	objMailItem.Display
	strEmailAddr  = "test@bla.org; test2@bla.com"
	objMailItem.Recipients.Add strEmailAddr
	objMailItem.Subject = "TestMail vom " & ddate & " um " & dtime & " Uhr"
	objMailItem.GetInspector
 
	'objMailItem.Attachments.Add "C:\datei.txt"
 
	ws.SendKeys StrText
	wscript.quit
 
Set objMailItem = nothing
Set objOutl = nothing