Dim ToAddress
Dim MessageSubject
Dim MessageBody
 
Dim ol, ns, newMail
 
ToAddress = "name@server.com"   ' hier muss der entsprechende Name rein
MessageSubject = "VBS MAPI HowTo"
MessageBody = "*BODY* email via MAPI *BODY*."
 
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon "","",true,false
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf
newMail.Attachments.Add "c:\file.txt"
 
' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
   MsgBox "unknown recipient"
Else
   newMail.Recipients.Add(myRecipient)
   newMail.Send
End If
 
Set ol = Nothing