Hogyan mentse az e-mailt pdf fájlként az Outlook programban?
Ha a Microsoft Outlook 2010 és 2007 programokkal dolgozik, akkor azt tapasztalja, hogy az Outlook programban nincs beépített változat, amely az e-mailt pdf formátumra változtatja. Meg kell konvertálnia az e-mailt pdf-fájlba néhány kapcsolódó bővítménnyel vagy VBA-kóddal. A következő cikk segítségével könnyen elmentheti az e-maileket pdf fájlként az Outlook programba.
E-mail mentése pdf fájlként az Outlook programban, VBA kóddal
Tömeges mentés több e-mailt pdf fájlként vagy más fájlformátumban a Tömeges mentés funkcióval
E-mail mentése pdf fájlként az Outlook programban, VBA kóddal
1. Először válassza ki azt az e-mailt, amelyet PDF formátumban szeretne menteni.
2. nyomja meg Alt + F11 elindítani a Microsoft Visual Basic for Applications ablak.
3. kettyenés betétlap > Modulok, majd másolja és illessze be a következő VBA kódot a Modul ablakba.
Az e-mail PDF fájlként történő mentésének VBA-kódja:
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
Megjegyzések: Ezt a VBA kódot sikeresen tesztelték az Outlook 2007 és 2010 programokban
4. kettyenés hogy futtassa a kódot.
5. Lesz egy Fájl mentése a kód futása közben megjelenő párbeszédpanel. Válasszon egy elérési utat a fájl mentéséhez, nevezze el és végül kattintson a gombra Megtakarítás gombot.
6. A kód futtatásának befejezése után az e-mail sikeresen konvertálódott pdf fájlba.
Tömeges mentés több e-mailt pdf fájlként vagy más fájlformátumban a Tömeges mentés funkcióval
A Kutools for Outlook telepítve van, használhatja azt Bulk Save segédprogram a kiválasztott e-mailek gyors mentéséhez vagy exportálásához PDF fájlokba / Excel fájlokba / CSV fájlokba vagy más fájlformátumokba.
Kutools for Outlook, magában foglalja a hatékony funkciók és eszközök a Microsoft Outlook 2019, 2016, 2013, 2010 és az Office 365 számára. |
||
1. Egy e-mail mappában válassza ki a PDF formátumban menteni kívánt üzeneteket, kattintson a gombra Kutools > Bulk Save.
2. Ban,-ben Bulk Save párbeszédpanelen válassza ki az elérési utat az új fájlok elhelyezéséhez, és ellenőrizze PDF format, és megadhatja a Save content amire szüksége van.
3. kettyenés Ok. Ezután a kiválasztott e-maileket külön-külön menti PDF fájlként.
Tömeges e-mailek mentése több fájlformátumba
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.