Как быстро прикрепить определенные страницы документа Word к электронному письму Outlook

Перспективные решения 29 сентября, 2025
Поделись сейчас:

MS Word имеет прямую функцию, позволяющую пользователям отправлять текущий документ Word в качестве вложения электронной почты. Но иногда вы можете надеяться только на то, чтобы прикрепить определенные страницы документа Word к электронному письму Outlook. Теперь эта статья поделится с вами методом.

Чтобы отправить весь документ Word в виде вложения электронной почты в приложении MS Word, вы можете просто перейти в меню «Файл» и перейти на вкладку «Сохранить и отправить», под которой вы можете найти кнопку «Отправить как вложение». Тем не менее, иногда то, что вы хотите отправить, может быть только определенными страницами документа. В этой ситуации вы можете использовать метод, описанный ниже, чтобы выполнить это.

Быстро прикрепить определенные страницы документа Word к электронному письму Outlook

Прикрепите определенные страницы документа Word к электронному письму

  1. Прежде всего, вы должны открыть исходный документ Word, страницы которого вы хотите отправить по электронной почте.
  2. Затем, попав в окно MS Word, нужно нажать клавиши «Alt+F11».
  3. Далее вы получите доступ к редактору VBA в MS Word.
  4. После этого вы должны включить «Microsoft Outlook Object Lib».rarу». Вы можете нажать «Инструменты»> «Справочник», чтобы добиться этого.
  5. Впоследствии вам следует скопировать следующий код 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

Код VBA - прикрепите определенные страницы документа Word к электронному письму

  1. Наконец, вы можете запустить этот макрос. Просто нажмите кнопку F5 или коснитесь значка «Выполнить» на панели инструментов.
  2. После завершения макроса отобразится новое электронное письмо Outlook, к которому прикреплен фрагмент исходного документа Word, как показано на следующем снимке экрана:Новый E-mail

Извлечь максимум данных из поврежденного файла Outlook

Если вы использовали Outlook в течение десятилетий, вы, возможно, сталкивались с различными проблемами Outlook, включая всплывающие внутренние сообщения об ошибках, внезапные сбои, а также серьезные повреждения файлов. В связи с тем, что Скэнпст, встроенный инструмент восстановления, может решать только небольшие проблемы, вам лучше иметь под рукой внешний мощный инструмент исправления, скажем DataNumen Outlook Repair. Он способен извлечь максимум данных из поврежденного файла данных Outlook.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправление sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.