Ajuda com código VBA : Enviando anexo por email

[Tamycs94]

Olá,

 

Eu não entendo muito de VBA e preciso de ajuda. Criei uma programação para enviar emails via VBA e funciona corretamente, mas estou com problemas exclusivamente com o anexo:

O objetivo é enviar um anexo para cada pessoa, sendo ANEXOS DIFERENTES para cada um. Se fosse o mesmo anexo, bastaria colocar o caminho da pasta que seria enviado para todos os contatos (já consegui fazer assim), mas não é o objetivo.

Primeiramente tinha os arquivos salvos em PDF na mesma pasta onde está salva a planilha macro, sendo o caminho: "C:\Users\Tamires\Desktop\MALA DIRETA\Documento - Tamires.pdf"

e no VBA coloquei : Email.Attachments.Add (ThisWorkbook.Path & "\MALA DIRETA - " & Cells(linha, 1).Value & ".pdf")

E não funciona!

Segunda tentativa: Na coluna D2 inseri o caminho completo do arquivo em cada linha da planilha, no caso, precisaria referenciar a célula que está o caminho da pasta . Já tentei usar tudo, RANGE, CELLS, e nada funciona. 

Segue o script

 

Sub enviaremails()

 

Set objeto_outlook = CreateObject("Outlook.application")

 

For linha = 2 To 3

 

'Estrutura de repetição (linhas 2 até 3 )

   

    Set Email = objeto_outlook.createitem(0)

   

    Email.display

   

    Email.To = Cells(linha, 2).Value

 

    Email.Subject = "Teste mala direta"

   

    Email.Body = Cells(3, 3).Value

   

    'Email.Attachments.Add ("C:\Users\Tamires\Desktop\MALA DIRETA\Documento - Tamires.pdf")

   

    Email.Attachments.Add Range("D2:D4").Value   ----->>> ONDE ESTÁ O ERRO!

   

    Email.send

 

Next

End Sub

No attachments quando coloco Range ("D2").Value e passo o mouse, aparece o valor e o caminho da pasta que coloquei na planilha, mas lembrando que deve respeitar a estrutura de repetição, visto que são caminhos diferentes. 

 

Me ajudem!