Word 2007 Emailing pdf by VBA

[RonQA]

Does anyone have the proper code to click a button and send the document in an email in pdf format.

I have tried the macro recorder, but it does not capture that event. Below is all I get.

Sub Macro3()
'
' Macro3 Macro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\DOCUME~1\Mjones.GAW\LOCALS~1\Temp\QA.pdf", 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

Thanks