Jak zapisać wiadomość e-mail jako plik PDF w Outlooku?

Jeśli pracujesz z programem Microsoft Outlook 2010 i 2007, zauważysz, że w programie Outlook nie ma wbudowanej funkcji zmiany wiadomości e-mail na format pdf. Musisz przekonwertować wiadomość e-mail do pliku PDF za pomocą niektórych powiązanych dodatków lub kodu VBA. W poniższym artykule z łatwością zapiszesz wiadomość e-mail jako plik PDF w programie Outlook.

Zapisz wiadomość e-mail jako plik pdf w programie Outlook z kodem VBA

Zbiorcze zapisywanie wielu wiadomości e-mail w pliku PDF lub w innych formatach plików za pomocą funkcji Zapis zbiorczy

Zapisz wiadomość e-mail jako plik pdf w programie Outlook z kodem VBA

1. Najpierw wybierz wiadomość e-mail, którą chcesz zapisać jako PDF.

2. naciśnij Alt + F11 uruchomić Microsoft Visual Basic for Applications okno.

3. kliknij wstawka > Moduł, a następnie skopiuj i wklej następujący kod VBA do okna modułu.

Kod VBA do zapisywania wiadomości e-mail jako pliku PDF:

Sub SaveAsPDFfile()
Dim MyOlNamespace As NameSpace
Dim MySelectedItem As MailItem
Dim Response As String
Dim FSO As Object, TmpFolder As Object
Dim tmpFileName As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim bStarted As Boolean
Dim dlgSaveAs As FileDialog
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Dim i As Integer
Dim WshShell As Object
Dim SpecialPath As String
Dim msgFileName As String
Dim strCurrentFile As String
Dim strName As String
Dim oRegEx As Object
Dim intPos As Long
Set MyOlNamespace = Application.GetNamespace("MAPI")
Set MySelectedItem = ActiveExplorer.Selection.Item(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
tmpFileName = FSO.GetSpecialFolder(2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\" & strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
bStarted = True
End If
On Error GoTo 0
Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7)
Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs)
Set fdfs = dlgSaveAs.Filters
i = 0
For Each fdf In fdfs
i = i + 1
If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then
Exit For
End If
Next fdf
dlgSaveAs.FilterIndex = i
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders(16)
msgFileName = MySelectedItem.Subject
Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))
dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName
If dlgSaveAs.Show = -1 Then
strCurrentFile = dlgSaveAs.SelectedItems(1)
If Right(strCurrentFile, 4) <> ".pdf" Then
Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _
vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel)
If Response = vbCancel Then
wrdDoc.Close 0
If bStarted Then wrdApp.Quit
Exit Sub
ElseIf Response = vbOK Then
intPos = InStrRev(strCurrentFile, ".")
If intPos > 0 Then
strCurrentFile = Left(strCurrentFile, intPos - 1)
End If
strCurrentFile = strCurrentFile & ".pdf"
End If
End If
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
strCurrentFile, _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=0, _
To:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
Set dlgSaveAs = Nothing
wrdDoc.Close
If bStarted Then wrdApp.Quit
Set MyOlNamespace = Nothing
Set MySelectedItem = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Set oRegEx = Nothing
End Sub

Note: Ten kod VBA został pomyślnie przetestowany w programach Outlook 2007 i 2010

4. kliknij uruchomić kod.

5. Będzie Zapisz plik okno dialogowe wyskakujące, gdy kod jest uruchomiony. Wybierz ścieżkę do zapisania pliku, nadaj mu nazwę i na koniec kliknij Zapisz przycisk.

6. Po zakończeniu działania kodu wiadomość e-mail została pomyślnie przekonwertowana do pliku PDF.

Zbiorcze zapisywanie wielu wiadomości e-mail w pliku PDF lub w innych formatach plików za pomocą funkcji Zapis zbiorczy

Z Kutools for Outlook zainstalowany, możesz użyć jego Bulk Save narzędzie do szybkiego zapisywania lub eksportowania wybranych wiadomości e-mail do plików PDF / plików Excel / plików CSV lub innych formatów plików.

1. W folderze e-mail zaznacz wiadomości, które chcesz zapisać jako PDF, kliknij Kutools > Bulk Save.

2. w Bulk Save wybierz ścieżkę do umieszczenia nowych plików, zaznacz PDF formati możesz określić Save content tak jak potrzebujesz.

3. kliknij Ok. Następnie wybrane wiadomości e-mail zostały indywidualnie zapisane jako pliki PDF.

  Zbiorcze zapisywanie wiadomości e-mail w wielu formatach plików

---

Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki Pro: Zapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

Czytaj więcej       Darmowe pobieranie      Zakup