loOutlook = createobject('outlook.application') loEmailItem = loOutlook.CreateItem(0) loEmailItem.Attachments.Add("c:\autoexec.bat") loEmailItem.To = "bgates@macrohard.com" loEmailItem.Subject = "Here is the file" loEmailItem.Body = "attached is the file" loEmailItem.Send