Email macro saving the wrong document

[andywal6]

Hi Guys
I'm using the code below to Merge a word document then send by email and save it to a specified location.
All seems to work well except that it is saving the template and not the merged document.
The E.mail comes out brilliantly.

Why is it saving the template.

Sub SendMergedDocByEmail()
    '*** Macro to Automate Merge and Send by Email ***
    Dim fldrname, vsn, defaultpath, strSend
    vsn = Format(Now, "dd-mm-yy")
    
    strSend = InputBox("Enter a Subject line or Click [OK] to accept the Default", "Enter a Subject line", "Your Documents as promised")
    If strSend = "" Then Application.Quit SaveChanges:=wdDoNotSaveChanges

    With ActiveDocument.MailMerge
        .Destination = wdSendToEmail
        .MailAddressFieldName = "CustEmail"
        .MailSubject = strSend
        .SuppressBlankLines = True
        .MailAsAttachment = False
        .MailFormat = wdMailFormatHTML
        With .DataSource
            .ActiveRecord = wdFirstRecord
            defaultpath = .DataFields("DefaultFolder").Value
            fldrname = .DataFields("FolderNo").Value
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
        ActiveDocument.SaveAs FileName:=defaultpath & "\" & fldrname & "\" & _
        ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) & " " & vsn & ".doc"
    Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub

Many thanks in advance for your help,



Andy

[eduzs]

You can try: (backup before test)

ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) & " " & vsn & ".doc", FileFormat:=wdFormatXMLDocument