Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tiffranka l-email bħala fajl pdf fl-Outlook?

Jekk qed taħdem ma 'Microsoft Outlook 2010 u 2007, issib li m'hemmx build-in fl-Outlook biex tibdel l-email għal format pdf. Għandek bżonn tikkonverti l-email għal fajl pdf b'xi żidiet relatati jew bil-kodiċi VBA. Bl-artikolu li ġej, faċilment tista 'tiffranka l-email bħala fajl pdf fl-Outlook.

Iffranka l-email bħala fajl pdf fl-Outlook bil-kodiċi VBA

Bulk jiffranka emails multipli bħala fajl pdf jew formati ta 'fajls oħra b'Safk Bulkidea tajba3

Iffranka jew Esportazzjoni ta 'emails multipli għal fajls fomat oħra (PDF / HTML / WORD / EXCEL) fl-Outlook

Kultant, tista 'tkun trid tiffranka jew tesporta l-emails għal folder bħala fajls oħra ta' format, bħal PDF, Word jew fajls Excel f'Perfos. Fl-Outlook, l-ebda waħda mill-funzjoni Save as u Export ma tista 'tieħu ħsieb dan ix-xogħol. Madankollu, Kutools għall-Outlook's Save as file L-utilità tista 'tesporta emails multipli għal folder bħala fajls b'formati multipli f'ħin darba. Ikklikkja għal ġranet 45 mingħajr prova!
dok esportazzjoni email lil msg 8
Kutools għall-Outlook: ma 'tużżani ta' Outlook add-ins handy, ħielsa li jippruvaw mingħajr limitazzjoni fil-ġranet 45.
Kutools għall-Outlook: 100 + Għodod Avvanzati Ġodda għall-Outlook.
Uffiċċju Tab: Jippermettu Tabbed Editing u Browsing fl-Uffiċċju, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic: Ġib il-Menus Qadim u Toolbars Lura għall-Uffiċċju 2007, 2010, 2013, 2016 u 2019.

Iffranka l-email bħala fajl pdf fl-Outlook bil-kodiċi VBA

1. L-ewwelnett għandek tagħżel l-email li tixtieq issalva bħala PDF.

2. Istampa Alt + F11 biex tniedi l - Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

3. ikklikkja Daħħal > Moduli, imbagħad kopja u paste tal-kodiċi VBA li ġej fit-tieqa tal-Modulu.

Il-kodiċi VBA tal-iffrankar tal-email bħala fajl 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

Nota: Dan il-kodiċi VBA ttestja b'suċċess fl-Outlook 2007 u 2010

4. ikklikkja biex imexxu l-kodiċi.

5. Se jkun hemm Fajl Salv dialog popping up waqt li l-kodiċi qed taħdem. Agħżel mogħdija biex issalva l-fajl, isemha, u finalment ikklikkja fuqha Ħlief buttuna.

6. Meta l-kodiċi jintemm, l-email sarlu b'suċċess konvertit għal fajl pdf.


Bulk jiffranka emails multipli bħala fajl pdf jew formati ta 'fajls oħra b'Safk Bulk

bil Kutools for Outlook installat, tista 'tuża tagħha Bulk Save utilità biex malajr tiffranka jew tesporta l-emails magħżula għal fajls PDF / fajls Excel / fajls CSV jew formati ta 'fajls oħra.

1. F'karta ta 'email, agħżel il-messaġġi li trid tiffranka bħala PDF, ikklikkja Kutools > Bulk Save.
doc jiffranka l-email bħala pdf 3

2. Ġol Bulk Save dialog, agħżel it-triq biex tpoġġi l-fajls il-ġodda, iċċekkja PDF format, u tista 'tispeċifika l - Save content kif għandek bżonn.
doc jiffranka l-email bħala pdf 4

3. ikklikkja Ok. Imbagħad l-emails magħżula ġew iffrankati bħala fajls PDF individwalment.
doc jiffranka l-email bħala pdf 5



Kutools għall-Outlook

Aktar minn Funzjonijiet Avvanzati ta '100 għal Outlook 2010, 2013, 2016, 2019 u 365

kutools ta 'screen shot għall-prospetti ċkejkna għall-bandiera 201812

Karatteristiċi Aktar | Free download | Biss $ 39.00 għal mijiet ta 'funzjonijiet

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amaury · 8 months ago
    Hi !!
    I have follow all the instructions but it doesn't work, " Compile error : Syntax error"
    Can you help me ? Please
    Amaury
  • To post as a guest, your comment is unpublished.
    Shashank Soni · 11 months ago
    This macro is really great and easy to use as well,thank you so much for sharing this.
    Just wanted to check is it possible to create same kind of macro for PDF attachment as well,because the above macro works only for excel and word format.

    Can any one one help me on this.
  • To post as a guest, your comment is unpublished.
    mac · 2 years ago
    I am wondering how I could change the folder the pdf goes to and change the filename(since all the emails I am copying are called the same thing
  • To post as a guest, your comment is unpublished.
    Kade · 2 years ago
    Been wondering how to do this for years, very easy, thank you
  • To post as a guest, your comment is unpublished.
    Mar · 2 years ago
    Hi All,

    PDF is saving in default size and I can't see all text, tables, etc. from email. How can I fix that? Is it any way to save email as PDF file in responsive size?