Send E-mails through Microsoft Outlook

*strProfile = "username" && necessary case.

*strPassword = "password" && necessary case

strRecipient = "rafael@reitech.com.br"

strSubject = "Assunto - testando"

strBody = "Aqui vai a mensagem"

theApp = CreateObject("Outlook.Application")

theNameSpace = theApp.GetNameSpace("MAPI")

*theNameSpace.Logon(strProfile , strPassword) && se necessário

theMailItem = theApp.CreateItem(0)

theMailItem.Recipients.Add( strRecipient )

theMailItem.Subject = strSubject

theMailItem.Body = strBody

theMailItem.Send

theNameSpace.Logoff

 

    Um abraço,
    Rafael Lippert - rafael@reitech.com.br