Word > PDF > Email

[dantheram]

Evening all,

i've nearly cracked this but i'm stuck on the last bit. I need it to send the saved pdf, not the open word doc, any ideas?

Sub SendAsPDF()
    Dim strFileName As String
    Dim objOutlook  As Object
    Dim objMailItem As Object

    strFileName = Replace(ActiveDocument.FullName, ".docm", ".pdf")
    ActiveDocument.SaveAs FileName:= InputBox("enter name") & ".pdf", FileFormat:=wdFormatText, AddToRecentFiles:=False
    ActiveDocument.ExportAsFixedFormat OutputFileName:=strFileName, _
        ExportFormat:=wdExportFormatPDF

    Set objOutlook = CreateObject("Outlook.Application")
    Set objMailItem = objOutlook.CreateItem(0) ' 0 = olMailItem
    With objMailItem
        .Subject = "My Subject"
        .Body = "My Message"
        .To = "SomeEmailAddress"
        .Attachments.Add strFileName
        .Display
    End With

    Kill strFileName

    Set objMailItem = Nothing
    Set objOutlook = Nothing
End Sub

 

[dantheram]

actually, i dont think i have solved this much.

i need the macro to save the word document, to its current folder path, as what the user specifies via the prompt box and then email a pdf version to an inbox.

Currently its saving to users home directory and as a pdf not a word doc

 

[GWteB]

Just remove this line
ActiveDocument.SaveAs FileName:= InputBox("enter name") & ".pdf", FileFormat:=wdFormatText, AddToRecentFiles:=False
and you've cracked it ...