Ir ao conteúdo
  • Cadastre-se
Eloize Teixeira

RESOLVIDO Email com + doq 1 anexo

Recommended Posts

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

eeeee.PNG

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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....

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×