MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 63
    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 87 vez(es)


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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.



    .................................................................................
    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 : 63
    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 : 136
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 148 vez(es)


    .................................................................................
    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 : 63
    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 : 63
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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



    .................................................................................
    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 : 136
    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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!




    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.]



    .................................................................................
    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 : 136
    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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



    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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



    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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


    .................................................................................
    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.]

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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






    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    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 : 136
    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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.


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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.]

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    andre lindolfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    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.

      Data/hora atual: Sex 09 Dez 2016, 07:42