Πώς να αποθηκεύσετε το email ως αρχείο pdf στο Outlook;
Εάν εργάζεστε με το Microsoft Outlook 2010 και 2007, θα διαπιστώσετε ότι δεν υπάρχει ενσωματωμένο στο Outlook για να αλλάξετε τη μορφή ηλεκτρονικού ταχυδρομείου σε μορφή pdf. Πρέπει να μετατρέψετε το email σε αρχείο pdf με κάποια σχετικά πρόσθετα ή με κωδικό VBA. Με το ακόλουθο άρθρο, θα αποθηκεύσετε εύκολα email ως αρχείο pdf στο Outlook.
Αποθηκεύστε το email ως αρχείο pdf στο Outlook με κωδικό VBA
Μαζική αποθήκευση πολλών μηνυμάτων ηλεκτρονικού ταχυδρομείου ως αρχείο pdf ή άλλες μορφές αρχείων με Μαζική αποθήκευση
Αποθηκεύστε το email ως αρχείο pdf στο Outlook με κωδικό VBA
1. Πρώτα πρέπει να επιλέξετε το email που θέλετε να αποθηκεύσετε ως PDF.
2. Τύπος Alt + F11 για να ξεκινήσει το Microsoft Visual Basic για εφαρμογές παράθυρο.
3. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module.
Ο κωδικός VBA αποθήκευσης email ως αρχείο 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: Αυτός ο κώδικας VBA έχει δοκιμαστεί επιτυχώς στο Outlook 2007 και 2010
4. κλικ για να εκτελέσετε τον κωδικό.
5. Θα υπάρχει ένα Αποθήκευση αρχείου αναδυόμενο παράθυρο διαλόγου κατά την εκτέλεση του κώδικα. Επιλέξτε μια διαδρομή για να αποθηκεύσετε το αρχείο, ονομάστε το και τέλος κάντε κλικ στο Αποθήκευση κουμπί.
6. Όταν ολοκληρωθεί η εκτέλεση του κώδικα, το email μετατράπηκε επιτυχώς σε αρχείο pdf.
Μαζική αποθήκευση πολλών μηνυμάτων ηλεκτρονικού ταχυδρομείου ως αρχείο pdf ή άλλες μορφές αρχείων με Μαζική αποθήκευση
Με Kutools for Outlook εγκατεστημένο, μπορείτε να το χρησιμοποιήσετε Bulk Save βοηθητικό πρόγραμμα για γρήγορη αποθήκευση ή εξαγωγή των επιλεγμένων email σε αρχεία PDF / αρχεία Excel / αρχεία CSV ή άλλες μορφές αρχείων.
Kutools for Outlook, περιλαμβάνει ισχυρές δυνατότητες και εργαλεία για το Microsoft Outlook 2019, 2016, 2013, 2010 και Office 365. |
||
1. Σε ένα φάκελο email, επιλέξτε τα μηνύματα που θέλετε να αποθηκεύσετε ως PDF, κάντε κλικ στο Kutools > Bulk Save.
2. Στο Bulk Save διαλόγου, επιλέξτε μια διαδρομή για να τοποθετήσετε τα νέα αρχεία, επιλέξτε PDF formatκαι μπορείτε να καθορίσετε το Save content όπως χρειάζεστε.
3. κλικ Ok. Στη συνέχεια, τα επιλεγμένα email έχουν αποθηκευτεί ως αρχεία PDF ξεχωριστά.
Μαζική αποθήκευση email σε πολλές μορφές αρχείων
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.