[Resolvido]Inserir Campo De: / From:(remetente) para enviar email via código usando o outlook

Pessoal,

Segue o meu código para enviar email via código. Está funcionando corretamente. Porém não estou conseguindo preencher o campo De: (remetente).

Preciso que assim como eu defino o valor do campo Para: usando o código "objmail.to" eu consiga definir um valor para o campo De: (remetente). Pois eu tenho mais de uma conta no meu outlook. Mas quero fazer isso sem precisar ler quais as contas estão cadastradas. Simplesmente quero que ao abrir a mensagem o campo De: já venha preenchido.

Como posso fazer isso?

Conto mais uma vez com a ajuda de vocês.

Obrigado.

Cole o código num .txt e anexe aqui.

Vejo o campo objMail.To = Gestores.Fields("Gestor").Value 'destinatário

Mas o From, não vejo no código.

JP,

eu removi alinha contendo o "objmail.From" do código porque está gerando um erro:

"Erro em tempo de execução: 438. O objeto nao aceita esta propriedade ou método."

Acredito que deva ser um outro comando.

Luciano

Oi Amigos,

Também estou com uma necessidade similar.
Estou conseguindo enviar, mas o outlook continua enviando da minha conta padrão.

peço que vc me ajudem a identificar o que posso estar errando.
Se crio um email de teste manualmente no outlook consigo enviar pela contão secundária, mas via Vba ele envia da conta principal.


' Enviar email

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments

With myItem
.SendUsingAccount = "contasecundaria@zzz.net.br"
.To = "fulano@zz.net.br"
.Subject = "Arquivo Resumo de operações"
.Body = "Oi," & vbCrLf & "Segue o arquivo detalhado do resumo de operações."
.Save
myAttachments.Add "\\netprd03\suprimentos\Novo_Resumo.xlsb"
.send
End With


[]s

teste por favor;

André,

obrigado pelo retorno.

Desta forma já havia testado e não funciona também. O campo "De" fica em branco.

JP,

obrigado também pelo retorno.

Testei seu código mas está dando um erro em tempo de execução na linha "Set olAccounts = OlApp.Application.Session.Accounts".

O erro diz: Erro em tempo de execução 424. O objeto é obrigatório.

Alterei a linha para "Set olAccounts = OlApp.Application.Session.Accounts(strFrom)" mas deu a mesma mensagem.

Aguardo novamente seu retorno. Obrigado.

Falha minha, teste;

Set olAccounts = objOut.Application.Session.Accounts

Oi Amigos,
Vc podem me ajudar no meu caso.
Abri o código do amigo, mas como sou novato e o seu código é muito mais complexo que o meu, fico perdido.
Estou usando o código abaixo, mas não está enviando pela conta secundária, ele envia pela padrão.
Podem me ajudar acho que não devo estar escrevendo alguma linha ou propriedade do código.



' Enviar email

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments

With myItem
.SendUsingAccount = "contasecundaria@zzz.net.br"
.To = "fulano@zz.net.br"
.Subject = "Arquivo Resumo de operações"
.Body = "Oi," & vbCrLf & "Segue o arquivo detalhado do resumo de operações."
.Save
myAttachments.Add "\\netprd03\suprimentos\Novo_Resumo.xlsb"
.send
End With

André,

Já lhe forneci uma explicação, lá pelo meu site. Volto a repetir aqui o que te informei:

vc deve usar o nome da conta , configurado no seu Outlook e não o email da conta que deseja enviar.

Supondo que o nome da conta para o seu email "PP-ControleeInformacao@zz.net.br" seja "Controle"

.SendUsingAccount = objOut.Session.Accounts("Controle")

Obs. O Nome da conta é Case Sensiteve (Controle diferente de controle).

Obs2:

Abra o Outlook
Clique em Novo > No formulário não tem um botão conta ? Ao clicar neste botão, quais os nomes das contas que aparece ? O nome que vc esta digitando esta nesta lista ?

