როგორ სწრაფად მოხდეს Outlook ელ.ფოსტის ნაწილის ექსპორტი, როგორც ა PDF ფაილი

თუ გსურთ Outlook-ის ელფოსტის ნაწილის ექსპორტი, მთელი ელფოსტის ნაცვლად, როგორც ა PDF ფაილი, შეგიძლიათ წაიკითხოთ ეს სტატია. აქ ჩვენ გაგიწევთ მის მიღწევას VBA კოდით.

ჩემი წინა სტატიებიდან - "როგორ შეინახოთ Outlook ელფოსტა, როგორც PDF ფაილი"და"როგორ სწრაფად მოხდეს რამდენიმე Outlook ელ.ფოსტის ექსპორტი ერთჯერადად PDF ფაილი”, შეგიძლიათ ისწავლოთ მთელი ელფოსტის ექსპორტის გზები PDF ფაილი. მიუხედავად ამისა, ზოგჯერ, რაც გსურთ, არის ელ.ფოსტის ნაწილის ექსპორტი, როგორც ა PDF ფაილი. ამ ეტაპზე, შეგიძლიათ გამოიყენოთ შემდეგი VBA კოდი, რომ გააცნობიეროთ იგი. თუ თქვენ საერთოდ არ იცით როგორ გამოიყენოთ VBA, შეგიძლიათ მიმართოთ სტატიას – “როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში“ ამასობაში.

ელ.ფოსტის ნაწილის ექსპორტი, როგორც ა PDF ფაილი

1. დასაწყებად, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ, შედით Outlook VBA რედაქტორზე "Alt + F11" კლავიშების მალსახმობების საშუალებით.
3. შემდეგი, ამ ახალ ფანჯარაში გახსენით გამოუყენებელი მოდული.
4. ამის შემდეგ, დააკოპირეთ და ჩასვით შემდეგი 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

5. ამის შემდეგ, თქვენ უნდა დაამატოთ ახალი მაკრო შეტყობინებების ფანჯრის სწრაფი წვდომის ინსტრუმენტთა პანელში.
6. საბოლოოდ, შეგიძლიათ გადაიღოთ კადრი:

• თავდაპირველად გახსენით ელ.წერილი.
• შემდეგ აირჩიეთ შინაარსი, რომლის ექსპორტი გსურთ.
• შემდეგი, დააწკაპუნეთ მაკრო ღილაკზე სწრაფი წვდომის ხელსაწყოთა ზოლში.
• ერთდროულად, მაკრო იმუშავებს.
• როდესაც მაკრო დასრულდება, შეგიძლიათ გადახვიდეთ წინასწარ განსაზღვრულ ლოკალურ საქაღალდეში, სადაც ნახავთ ახალს PDF ფაილი.
• გახსენით და დაინახავთ, რომ ის ჰგავს შემდეგ ეკრანის სურათს:

ეფექტური ზომები Outlook-ის დაზიანების შემდეგ

მიუხედავად მრავალი შესანიშნავი ფუნქციით, Outlook მაინც ვერ იქნება იმუნური დაზიანებისგან. სინამდვილეში, ის მიდრეკილია კორუფციისკენ სხვადასხვა ფაქტორების გამო, როგორიცაა ვირუსები, მავნე პროგრამები, პროგრამული უზრუნველყოფის ხარვეზები და ტექნიკის პრობლემები და ა.შ. ამ სცენარში აუცილებელია ზომების მიღება დაზიანებული Outlook მონაცემების გადასარჩენად, გაშვების ჩათვლით სკანპსტი ფაილის შესაკეთებლად, უახლესი სარეზერვო ასლების შემოწმებით და ძლიერი და საიმედო PST გამოსწორების ინსტრუმენტის გამოყენებით, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად