Excel Enviar e-mail através de Macro com arquivo em PDF em anexo

[Aline Ramos Borges]

Olá boa tarde, Pessoal,

 

Preciso da ajuda de você para adaptar a macro abaixo se for possível da seguinte forma:

1) Preciso que uma lista de distribuição de e-mail fique no Para (To) e outra no Cc.

2) Preciso que ele anexe automaticamente dois arquivos em PDF, por favor me ajudem.

 

Option Explicit

Sub enviaremail()

    Dim intervalo As Range
    Dim grafico As ChartObject
    Dim objoutlook As Object

    Set intervalo = Planilha17.Range("C13:F34")
    intervalo.CopyPicture
    Set grafico = Planilha17.ChartObjects.Add(intervalo.Left, intervalo.Top, intervalo.Width, intervalo.Height)
    With grafico
    .Activate
    .Chart.Paste
    .Chart.Export Environ$("temp") & "/grafico.jpg"
    .Delete
 
    End With

    Set objoutlook = CreateObject("outlook.application").createitem(0)
    With objoutlook
    .to = Range("C4")
    .attachments.Add Environ$("temp") & "/grafico.jpg", 1, 0
    .HTMLbody = "<img src='cid:grafico.jpg'>"
    .display
    .Subject = Range("C10")
     
    Set objoutlook = Nothing
    Set grafico = Nothing
    Set intervalo = Nothing
    
    End With
    
End Sub
 

E-mail.xlsx

[Midori]

@Aline Ramos Borges Para adicionar outro anexo é só passar o caminho para attachments.Add como você fez com o gráfico. O mesmo vale para a CC (atribua os endereços para .cc como fez em .to).

[Muca Costa]

Veja se o anexo ajuda.

E-mail.rar

[Aline Ramos Borges]

@Midori quando eu atribuo .cc igual fiz para o to ele apresenta erro. Vou verificar o attachmentes.Add.

@Muca Costa vou verificar seu código, obrigada.