#DEFINE MAILITEM 0 #DEFINE IMPORTANCELOW 0 #DEFINE IMPORTANCENORMAL 1 #DEFINE IMPORTANCEHIGH 2 oOutLookObject = CreateObject("Outlook.Application") oEmailItem = oOutLookObject.CreateItem(MAILITEM) WITH oEmailItem .Recipients.Add("moe@3stooges.com") && uses the Recipients collection .Subject = "Automation sample" .Importance = IMPORTANCENORMAL .Body = "This is easy!" * Note that the fully qualified path and file is required. .Attachments.Add("c:\mydir\sample.txt") .Send ENDWITHYou can also use Nigel Coates MAPI class as Sergey pointed out.