Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i arbed e-bost fel ffeil pdf yn Outlook?

Os ydych chi'n gweithio gyda Microsoft Outlook 2010 a 2007, fe welwch nad oes ymgorffori yn Outlook i newid yr e-bost i fformat pdf. Mae angen ichi drosi'r e-bost i ffeil pdf gan rai ychwanegiad cysylltiedig neu gyda chod VBA. Gyda'r erthygl ganlynol, byddwch yn hawdd achub e-bost fel ffeil pdf yn Outlook.

Cadwch e-bost fel ffeil pdf yn Outlook gyda chod VBA

Yn swmp arbed nifer o negeseuon e-bost fel ffeil pdf neu fformatau ffeil eraill gyda Bulk Savesyniad da3

Cadw neu Allforio negeseuon e-bost lluosog i ffeiliau ffom eraill (PDF / HTML / WORD / EXCEL) yn Outlook

Weithiau, efallai y byddwch am achub neu allforio'r negeseuon e-bost at ffolder fel ffeiliau fformat eraill, fel ffeiliau PDF, Word neu Excel yn Outlook. Yn Outlook, ni all y swyddogaeth Achub fel ac Allforio drin y swydd hon. Fodd bynnag, Kutools ar gyfer Outlook's Save as file gall cyfleustodau allforio negeseuon e-bost lluosog i ffolder fel ffeiliau gyda fformatau lluosog ar yr un pryd. Cliciwch ar gyfer treialon 45 am ddim!
e-bost allforio doc i msg 8
Kutools for Outlook: gyda dwsinau o ychwanegu Outlook defnyddiol, am ddim i geisio heb gyfyngiad mewn diwrnodau 45.
Kutools ar gyfer Outlook: 100 + Offer Uwch Newydd ar gyfer Outlook.
Tab Swyddfa: Galluogi Golygu Tablau a Pori yn y Swyddfa, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Bwydlen Clasurol: Dewch â Hen Fwydlenni a Pheiriau Offer Yn ôl i Office 2007, 2010, 2013, 2016 a 2019.

Cadwch e-bost fel ffeil pdf yn Outlook gyda chod VBA

1. Yn gyntaf, dylech ddewis yr e-bost yr ydych am ei arbed fel PDF.

2. Gwasgwch Alt + F11 i lansio'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod VBA canlynol i ffenestr y Modiwl.

E-bost cadw cod VBA fel ffeil 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

Nodyn: Mae'r cod VBA hwn wedi'i brofi'n llwyddiannus yn Outlook 2007 a 2010

4. Cliciwch i redeg y cod.

5. Bydd yna Arbed ffeil deialog yn troi i fyny tra bod y cod yn rhedeg. Dewiswch lwybr i achub y ffeil, ei enwi, ac yna cliciwch ar Save botwm.

6. Pan fydd y cod yn gorffen yn rhedeg, mae'r e-bost wedi trosi yn llwyddiannus i ffeil pdf.


Yn swmp arbed nifer o negeseuon e-bost fel ffeil pdf neu fformatau ffeil eraill gyda Bulk Save

gyda Kutools for Outlook wedi'i osod, gallwch ei ddefnyddio Bulk Save cyfleustodau i arbed neu allforio'r negeseuon e-bost a ddewiswyd yn gyflym i ffeiliau PDF / ffeiliau Excel / ffeiliau CSV neu fformatau ffeil eraill.

1. Mewn ffolder e-bost, dewiswch y negeseuon yr ydych am eu cadw fel PDF, cliciwch Kutools > Bulk Save.
doc arbed e-bost fel pdf 3

2. Yn y Bulk Save deialog, dewiswch lwybr i osod y ffeiliau newydd, gwirio PDF format, a gallwch chi nodi'r Save content fel y mae arnoch ei angen.
doc arbed e-bost fel pdf 4

3. Cliciwch Ok. Yna, mae'r negeseuon e-bost a ddewiswyd wedi'u cadw fel ffeiliau PDF yn unigol.
doc arbed e-bost fel pdf 5



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

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 · 7 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 · 1 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?