Ao testar com a minha dica , qual é o erro que acontece ?

No aguardo!

Luciano,

se não der certo a opção do nosso amigo João Paulo, poderia a principio (enquanto não achamos uma solução), inserir manualmente a opção DE(FROM). Par isso,altere o comando .send para o comando .display

Sucesso!

Aproveite e veja o código que disponibilizei, é o simples;

http://maximoaccess.forumeiros.com/t9733-envia-email-outlook-de-uma-conta-secundaria

Oi mestre Avelino,

Não havia consultado o seu site....
Mas me dá uma ajuda...
No meu código não tem "objOut", quando coloco este dá o erro "o objeto é obrigatório".
Como sou novato fui tentando...
Coloquei "myOlApp.Session.Accounts...", deu erro "Número de argumentos incorreto ou atribuição de propriedade inválida"
Tentei "olMailItem.Session.Accounts...", deu erro "O objeto é obrigatório"
Tentei "myItem.Session.Accounts...", deu erro "Número de argumentos incorreto ou atribuição de propriedade inválida"
Todos os erros na linha do SendUsingAccount
Tentei várias formas, mas não achei o erro, verifiquei o nome da conta e está correto.


O código que estou usando é:
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments

With myItem
.SendUsingAccount = myOlApp.Session.Accounts("PP-ControleeInformacao@zzz.net.br")
.To = "andre@zzz.net.br"
.Subject = "Arquivo Resumo de operações"
.Body = "Oi," & vbCrLf & "Segue o arquivo detalhado do resumo de operações."
.Save
End with

Andre,

Responda:

Sua versão do Outlook, qual é ?

O nome da conta que vc tem registrado no outlook é o mesmo nome do seu email(PP-ControleeInformacao@zzz.net.br) ?


No aguardo

Versão é Professional Plus 2010

A conta realmente é esta....

Mudando o .Send por .Display quando abre eu mudo na mão, mas este DB gera mais de 50 emails, ficar mudando um a um é complicado.

[]s

Baixe o exemplo do meu artigo e teste. Me diga se funciona

http://www.usandoaccess.com.br/dicas/dica8.asp?id=1#inicio

No aguardo

Mestre Avelino,

Copiei o seu código, e deu erro logo no início - Erro de compilação: O tipo definido pelo usuário não foi definido"

Segue o código.

Private Sub btEnviar_Click()
'----------------------------------------------
'Criando as variáveis que irão assumir as
'propriedades e métodos das classes do outlook
'----------------------------------------------
Dim objOut As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objContas As Outlook.Accounts

'---------------------------------------------
'Carregando a coleção do Outlook
'Similar ao abrir o Outlook
'---------------------------------------------
Set objOut = New Outlook.Application
'------------------------------------------------------------
'Abrindo o formulário de email para inserir os itens de email
'Similar ao clicar no botão NOVO do Outlook
'------------------------------------------------------------
Set objMail = objOut.CreateItem(olMailItem)
'-----------------------------------------------------------------------
'Passando os valores do formulário exemplo para os itens de email
'-----------------------------------------------------------------------
objMail.To = "andre@zzz.net.br" 'destinatário

'-----------------------------------------
'Seleciona a conta que enviará a mensagem
'-----------------------------------------
.SendUsingAccount = objOut.Session.Accounts("PP-ControleeInformacao@zzz.net.br")
'--------------------------------------------
'Usando o método enviar, da classe de itens
'--------------------------------------------
objMail.send

End Sub

Andre,

Vc testou o meu exemplo, sem realisar alterações ? Simplesmente testou ? Teve resultado esperado ? Fiquei sem saber. A razão disso é para saber se a escolha da conta pela combobox surtirá o efeito esperado. Simplesmente teste o meu exemplo , escolhendo a conta e me diga se funcionou. Só isso.


Ao copiar o código, vc ativou a referência do Outlook, coforme explicado no tutorial ?

Segue a solução dada pelo nosso colaborador Avelino Sampaio:

