>#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 >ENDWITH >>