Envio de E-mails via Microsoft Outlook

*strProfile = "nome_de_usuario" && se necessário

*strPassword = "senha" && se necessário

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