MS Word ma bezpośrednią funkcję umożliwiającą użytkownikom wysyłanie aktualnego dokumentu Worda jako załącznika do wiadomości e-mail. Ale czasami możesz mieć tylko nadzieję na załączenie określonych stron dokumentu programu Word do wiadomości e-mail programu Outlook. W tym artykule znajdziesz metodę.
Aby wysłać cały dokument Word jako załącznik do wiadomości e-mail w aplikacji MS Word, wystarczy przejść do menu „Plik” i przejść do zakładki „Zapisz i wyślij”, pod którą znajduje się przycisk „Wyślij jako załącznik”. Czasami jednak chcesz wysłać tylko określone strony dokumentu. W takiej sytuacji możesz użyć metody przedstawionej poniżej, aby to osiągnąć.
Dołącz określone strony dokumentu programu Word do wiadomości e-mail
- Po pierwsze, otwórz źródłowy dokument Word, którego określone strony chcesz wysłać w wiadomości e-mail.
- Następnie po wejściu do okna MS Word należy wcisnąć klawisze „Alt + F11”.
- Następnie uzyskasz dostęp do edytora VBA w MS Word.
- Następnie musisz włączyć „Bibliotekę obiektów Microsoft Outlook”. Aby to zrobić, kliknij „Narzędzia” > „Odniesienia”.
- Następnie należy skopiować następujący kod VBA do modułu, który nie jest używany.
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
- Wreszcie możesz uruchomić to makro. Wystarczy nacisnąć klawisz F5 lub dotknąć ikony „Uruchom” na pasku narzędzi.
- Po zakończeniu działania makra zostanie wyświetlona nowa wiadomość e-mail programu Outlook, do której dołączony jest fragment źródłowego dokumentu programu Word, jak na poniższym zrzucie ekranu:
Wyodrębnij maksymalne dane z uszkodzonego pliku programu Outlook
Jeśli korzystasz z Outlooka od dziesięcioleci, możesz napotkać różne problemy z Outlookiem, w tym wyskakujące wewnętrzne komunikaty o błędach, nagłe awarie, a także poważne uszkodzenia plików. Ze względu na to, że skanpst, wbudowane narzędzie naprawcze, radzi sobie tylko z drobnymi problemami, lepiej mieć pod ręką zewnętrzne, potężne narzędzie naprawcze, powiedz DataNumen Outlook Repair. Jest w stanie wyciągnąć maksimum danych z uszkodzonego pliku danych programu Outlook.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym poprawka sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com