MS Word има директна функция, която поддържа потребителите да изпращат текущия документ на Word като прикачен файл към имейл. Но понякога може да се надявате само да прикачите конкретни страници от документ на Word към имейл на Outlook. Сега тази статия ще ви сподели метод.
За да изпратите цял документ на Word като прикачен файл към имейл в приложението MS Word, можете просто да отидете в менюто „Файл“ и да преминете към раздела „Запазване и изпращане“, под който можете да намерите бутон „Изпращане като прикачен файл“. Въпреки това понякога това, което искате да изпратите, може да бъде само определени страници от документа. В тази ситуация можете да използвате метода, представен по-долу, за да го постигнете.
Прикачете конкретни страници от документ на Word към имейл
- Първо, трябва да отворите изходния документ на Word, чиито конкретни страници искате да изпратите по имейл.
- След това, след като влезете в прозореца на MS Word, трябва да натиснете клавишните бутони "Alt + F11".
- След това ще получите достъп до VBA редактора в MS Word.
- След това трябва да активирате „Microsoft Outlook Object Library“. Можете да натиснете „Tools“ > „Reference“, за да го направите.
- Впоследствие трябва да копирате следния 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 или докоснете иконата „Run“ в лентата с инструменти.
- След като макросът приключи, ще се покаже нов имейл на Outlook, който е прикачен с извадка от изходния документ на Word, като следната екранна снимка:
Извлечете максимални данни от повреден файл на Outlook
Ако сте използвали Outlook от десетилетия, може да сте се сблъсквали с различни проблеми с Outlook, включително изскачащи вътрешни съобщения за грешка, внезапни сривове, както и сериозни повреди на файлове. Поради факта, че scanpst, вграден инструмент за поправка, може да се справи само с малките проблеми, по-добре дръжте под ръка външен мощен инструмент за поправка, да речем DataNumen Outlook Repair. Той е в състояние да извлече максимум данни от повредения файл с данни на Outlook.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com