user = "hackbard"
pass = "celine"

set oe = CreateObject("Outlook.Application")
set mail = oe.CreateItem(oeMailItem)
mail.Recipients.Add "Karl@arsch.net"
mail.Subject = "Send via VBScript"
mail.Body = "Karl Koch ist wieder da! =)"
set attachment = mail.Attachments
attachment.Add = WScript.Fullname, olByValue, 4, "Toll wa?"

set smtp = oe.GetNameSpace("MAPI")
smtp.Logon user, pass
mail.send
smtp.Logoff