Send file as PDF through email

[skf786]

Hi,

my file has 4 sheets 1,2,3,4. i am looking for a macro to convert all for sheets into one pdf (same sequence 1,2,3,4). file name shall be XYZ-dd-mm-yyyy and it shall be attached to a new email through outlook and email shall remain open for user to input email address. Email subject shall be "Breakeven Analysis" and Text in body shall contain "abc"

Thanks

 

[John_w]

Try this macro.

Public Sub Create_PDF_and_Email()

    Dim PDFFileName As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    With ActiveWorkbook
        PDFFileName = .Path & "\XYZ-" & Format(Date, "dd-mm-yyyy") & ".pdf"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFileName, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .Subject = "Breakeven Analysis"
        .Body = "abc"
        .Attachments.Add PDFFileName
        .Display
    End With
    On Error GoTo 0
    
End Sub