Macro to send email with attachment help.

[Luis_B]

Hey guys,

Could someone please help me with a Macro for sending an email from Excel and attaching a PDF that another Macro creates. The email is outlook.

Below is the macro that I have that creates and saves the PDF. Any help would be greatly appreciated.

Dim PDFrange As Range

With ActiveWorkbook

Set PDFrange = .Worksheets("AEL").Range("b1", Range("i11").End(xlDown).End(xlToRight))
Set PDFrange = PDFrange.Resize(PDFrange.Rows.Count + 1)
PDFrange.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Path & "\AEL_2023_01.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


End With

End Sub

 

[Micron]

you can do both in one procedure, such as the solution here

Redirecting