Jump to content
Fórum Script Brasil
  • 0

Ajuda com código VBA : Enviando anexo por email


Question

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!

Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149405
    • Total Posts
      645894
×
×
  • Create New...