[Resolvido]Enviar email pela conta não padrão

Oi amigos,

Alguém pode me ajudar a criar um módulo para enviar email pelo access. Porém, tenho duas contas no meu outlook e quero enviar pela conta que não é padrão.
Tenho abaixo o código quando quero enviar pela conta padrão, mas não sei como faço para enviar pela outra conta.


'Envia arquivo via email
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
With myItem
.To= "xxx@zz.net.br;yyyy@zz.net.br"
.Cc = "abc@zz.net.br;def@zz.net.br"
.Subject = "Pedidos dos canais P1 e P8"
.Body = "Oi," & vbCrLf & "Segue o arquivo com o relatório dos pedidos dos canais P1 e P8, faturados após 1º/Julho."
.Save
myAttachments.Add "\\netprd03\suprimentos\Canais_P1eP8.xlsb"
.Send
End With

Tenda dar uma olhada neste link que tem um exemplo pra você ver como foi feito.

http://www.usandoaccess.com.br/dicas/dica8.asp


Abraços,

Oi Mc Feba,
Procurei na net e achei a solução, usarei:

'Envia arquivo via email
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
With myItem
.SendUsingAccount = "contaQqueroUsar@zz.net.br"
.To= "xxx@zz.net.br;yyyy@zz.net.br"
.Cc = "abc@zz.net.br;def@zz.net.br"
.Subject = "Pedidos dos canais P1 e P8"
.Body = "Oi," & vbCrLf & "Segue o arquivo com o relatório dos pedidos."
.Save
myAttachments.Add "\\netprd03\suprimentos\Canais_P1eP8.xlsb"
.Send
End With

Obrigado pela disposição em ajudar.

Fique a disposição amigão.

Pô testei e não funcionou, abri outro fórum...

Amigão, não abra mais de um tópico para discutir o mesmo assunto, pois isso polui o fórum e dificulta as pesquisas de outros membros que tenham a mesma dúvida.

Mesmo assunto, mesmo tópico. Assunto diferente, tópico diferente.

A moderação agradece.

Estou tentando usar...

' Enviar email
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
With myItem
.SendUsingAccount = "ControleeInformacaodeLogistica@zz.net.br"
.To = "abc@zz.net.br"
.Subject = "Arquivo Resumo"
.Body = "Oi," & vbCrLf & "Segue o arquivo detalhado do resumo de operações."
.Save
myAttachments.Add "\\netprd03\suprimentos\Novo_Resumo.xlsb"
.Send
End With

Porém, ele não está enviando pela conta "controle e informação" acaba enviando pelo minha conta padrão (meu email).
Quero saber o que estou fazendo de errado? É assim que se usa o comando SendUsingAccount
Pensei que fosse problema da conta, mas quando crio um novo email pelo outlook, consigo enviar pela conta não padrão.

[]

http://maximoaccess.forumeiros.com/t9717-inserir-campo-de-fromremetente-para-enviar-email-via-codigo-usando-o-outlook

Resolvido via outro post