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!