Outlook elektron pochtasining bir qismini qanday qilib tezda eksport qilish mumkin PDF Fayl

Agar siz butun elektron pochta o'rniga Outlook elektron pochtasining bir qismini eksport qilmoqchi bo'lsangiz, a PDF fayl, siz ushbu maqolani o'qishingiz mumkin. Bu erda biz sizga VBA kodi bilan erishish uchun ko'rsatma beramiz.

Oldingi maqolalarimdan - "Outlook elektron pochta manzilini qanday saqlash kerak PDF Fayl"Va"Qanday qilib bir nechta Outlook elektron pochta xabarlarini bitta sifatida tezda eksport qilish mumkin PDF Fayl”, deb butun elektron pochtani eksport qilish usullarini o'rganishingiz mumkin PDF fayl. Shunday bo'lsa-da, ba'zida siz xohlagan narsa elektron pochta qismini a sifatida eksport qilishdir PDF fayl. O'sha paytda, uni amalga oshirish uchun quyidagi VBA kodidan foydalanishingiz mumkin. Agar siz VBA-dan qanday foydalanishni umuman bilmasangiz, maqolaga murojaat qilishingiz mumkin – “Outlook-da VBA kodini qanday ishlatish kerak” shu bilan birga.

Elektron pochtaning bir qismini a sifatida eksport qiling PDF Fayl

1. Boshlash uchun Outlook dasturingizni ishga tushiring.
2. Keyin, "Alt + F11" yorliqlari orqali Outlook VBA muharririga kiring.
3. Keyinchalik, ushbu yangi oynada foydalanilmagan modulni oching.
4. Keyinchalik, ushbu modulga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.

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

5. Shundan so'ng, xabar oynasining Tez kirish asboblar paneliga yangi makrosni qo'shishingiz kerak.
6. Nihoyat, siz suratga olishingiz mumkin:

• Avvaliga elektron pochtani oching.
• Keyin eksport qilmoqchi bo'lgan tarkibni tanlang.
• Keyin, Tez kirish asboblar panelidagi so'l tugmasini bosing.
• Birdaniga makro ishga tushadi.
• Makros tugagach, oldindan belgilangan mahalliy jildga o'tishingiz mumkin, u erda siz yangisini ko'rasiz PDF file.
• Uni oching va siz quyidagi skrinshotga o'xshashligini ko'rasiz:

Outlook zararidan keyin samarali choralar

Ko'p ajoyib funktsiyalari bilan maqtansa ham, Outlook hali ham zararlardan himoyalana olmaydi. Aslida, viruslar, zararli dasturlar, dasturiy ta'minotdagi nosozliklar, apparat muammolari va boshqalar kabi turli omillar tufayli korruptsiyaga moyil. Ushbu stsenariyda shikastlangan Outlook ma'lumotlarini qutqarish uchun choralar ko'rish, shu jumladan ishga tushirish kerak. Scanpst faylni ta'mirlash, eng so'nggi zaxira nusxalarini tekshirish va kuchli va ishonchli PST tuzatish vositasidan foydalanish, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc ta'mirlash mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com