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...