Amigos,
Estou tentando criar um código para enviar email via o access por uma conta não padrão cadastrada no meu outlook.
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.
[]s
Estou tentando criar um código para enviar email via o access por uma conta não padrão cadastrada no meu outlook.
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.
[]s