Ինչպես արագ արտահանել Outlook էլփոստի մի մասը, որպես PDF Ֆայլ

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք արտահանել Outlook էլփոստի մի մաս, ամբողջ էլփոստի փոխարեն, որպես a PDF ֆայլ, կարող եք կարդալ այս հոդվածը: Այստեղ մենք ձեզ կառաջնորդենք դրան հասնել VBA կոդով:

Իմ նախորդ հոդվածներից ՝ «Ինչպե՞ս պահպանել Outlook էլ. Փոստը որպես PDF Ֆայլ"Եւ"Ինչպե՞ս արագ արտահանել բազմաթիվ Outlook էլփոստի նամակներ ՝ որպես սինգլ PDF Ֆայլ”, Դուք կարող եք սովորել ամբողջ էլ. Փոստը արտահանելու ձևեր PDF ֆայլ Այնուամենայնիվ, երբեմն, ձեր ուզածն է ՝ էլ. Փոստի մասն արտահանել որպես a PDF ֆայլ Այդ պահին այն իրացնելու համար կարող եք օգտագործել հետևյալ VBA կոդը: Եթե լիովին չգիտեք, թե ինչպես օգտագործել VBA- ն, կարող եք դիմել հոդվածին ՝ «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում" միեւնույն ժամանակ.

Էլ. Փոստի մի մասի արտահանում ՝ PDF Ֆայլ

Սկսելու համար գործարկեք ձեր Outlook ծրագիրը։
Դրանից հետո մուտք գործեք Outlook VBA խմբագիր «Alt + F11» ստեղնային դյուրանցումների միջոցով:
Հաջորդը, այս նոր պատուհանում բացեք չօգտագործված մոդուլը:
Դրանից հետո պատճենեք և տեղադրեք հետևյալ VBA կոդը այս մոդուլում:

Sub ExportSelectionAsPDF()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strPDF As String
 
    'Get the currently opened email
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objMail Is Nothing Then
       'Copy the current selection
       Set objMailDocument = objMail.GetInspector.WordEditor
       Set objDocSelection = objMailDocument.Application.Selection
       objDocSelection.Copy
 
       'Paste the selection into a new Word document
       Set objWordApp = CreateObject("Word.Application")
       Set objTempDocument = objWordApp.Documents.Add
       objWordApp.Visible = True
       objTempDocument.Activate
       objWordApp.Selection.EndKey wdStory
       objWordApp.Selection.PasteAndFormat wdPasteDefault
 
       'Export the document as a PDF file
       'Change the path as per your needs
       strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
       objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

       objTempDocument.Close False
       objWordApp.Quit
    End If
End Sub

Դրանից հետո դուք պետք է նոր մակրոը ավելացնեք հաղորդագրության պատուհանի Արագ մատչելիության Գործիքադարակում:
Վերջապես, կարող եք նկարահանել.

Սկզբում բացեք էլ.
Հետո ընտրեք այն բովանդակությունը, որը ցանկանում եք արտահանել:
Հաջորդը, սեղմեք մակրո կոճակը Արագ մուտքի Գործիքադարակում:
Միանգամից մակրոը կաշխատի:
Երբ մակրոն ավարտվի, կարող եք անցնել նախապես որոշված տեղական պանակ, որտեղ կտեսնեք նորը PDF ֆայլը.
Բացեք այն և կտեսնեք, որ կարծես հետևյալ սքրինշոթն է.

Արդյունավետ միջոցառումներ Outlook- ի վնասից հետո

Չնայած պարծենալով բազմաթիվ գերազանց գործառույթներով ՝ Outlook- ը դեռ չի կարող պաշտպանվել վնասներից: Իրականում, այն հակված է կոռուպցիայի ՝ տարբեր գործոնների պատճառով, ինչպիսիք են վիրուսները, վնասակար ծրագրերը, ծրագրային ապահովման անսարքությունները և ապարատային խնդիրները և այլն: Այս սցենարում անհրաժեշտ է միջոցներ ձեռնարկել Outlook- ի վնասված տվյալները փրկելու համար, ներառյալ գործարկելը Սկանպստ ֆայլը վերականգնելու համար՝ ստուգելով վերջին պահուստային պատճենները և օգտվելով հզոր, հուսալի PST շտկման գործիքից, ինչպիսին է DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com