Sending documents via email once converted into PDF

snoopy · #1 09-03-2015, 03:13 AM

Hi all,

I have a problem that I'm not sure can be resolved, i currently use a command button to convert the word document into a PDF (as below)

Quote:

Private Sub CommandButton1_Click()
Convert_PDF

End Sub

Sub Convert_PDF()

Dim desktoploc As String
Dim filename As String
Dim mypath As String

desktoploc = CreateObject("WScript.Shell").SpecialFolders("Desk top")
filename = ThisDocument.Name
mypath = desktoploc & "\" & filename & ".pdf"

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
mypath, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

I now want it to also send the PDF document in an email back to myself instead of the user having to save it and send it.

Im not sure that a VBA will be able to do, and if it can i don't know how to do it, can someone clarify?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word files sent by email automatically converted to pdf	gorgerider	Word	6	07-15-2021 04:31 PM
email not sending	junkdawg	Outlook	2	04-17-2015 06:59 PM
MSN email addresses converted to a hyperlink within text	Colonel Biggs	Word	2	04-07-2015 07:51 AM
Sending Documents w/ Xerox Attachments	LSTWP43	Outlook	0	10-24-2011 07:22 AM
Keeps Sending Same Email	Shoezeeq	Outlook	0	03-07-2006 04:30 PM