Excel Excel - Enviar lista de e-mails - arquivo anexado

[ppeterk]

Prezados, boa tarde!

 

Tenho uma planilha com uma relação de e-mails. Além disso, para cada e-mail/pessoa, existe um arquivo PDF salvo na mesma pasta da planilha.

 

Gostaria que o Excel/VBA mandasse um email para cada pessoa da lista, anexando seu respectivo arquivo.

 

Observação: O nome do arquivo tem o mesmo nome da pessoa. Estou anexando a planilha e o PDF de um dos nome da planilha

 

 

Emails.xlsx Lucas Pereira.pdf

[Midori]

Você pode usar os objetos do Outlook, p.ex,

 

Sub EnviaEmail()
    Dim objOutlook  As Object
    Dim objEmail    As Object

    Set objOutlook = CreateObject("Outlook.Application")
    Set objEmail = objOutlook.createitem(0)
    
    objEmail.To = "[email protected]"
    objEmail.Subject = "Assunto"
    objEmail.Body = "Mensagem"
    
    'Call objEmail.Attachments.Add("Anexo")
    Call objEmail.Display
    'Call objEmail.Send
End Sub

 

Aí é só fazer um loop na tabela para pegar os valores do endereço, anexo, etc.

 

A chamada a Display é para a fase de teste, depois é só remover e chamar Send.

[ppeterk]

@Midori , boa tarde!

 

Agradeço o retorno. Pelo que identifiquei, eu altero os objetos, colocando as variáveis das células. Sobre o loop, devo usar o FOR. No entanto, poderia me ajudar com o loop ? Não sei onde encaixá-lo.

 

[Midori]

Chegou a testar o código com um registro?

 

Os membros de objEmail devem receber os dados da planilha.

 

Depois é só fazer o loop para pegar cada um com as chamadas e atribuições em objEmail nele.