Microsoft Outlook

[tales]

Boa tarde senhores !!

Eu envio meus emails via API do Outlook segue modelo.

Código: Selecionar todos

oOutLook      := CreateObject("Outlook.Application")
oMail         := oOutLook:CreateItem(0)
oRecip        := oMail:Recipients:Add("tales@plenosystem.com.br")
oAdjunto      := oMail:Attachments:Add("c:\teste\boleto.pdf")
oMail:Subject := "Teste de Email"
oMail:Body    := "Corpo - teste de email"
oMail:Send()

Funciona muito bem, mas por padrão é enviado pelo email principal e me deparei com um Outlook que tem 2 contas cadastradas.

Como faço para selecioanar qual das contas eu quero enviar ? Pois preciso enviar por uma das contas cadastradas que não é a principal,

Tales

[tales]

Boa tarde,

Eis a solução:

Código: Selecionar todos

oOutLook        := CreateObject("Outlook.Application")
oMail           := oOutLook:CreateItem(0)
oRecip          := oMail:Recipients:Add("tales@plenosystem.com.br")
oAdjunto        := oMail:Attachments:Add("c:\teste\boleto.pdf")
oMail:Subject   := "Teste de Email"
oMail:Body      := "Corpo - teste de email"

oMail:sendUsingAccount := oOutLook:session:accounts:item('financeiro@empresa.com.br');

oMail:Send()

Grato;

Tales