Sending multiple charts in in an email body with a macro

[Faroth26]

Hi there!

First post in here, so please bare with me

I am looking for some help to make a macro that sends multiple charts within the email body.

Alternativly, convert a specific range into a PDF (that contains my charts), and send that as an attachment in an email.

Any help would be much appreciated.

Kind regards
Rasmus

 

[Worf]

Welcome to the Board

Sub Faroth()
Dim olapp As Object, olit As Object, p$
p = "c:\pub\charts.pdf"
Set olapp = CreateObject("Outlook.Application")
Set olit = olapp.CreateItem(0)
[a35:h60].ExportAsFixedFormat xlTypePDF, p
With olit
    .To = "wozzy@tennis.dn"
    .Attachments.Add p
    .Display
End With
End Sub