VBA to create a button to attach the active word doc to an email as a PDF without using Outlook
I sincerely apologize if this exact question has been asked before - I've been searching for awhile and haven't had much luck.
Very new to VBA - trying to use a macro to create a "submit" button that will convert the active document to a PDF and attach it to an email in IBM Notes. Most of the resources I've found provide code to perform this operation using Microsoft Outlook as the email client, but I haven't been able to find out much otherwise.
I've had success adding the document to an email in IBM Notes using this code:
Private Sub CommandButton1_Click()
Options.SendMailAttach = True
ActiveDocument.SendMail
End Sub
However, it would be ideal if I could have the document attached as PDF. I was also able to find coding to save the active document as a PDF:
Sub CommandButton1_Click()
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\example\DocName", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub
I'm able to successfully create the PDF document using that code, saving it to the location listed "C:\Users\example\DocName" - I don't really need to keep the document saved as a PDF if I can get it to attach to an email in IBM Notes.
Any help is greatly appreciated!
Thanks!!
|