View Single Post
 
Old 09-20-2017, 06:51 AM
TAKMalcolm TAKMalcolm is offline Windows 7 32bit Office 2010 32bit
Novice
 
Join Date: Sep 2017
Posts: 1
TAKMalcolm is on a distinguished road
Default 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!!
Reply With Quote