Macro que envia e-mail – VBA & Macros – Planilhando :: O Maior portal de Excel do Brasil Skip to content
Macro que envia e-m...
[Resolvido] Macro que envia e-mail
(@marciarv)
Preciso de ajuda, pois estou usando uma macro que envia um arquivo Excel em anexo no e-mail que é informado diretamente na macro.
Mas gostaria de saber se tem como dentro do código dizer para ele buscar o e-mail em uma determinada célula da planilha, pois como serão vários e-mails e a cada momento irei enviar para um específico, não queria criar vários códigos para vários e-mail.
Sub EnviarEmail_1()
sPlanAEnviar = "lancamento"
NovoArquivoXLS.SaveAs ThisWorkbook.Path & "" & sPlanAEnviar & ".xls"
NovoArquivoXLS.SendMail "marcia.rv@hotmail.com", "Relatório Atividades Diárias"
Postado : 20/06/2018 2:08 pm
(@boobymcgee)
Assim, vai buscar o endereço de E-mail na célula A1:
email = [a1].Value
NovoArquivoXLS.SendMail email, "Relatório Atividades Diárias"
Postado : 20/06/2018 2:20 pm
Illustrious Member Registered Registered
marciarv,
Pedimos, por gentileza, ao postar código VBA, utilizar a ferramenta CODE existente logo acima da caixa de mensagens (quinto botão da esquerda para a direita).
Postado : 20/06/2018 2:25 pm
Boa tarde e obrigado pela dica.
Postado : 20/06/2018 2:56 pm
Muito obrigado, pois era exatamente isso que eu estava precisando.
Mas não querendo abusar da sua boa vontade, seria possível colocar mais de um e-mail caso eu precisar, ou informar mais de uma célula com outro e-mail.
Postado : 20/06/2018 2:58 pm
Como você ainda é novato no fórum, pedimos também que não use citações de inteiro teor das mensagens que lhe são encaminhadas. Elas são desnecessárias.
Para manter o fórum organizado e de acordo com as regras do mesmo, segue abaixo algumas observações importantes que poeço ler com atenção.
Postado : 20/06/2018 3:29 pm
Oi marciarv, nesse caso é melhor usar outro código que é mais completo e te possibilita mais opções, veja o exemplo