MS Word має пряму функцію, яка підтримує користувачів надсилати поточний документ Word як вкладення електронної пошти. Але іноді ви можете лише сподіватися прикріпити конкретні сторінки документа Word до електронної пошти Outlook. Тепер ця стаття поділиться з вами методом.
Щоб надіслати весь документ Word як вкладення електронної пошти в програмі MS Word, ви можете просто перейти до меню «Файл» і перейти на вкладку «Зберегти та надіслати», під якою ви можете знайти кнопку «Надіслати як вкладення». Проте часом те, що ви хочете надіслати, може бути лише конкретними сторінками документа. У цій ситуації ви можете скористатися методом, представленим нижче, для його досягнення.
Вкладіть конкретні сторінки документа Word до електронного листа
- По-перше, слід відкрити вихідний документ Word, конкретні сторінки якого ви хочете надіслати електронною поштою.
- Потім, потрапивши у вікно MS Word, потрібно натиснути кнопки «Alt + F11».
- Далі ви отримаєте доступ до редактора VBA в MS Word.
- Після цього вам потрібно ввімкнути «Бібліотеку об’єктів Microsoft Outlook». Ви можете натиснути «Інструменти» > «Довідка», щоб зробити це.
- Згодом вам слід скопіювати наступний код VBA в модуль, який не використовується.
Sub AttachSpecificPagesToOutlookEmail()
Dim strDocumentName As String
Dim objSelectedPages As Word.Range
Dim objTempDocument As Word.Document
Dim objTempRange As Word.Range
Dim i As Long
Dim strTempDocument As String
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
strDocumentName = Left(ActiveDocument.Name, InStr(ActiveDocument.Name, ".") - 1)
'Copy the contents from Page 2 to 4
'You can change the page as per your own needs
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
Set objSelectedPages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
objSelectedPages.Select
objSelectedPages.Copy
'Paste the copied contents into a new Word Document
Set objTempDocument = Word.Application.Documents.Add
objTempDocument.Activate
Set objTempRange = objTempDocument.Range(0, 0)
objTempRange.PasteAndFormat (wdFormatOriginalFormatting)
For i = objTempDocument.Paragraphs.Count To 1 Step -1
If Len(objTempDocument.Paragraphs(i).Range) = 1 Then
objTempDocument.Paragraphs(i).Range.Delete
Else
Exit For
End If
Next i
'Save this document
strTempDocument = "E:\" & strDocumentName & " (Excerpt).doc"
objTempDocument.SaveAs2 strTempDocument, wdFormatDocument
'Attach the new document to a new Outlook email
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Attachments.Add (strTempDocument)
objMail.Display
objTempDocument.Close False
Kill strTempDocument
End Sub
- Нарешті, ви можете запустити цей макрос. Просто натисніть клавішу F5 або торкніться піктограми «Виконати» на панелі інструментів.
- Після завершення макросу з’явиться нове повідомлення електронної пошти Outlook, яке додається з уривком вихідного документа Word, наприклад, наступний знімок екрана:
Витягніть максимум даних із пошкодженого файлу Outlook
Якщо ви використовували Outlook протягом десятиліть, можливо, ви стикалися з різними проблемами Outlook, включаючи спливаючі внутрішні повідомлення про помилки, раптові збої, а також серйозні пошкодження файлів. Через те, що scanpst, вбудований інструмент для ремонту, може впоратися лише з невеликими проблемами, вам краще залишити під рукою зовнішній потужний інструмент виправлення, скажімо DataNumen Outlook Repair. Він може виділити максимум даних із пошкодженого файлу даних Outlook.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com