Jeśli chcesz wyeksportować część wiadomości e-mail programu Outlook zamiast całej wiadomości e-mail jako plik PDF plik, możesz przeczytać ten artykuł. Tutaj poprowadzimy Cię, jak to osiągnąć za pomocą kodu VBA.
Z moich poprzednich artykułów – „Jak zapisać wiadomość e-mail programu Outlook jako plik PDF Plik"I"Jak szybko wyeksportować wiele wiadomości e-mail programu Outlook jako jeden PDF Plik”, możesz dowiedzieć się, jak wyeksportować cały e-mail jako PDF plik. Niemniej jednak czasami chcesz wyeksportować część wiadomości e-mail jako plik PDF plik. W tym momencie możesz użyć następującego kodu VBA, aby to zrealizować. Jeśli zupełnie nie wiesz, jak korzystać z VBA, możesz zapoznać się z artykułem – „Jak uruchomić kod VBA w swoim Outlooku" W międzyczasie.
Eksportuj część wiadomości e-mail jako plik PDF Plik
- Na początek uruchom program Outlook.
- Następnie uzyskaj dostęp do edytora Outlook VBA za pomocą skrótów klawiszowych „Alt + F11”.
- Następnie w tym nowym oknie otwórz nieużywany moduł.
- Następnie skopiuj i wklej następujący kod VBA do tego modułu.
Sub ExportSelectionAsPDF()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objDocSelection As Word.Selection
Dim objWordApp As Word.Application
Dim objTempDocument As Word.Document
Dim strPDF As String
'Get the currently opened email
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
If Not objMail Is Nothing Then
'Copy the current selection
Set objMailDocument = objMail.GetInspector.WordEditor
Set objDocSelection = objMailDocument.Application.Selection
objDocSelection.Copy
'Paste the selection into a new Word document
Set objWordApp = CreateObject("Word.Application")
Set objTempDocument = objWordApp.Documents.Add
objWordApp.Visible = True
objTempDocument.Activate
objWordApp.Selection.EndKey wdStory
objWordApp.Selection.PasteAndFormat wdPasteDefault
'Export the document as a PDF file
'Change the path as per your needs
strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
objTempDocument.Close False
objWordApp.Quit
End If
End Sub
- Następnie należy dodać nowe makro do paska narzędzi Szybki dostęp okna wiadomości.
- Wreszcie możesz zrobić zdjęcie:
- Najpierw otwórz wiadomość e-mail.
- Następnie wybierz zawartość, którą chcesz wyeksportować.
- Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu.
- Makro zostanie natychmiast uruchomione.
- Po zakończeniu makra możesz przejść do predefiniowanego folderu lokalnego, gdzie zobaczysz nowy PDF plik.
- Otwórz go, a zobaczysz, że wygląda jak na poniższym zrzucie ekranu:
Skuteczne środki po uszkodzeniu programu Outlook
Pomimo wielu doskonałych funkcji, Outlook nadal nie może być odporny na uszkodzenia. W rzeczywistości jest podatny na korupcję z powodu różnych czynników, takich jak wirusy, złośliwe oprogramowanie, błędy oprogramowania, problemy ze sprzętem i tak dalej. W tym scenariuszu niezbędne jest podjęcie działań w celu ratowania uszkodzonych danych programu Outlook, w tym uruchomienie skanpst aby naprawić plik, sprawdź najnowsze kopie zapasowe i skorzystaj z niezawodnego narzędzia do naprawy PST, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com