E-MAIL - VIA OUTLOOK COM ANEXOS.

oOutLook = Createobject("Outlook.Application")

oEmail = oOutLook.CreateItem(0)

oEmail.Display

With oEmail

.Recipients.Add("emailareceber@dominio.com")

.Subject = "Enviando Anexos"

.Importance = 1

.Body = "Corpo do e-mail
com tags HTML"

.Attachments.Add("C:\ARQUIVO.TXT")

.Send

EndWith

Release oEmail

Release oOutLook