Word VBA: Save as not working when attaching a Word Doc to an Outlook Email?

[jscranton]

I wrote a piece of code that would attach the active word document to an outlook email. This worked fine.

    myDoc.Save    

    With EmailItem
        .subject = fileName
        .Attachments.Add myDoc.FullName
        .Display
    End With

Of course, the powers have asked to use Save as:

    myDoc.SaveAs fileName:=("Feedback_Form_" + formName), FileFormat:=wdFormatDoc

However, whenever I do this, the document saves without an extension (I have tried every file format available).

What am I missing?

 

[jscranton]

Sorry. Figured it out (and I knew it was something simple). You have to include the file extension as part of the filename. "Feedback_Form_" + formName + ".doc") worked.