Email Word with Message (Uses xlDialogSendMail & Outlook Express)

Sub SaveAsNewFile()
    'set current doc name and path
    Dim docName As String: docName = ActiveDocument.Name
    Dim filepath As String: filepath = ActiveDocument.Path
'create a new file
    Documents.Add
'get the path of a current file
    ChangeFileOpenDirectory filepath
'insert content of current file to newly created doc
    Selection.InsertFile _
        FileName:=docName, _
        Range:="", _
        ConfirmConversions:=False, _
        Link:=False, _
        Attachment:=False
'open prompt to save a new file

'With Dialogs(wdDialogFileSaveAs)
    '    .Name = docName & "-copy"
    '    .Show
    'End With

ActiveDocument.SendMail
End Sub

stackoverflow.com/questions/21317885/using-vba-to-copy-the-contents-of-a-word-document-into-another-word-document

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học