使用中的檔案傳送到outlook新郵件附件

takeshilin88

請教各位大大：
以下vba是自動開啟outlook新郵件，並自動填入收件人，主旨，內文，加上附件等，
但是附件的檔案不會是正在編輯中的資料(而是存檔過的檔案內容)，
A檔是已儲存的檔案，B檔是目前正在開啟編輯中的檔案，執行VBA後，寄出的郵件附檔是A檔，請問要怎麼設定才能將附檔改成B檔呢？

Sub sendmail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
         .To = Sheets("自動寄郵件").Range("B3")
         .CC = ""
         .Subject = ActiveWorkbook.Name
         .body = "試算表自動寄郵件"
         .Attachments.Add ActiveWorkbook.FullName
         .Send
    End With
End Sub

謝謝~