Dim objOutl
 
Set ws = Wscript.CreateObject("Wscript.Shell") 
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)
Set objShell = CreateObject("WScript.Shell")
 
 
ddate = Date
dtime = Time
dtime = Left(dtime,5)
 
StrText = "Sehr geehrte Damen und Herren!"
StrText2 = "Im Anhang finden Sie das TestMail vom " & ddate & " um " & dtime & _
  " Uhr."
StrText3 = "Sehr geehrte Damen und Herren!"
 
	objMailItem.Display
	strEmailAddr  = "bla@bla.com; test@test.com; du@dude.org"
	objMailItem.Recipients.Add strEmailAddr
	objMailItem.Subject = "TestMail vom " & ddate & " um " & dtime & " Uhr"
	objMailItem.GetInspector
 
	'objMailItem.Send
 
	objShell.SendKeys "{TAB}" & "{TAB}" & "{TAB}" & "{TAB}"
 
	ws.SendKeys StrText
	objShell.SendKeys "{ENTER}" & "{ENTER}" 
	ws.SendKeys StrText2
	objShell.SendKeys "{ENTER}"
 
	wscript.quit
 
Set objMailItem = nothing
Set objOutl = nothing