.SentOnBehalfOfName = “Escreva aqui o email”


Funcionou corretamente.

Obrigado a todos pela atenção.

Luciano eu fiquei sem saber se a minha ajuda tambem funcionou ou não.

Aguardo

Olá amigo João Paulo

Eu entendi que o Luciano não tem contas locais no Outlook. O Outlook entrega ao servidor Micrisoft Exchange, que se encarrega de transmitir. Acho ele precisava usar o campo DE(FROM), para informar o Exchange a conta a ser usada.

Pergunta: Vc testou, com .Display, se o campo DE(FROM) estava sendo preenchido ? Gostaria de saber, para ter uma alternativa de programação.

No aguardo

oi Avelino,

Já havia postado o resultado do meu teste, segue....


Mestre Avelino,

Copiei o seu código, e deu erro logo no início - Erro de compilação: O tipo definido pelo usuário não foi definido"

Segue o código.

Private Sub btEnviar_Click()
'----------------------------------------------
'Criando as variáveis que irão assumir as
'propriedades e métodos das classes do outlook
'----------------------------------------------
Dim objOut As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objContas As Outlook.Accounts

'---------------------------------------------
'Carregando a coleção do Outlook
'Similar ao abrir o Outlook
'---------------------------------------------
Set objOut = New Outlook.Application
'------------------------------------------------------------
'Abrindo o formulário de email para inserir os itens de email
'Similar ao clicar no botão NOVO do Outlook
'------------------------------------------------------------
Set objMail = objOut.CreateItem(olMailItem)
'-----------------------------------------------------------------------
'Passando os valores do formulário exemplo para os itens de email
'-----------------------------------------------------------------------
objMail.To = "andre@zzz.net.br" 'destinatário

'-----------------------------------------
'Seleciona a conta que enviará a mensagem
'-----------------------------------------
.SendUsingAccount = objOut.Session.Accounts("PP-ControleeInformacao@zzz.net.br")
'--------------------------------------------
'Usando o método enviar, da classe de itens
'--------------------------------------------
objMail.send

End Sub

Oi Avelino,

Retificando minha postagem.

Havia habilitado a referência errada...

Agora o erro acontece na linha do sendUsing, mas o depurar marca a Private Sub e dá o erro "Erro de compilação: Referência inválida ou não qualificada".

Acho que evoluímos....rs

Caro Andre,

não está havendo uma boa comunicação entre nós (risos). Eu te pedi para baixar o exemplo do artigo e simplesmente testar uma transmissão de email. Eu não te pendi para vc copiar código algum.

Assim fica difícil te ajudar.

desculpe aí mestre....
Baixei...
A combobox das contas fica em branco, não apresenta nenhuma opção.

Avelino, respondendo a sua pergunta, testei sim e funciona pleno.

JoãoPaulo,

obrigado pelo feedback

Andre,

Hoje testei aqui num Outlook 2010 e funcionou direitinho, apresentando as contas.

Pergunta: Essa sua conta é pop3, imap ou hhtp ?

Teste, no seu código original, a propriedade SentOnBehalfOfName

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments

With myItem
.SentOnBehalfOfName = "contasecundaria@zzz.net.br"
.To = "fulano@zz.net.br"
.Subject = "Arquivo Resumo de operações"
.Body = "Oi," & vbCrLf & "Segue o arquivo detalhado do resumo de operações."
.Save
myAttachments.Add "\\netprd03\suprimentos\Novo_Resumo.xlsb"
.send
End With


No aguardo

Avelino,

Maravilha, fincuonou !!!!
SHOW!

Muitíssimo obrigado.

[]s
Sucesso.

Cara, boa tarde. Gostaria de saber como posso resolver essa questão abaixo.

Eu tenho um formulário que lista através de uma consulta qts projetos eu inseri "hoje" no sistema, e gostaria de saber como faço pra colocar esses valores no corpo do e-mail, usando o Me.Campo

Ver imagem e código VBA que utilizei e não deu certo.

