macro to email workbook as .pdf keeps sending as .xlsm

[uncle_buck]

Hello,

I've recorded the following macro:

Sub email_fred_fax()
'
' email_fred_fax Macro
' self explanitory
'


'
Sheets("FRED FAX").Select
Sheets("FRED FAX").Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\John\My Documents\fred fax.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\DOCUME~1\John\LOCALS~1\Temp\Book2.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
End Sub

However, when I go and run it, it doesn't attach as a .pdf.


Any help would be appreciated. Thanks!

 

[James Snyder]

Possibly get rid of the first line of code. Try this (untested):

Sub email_fred_fax()

    With Sheets("FRED FAX")
        .Copy
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Documents and Settings\John\My Documents\fred fax.pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\DOCUME~1\John\LOCALS~1\Temp\Book2.pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
    End With
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
End Sub

Odds are that the wrong thing is active and you are saving as .xlsm because it is your macro workbook that is active. Explicitly specifying workbook and worksheet should solve that.

 

[uncle_buck]

Thanks for the quick reply. The end result is the same, an .xlsm attachement. I'll let you know if I figure anything out.

 

[uncle_buck]

ended up putting it in the body of the email with "send mail to recipient" which is probably better for the recipients. Now if i can just get the "emailer" to make sure outlook is open.