VBA - Endereço de e-mail diferente para o destinatário retornar ao escolher responder e-mail. - Douglas Godoy - Douglas Godoy
/Blog e Artigos /Excel VBA /Outlook /VBA – Endereço de e-mail diferente para o destinatário retornar ao escolher responder e-mail.
Recebi um e-mail do amigo e leitor Silvio Júnior na qual o mesmo precisava de uma solução para uma situação:
Gostaria de inserir um endereço padrão de e-mail para o destinatário retornar ao escolher responder no e-mail recebido.
Ocorre que por padrão o Microsoft Outlook ou qualquer outro cliente de e-mail tem por característica preencher o campo de resposta com o e-mail que foi o remetente da mensagem, isso torna-se um problema quando enviamos uma mensagem através de um e-mail do sistema, e-mails de grupos ou e-mails genéricos.
Para resolver esta situação temos com ter o e-mail remetente e também escolher qual será o e-mail a ser preenchido quando o usuário clicar em responder.
Sub Email_Reply()
'Destinatário do e-mail.
.To = "douglas@douglasgodoy.com.br"
'E-mail que receberá a resposta.
.ReplyRecipients.Add "email@example.com"
'Título do e-mail
.Subject = "Teste de e-mail"
'Conteúdo do e-mail.
.HTMLBody = "Olá,<br><br>" & _
"Este é um teste de e-mail <br><br>" & _
"Douglas Godoy"
'.Display mostra o e-mail e .Send envia direto.
.Display 'ou .Send
Clique aqui e faça Download do aquivo com o código.
Com este arquivo espero ajudar as pessoas que tem dúvidas relacionadas ao tema e que você tenha pelo menos um norte para iniciar seus trabalhos no que refere-se a configuração de endereço padrão de e-mail para o destinatário retornar ao escolher responder e-mail com VBA.
Agradeço pela leitura e fico no aguardo de seus comentários e sugestões.
Tags:CreateObject("Outlook.Application")OutlookVBA
Roberto 3 de setembro de 2016 at 13:15
Obrigado pelo artigo, procurei muito por isso!
Pablo da Silva Resposta do Autor 26 de julho de 2016 at 00:20
Obrigado pelo código cara, era o que estava precisando…
Parabéns pelo iniciativa e compartilhamento de informações…
Gina 12 de fevereiro de 2016 at 13:52
Bom esse blog, bom o assunto.
Douglas Godoy Resposta do Autor 11 de agosto de 2016 at 21:48
Anderson 25 de setembro de 2015 at 00:43
Doulas boa noite,
Gostaria de criar uma planilha que enviasse e-mail automático para o outlook toda vez que faltar 10 dias antes da data do vencimento
Silvio Júnior 11 de abril de 2015 at 02:26
Primeiramente muito obrigado por ter dedicado um tempo para meu questionamento.
Acredito que a variavel .ReplyRecipients.Add é a que estou precisando.
Em minhas garimpagens encontrei a variável de validade da mensagem .ExpiryTime = DateAdd("d", 6, Now) para a data de expiração da mensagem.
Vou testar a solução completa agora e creio que o planejado vai ficar pronto.
Parabéns pela movimentação do site.
O número de mensagens só confirma a confiança que aqueles que usam seus exemplos sentem-se ajudados pela sua competência no assunto e acreditam que a mesma linha de raciocínio que procuram encontram em suas soluções.