http://www.4shared.com/photo/7HMg94ez/Cdigo_SendMail.html

ola a todos

Estava com esse problema no trabalho.

Mas a unica que deu certo foi a solução de Avelino.

Obrigado, vcs quebraram um galhão aqui no trabalho. A menssagem tem quer ser enviado não nome de quem estar logado no outlook, e sim no mail do ambiente.

Bom dia, ja fiz todos os testes que indicaram e na minha planilha continua usando a conta principal.
Já usei o ".SendUsingAccount" e ".SentOnBehalfOfName" e mesmo assim nao consigo mandar da minha segunda conta.
Tenho duas contas cadastradas e as duas sao Exchange, o que devo fazer para resolver: segue meu codigo.

Código:

Sub ArquivoAnexo()

'No exemplo abaixo, ele efetua o envio da ultima versão salva da planilha

Dim OutApp As Object

    Dim OutMail As Object

Call Módulo11.deletarLinhasVazias

ActiveWorkbook.Save

'Nesse trecho de código, instanciamos um objeto referente ao outlook, como pré-requisito, devemos ter uma conta valida associada para que o exemplo funcione. Possivelmente temos de ter tambem acesso de administrador, para executar a chamada para outra aplicação
Nome = NomeArquivo

Set OutApp = CreateObject("Outlook.Application")

    Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

    With OutMail
   
      'Campo de destinatario
 .To = ""

      'Com cópia
 .CC = ""

      'Cópia oculta
 .BCC = ""


    If Range("Q3") = "" Then
       
        .Subject = Nome 'ASSUNTO

        .Body = "Segue em anexo o " & Nome & "." + vbCrLf + "ATT. Dinâmica Placas"  'MENSAGEM
   
    Else
    Motivo = InputBox("Digite o motivo da alteração", "Motivo alteração")
   
        .Subject = Nome & "  " & "Alterado" 'ASSUNTO

        .Body = "Segue em anexo o " & Nome & "." + vbCrLf + vbCrLf + Motivo + vbCrLf + vbCrLf + "ATT. Dinâmica Placas"  'MENSAGEM
   
    End If
   
            'Campo de Remetente
    If Worksheets("Informações").Range("B9") = "FILIAL" Then
        .SendUsingAccount = OutApp.Session.Accounts.Item(1)
    Else
        .SendUsingAccount = OutApp.Session.Accounts.Item(2)
    End If

        .ReadReceiptRequested = True 'CONFIRMAÇÃO DE LEITURA

        .Attachments.Add ActiveWorkbook.FullName 'ENDEREÇO LOCAL

        .Send 'Podemos tambem usar .Send para enviar direto
       
    End With

    On Error GoTo 0


    Set OutMail = Nothing

    Set OutApp = Nothing

MsgBox "Email " & Nome & " enviado com sucesso."

    Sheets("Relatório").Unprotect ("2550")
    Range("Q3").Value = "OK"
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:= _
        True, AllowSorting:=True, AllowFiltering:=True, Password:=("2550")

ActiveWorkbook.Save

End Sub


Estou usando esse código e está dando erro

Dim OutlookMessage As Outlook.MailItem
       Dim AppOutlook As New Outlook.Application
       Dim objContas As Outlook.Accounts

       Dim objNS As Outlook._NameSpace = AppOutlook.Session

           OutlookMessage = AppOutlook.CreateItem(Outlook.OlItemType.olMailItem)
           Dim Recipents As Outlook.Recipients = OutlookMessage.Recipients
           Recipents.Add("jfstartupstudio@gmail.com")
           OutlookMessage.Subject = "Sending through Outlook"
           OutlookMessage.Body = "Testing outlook Mail"
           OutlookMessage.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
       objContas.SendUsingAccount = OutlookMessage.Session.Accounts("Conta 2")
           OutlookMessage.Save() 'Save into the Drafts
       OutlookMessage.Send()

Alguém ai pode testar e ajudar encontrar uma solução?
Agradeço desde já!