Email com + doq 1 anexo

Eloize Teixeira · 26 de agosto de 2016

Boa tarde,

Surgiu a necessidade de adicionar mais do que um anexo em minha macro para envio automático de e-mails no Excel, no entanto, procurei na internet e vi alguns fóruns dizendo para separar com ";", mas mesmo assim está dando erro. Será que poderiam me ajudar?:

Sub EmitirRelatorio()
Dim nome As String, HTMLBody As String
Dim OA As Object, OM As Object
Dim lMax As Long
Dim lLinhaAtual As Long

nome = Environ("USERPROFILE") & "\AppData\Local\Temp\" & Range("c1").Value & ".pdf";"G:\BRITA-CD_Itapevi\KPI Logistica\Expedição Pallets - Controle\Template\Padrão Minimo de Qualidade - Pallets Devolução.pdf"

With OM
.To = Sheets("Emitir Relatório").Range("E53").Value
.CC = Sheets("Emitir Relatório").Range("E54").Value
.Subject = "Relatório Pallets - " & "Período Acumulado Até: " & Sheets("Relat. Template").Range("D9")
.HTMLBody = HTMLBody & "<br>"
.Attachments.Add nome
.Send
End With

Erro:

(em anexo)

_____________

Não está dando certo dessa forma.

Arquivo 1: Environ("USERPROFILE") & "\AppData\Local\Temp\" & Range("c1").Value & ".pdf"

Arquivo 2: "G:\BRITA-CD_Itapevi\KPI Logistica\Expedição Pallets - Controle\Template\Padrão Minimo de Qualidade - Pallets Devolução.pdf"

É isso, se puderem me ajudar, agradecerei.

Att,

Elo

Basole · 26 de agosto de 2016

@Eloize Teixeira no seu codigo voce pode acrescentar quantos " .Attachments.Add (+ o diretorio + o nome do arquivo) " que desejar, ou seja cada endereço de anexo seu diretorio. ex.:

.Attachments.Add "C:\

.Attachments.Add Environ("USERPROFILE") & "\AppData\Local\Temp\" & Range("c1").Value & ".pdf"

.Attachments.Add G:\BRITA-CD_Itapevi\KPI Logistica\Expedição Pallets - Controle\Template\Padrão Minimo de Qualidade - Pallets Devolução.pdf"

.Attachments.Add "c:\Temp\SeuPDFpdf"

etc....