Hvordan lagre e-post som pdf-fil i Outlook?
Hvis du arbeider med Microsoft Outlook 2010 og 2007, vil du finne at det er ingen bygging i i Outlook for å endre e-post til pdf-format. Du trenger å konvertere e-post til pdf-fil ved noen relaterte add-ins eller med VBA-kode. Med følgende artikkel, vil du enkelt lagre e-post som pdf-fil i Outlook.
2013.
Lagre e-post som pdf-fil i Outlook med VBA kode
1. For det første bør du velge e-post som du ønsker å lagre som PDF.
To. Trykk Alt + F11 for å starte Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og deretter kopiere og lime inn følgende VBA kode i modulen vindu
VBA-kode for å lagre e-post som PDF-fil.
Sub SaveAsPDFfile ()
Dim MyOlNamespace As navnerom
Dim MySelectedItem Som 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 Som Filedialog
Dim fdfs Som FileDialogFilters
dim FDF Som 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 så lenge
Sett MyOlNamespace = Application.GetNamespace ("MAPI ")
Sett MySelectedItem = ActiveExplorer.Selection.Item (1)
Set FSO = Create (" Scripting.FileSystemObject ")
tmpFileName = FSO.GetSpecialFolder (2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\\" &Amp; strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject ("Word.Application")
Hvis Err Deretter
Set wrdApp = Create ("Word.Application")
bStarted = True
End If
On Error GoTo 0
Still wrdDoc = wrdApp.Documents.Open (Filename: = tmpFileName, Synlig: = False, Format: = 7)
Sett dlgSaveAs = wrdApp.FileDialog (msoFileDialogSaveAs)
Set fdfs = dlgSaveAs. filtre
i = 0
For Hver fdf I fdfs
i = i + 1
Hvis InStr (1, fdf.Extensions, "pdf" , vbTextCompare) > 0 Then
Exit For
End If
Neste fdf
dlgSaveAs.FilterIndex = i
Set WshShell = Create ("wscript kappens ")
SpecialPath = WshShell.SpecialFolders (16)
msgFileName = MySelectedItem.Subject
Set oRegEx = Create (" vbscript.regexp ")
< em> oRegEx.Global = True
oRegEx.Pattern = "[\\ /: *?" "< > |]"
msgFileName = Trim (oRegEx.Replace (msgFileName, " "))
dlgSaveAs.InitialFileName = SpecialPath & "\\" &Amp; msgFileName
Hvis dlgSaveAs.Show = -1 Så
strCurrentFile = dlgSaveAs.SelectedItems (1)
Hvis Høyre (strCurrentFile, 4) < > ".pdf" Så
Response = MsgBox ("Beklager, bare sparer i pdf-format støttes." & _
vbNewLine & vbNewLine & "Lagre som pdf i stedet? "vbInformation + vbOKCancel)
Hvis Response = vbCancel Så
wrdDoc.Close 0
Hvis bStarted Så wrdApp.Quit
Exit Sub Anmeldelser ElseIf Response = vbOK Så
intPos = InStrRev (strCurrentFile ".")
Hvis intPos > 0 Then
strCurrentFile = venstre (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, _
Fra: = 0, _
Til: = 0, _
Sak: = 0, _
IncludeDocProps: = True, _
KeepIRM: = True , _
CreateBookmarks: = 0, _
DocStructureTags: = true, _
BitmapMissingFonts: = True, _
UseISO19005_1: = False
End If
Set dlgSaveAs = Ingenting
wrdDoc.Close
Hvis bStarted Så wrdApp.Quit
Set MyOlNamespace = Ingenting Anmeldelser Set MySelectedItem = Ingenting
Sett wrdDoc = Ingenting
Set wrdApp = Ingenting
Set oRegEx = Ingenting
End Sub
Merk: Dette VBA-kode har blitt testet i Outlook 2007 og 2010
fire. Klikk for å kjøre koden.
5. Det vil være en File Save dialog dukker opp mens koden er i gang. Velg en bane for å lagre filen, name it, og til slutt klikker på Lagre-knappen.
6. Når koden ferdig med å kjøre, har e vellykket konvertert til pdf-fil.
