MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

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

    Mensagem  lucianonunes.jw em Ter 02 Out 2012, 15:06

    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.

    Anexos
    codigo.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (3 Kb) Baixado 116 vez(es)


    Última edição por lucianonunes.jw em Ter 02 Out 2012, 18:09, editado 2 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9722
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Ter 02 Out 2012, 17:16

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9722
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Ter 02 Out 2012, 17:22

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

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

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

    Mensagem  lucianonunes.jw em Ter 02 Out 2012, 17:57

    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



    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Ter 02 Out 2012, 22:02

    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


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9722
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 03 Out 2012, 11:55

    teste por favor;

    Anexos
    Envia_para_outlook_conta_secundaria.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (4 Kb) Baixado 190 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

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

    Mensagem  lucianonunes.jw em Qua 03 Out 2012, 12:29

    André,

    obrigado pelo retorno.

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


    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

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

    Mensagem  lucianonunes.jw em Qua 03 Out 2012, 12:32

    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9722
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 03 Out 2012, 12:51

    Falha minha, teste;

    Set olAccounts = objOut.Application.Session.Accounts



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Qua 03 Out 2012, 13:36

    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


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qua 03 Out 2012, 13:46

    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 "[Você precisa estar registrado e conectado para ver este link.]" 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!


    Última edição por Avelino Sampaio em Qua 03 Out 2012, 13:50, editado 1 vez(es)
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qua 03 Out 2012, 13:49

    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!


    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9722
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 03 Out 2012, 14:13

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

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Qua 03 Out 2012, 15:04

    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


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qua 03 Out 2012, 15:22

    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


    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Qua 03 Out 2012, 15:48


    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


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qua 03 Out 2012, 16:04

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

    [Você precisa estar registrado e conectado para ver este link.]

    No aguardo


    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Qua 03 Out 2012, 19:19

    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


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qua 03 Out 2012, 19:37

    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 ?



    Última edição por Avelino Sampaio em Qua 03 Out 2012, 21:23, editado 1 vez(es)

    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

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

    Mensagem  lucianonunes.jw em Qua 03 Out 2012, 20:11

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

    .SentOnBehalfOfName = “Escreva aqui o email”


    Funcionou corretamente.

    Obrigado a todos pela atenção.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9722
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 03 Out 2012, 20:35

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

    Aguardo


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qua 03 Out 2012, 21:35

    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





    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Qua 03 Out 2012, 21:49

    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


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Qua 03 Out 2012, 21:54

    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


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qua 03 Out 2012, 22:16

    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.

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Qua 03 Out 2012, 22:38

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


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9722
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 03 Out 2012, 22:49

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qui 04 Out 2012, 11:55

    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

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

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

    Mensagem  andre lindolfo em Qui 04 Out 2012, 14:14

    Avelino,

    Maravilha, fincuonou !!!!
    SHOW!

    Muitíssimo obrigado.

    []s
    Sucesso.


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010

    RodrigoMalagodi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 09/05/2013

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

    Mensagem  RodrigoMalagodi em Qua 05 Jun 2013, 19:45

    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.

    [Você precisa estar registrado e conectado para ver este link.]

    Danilosam7
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 20/02/2014

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

    Mensagem  Danilosam7 em Sab 22 Fev 2014, 15:25

    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.

    leolpc21
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 07/03/2017

    Eu continuo tendo problemas

    Mensagem  leolpc21 em Ter 07 Mar 2017, 13:11

    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

    jfstartupstudio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 30/03/2017

    Não estou conseguindo usar outra conta

    Mensagem  jfstartupstudio em Qui 30 Mar 2017, 10:56

    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á!

      Data/hora atual: Ter 12 Dez 2017, 17:45