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?