Bir Outlook E-postasının Bir Kısmını Hızlı Bir Şekilde Dışa Aktarma PDF fileto

E-postanın tamamı yerine bir kısmını Outlook e-postası olarak dışa aktarmak istiyorsanız, PDF dosyası, bu makaleyi okuyabilirsiniz. Burada, bunu bir VBA koduyla başarmanız için size rehberlik edeceğiz.

Önceki yazılarımdan – “Bir Outlook E-postasını Farklı Olarak Kaydetme PDF filetove Gülay Pala iseBirden Çok Outlook E-postasını Hızlı Bir Şekilde Tek Olarak Dışa Aktarma PDF fileto”, tüm e-postayı şu şekilde dışa aktarmanın yollarını öğrenebilirsiniz: PDF dosya. Bununla birlikte, bazen istediğiniz şey, bir e-postanın bir kısmını bir e-posta olarak dışa aktarmaktır. PDF dosya. İşte o noktada, gerçekleştirmek için aşağıdaki VBA kodunu kullanabilirsiniz. VBA'yı nasıl kullanacağınızı tamamen bilmiyorsanız, makaleye başvurabilirsiniz – “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?" Bu sırada.

Bir E-postanın Bir Kısmını Dışa Aktarma PDF fileto

1. Öncelikle Outlook programınızı başlatın.
2. Ardından, "Alt + F11" tuş kısayolları ile Outlook VBA düzenleyicisine erişin.
3. Ardından, bu yeni pencerede kullanılmayan bir modülü açın.
4. Ardından, aşağıdaki VBA kodunu kopyalayıp bu modüle yapıştırın.

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. Bundan sonra, yeni makroyu mesaj penceresinin Hızlı Erişim Araç Çubuğuna eklemelisiniz.
6. Son olarak, çekim yapabilirsiniz:

• İlk önce bir e-posta açın.
• Ardından, dışa aktarmak istediğiniz içeriği seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Hemen, makro çalışacaktır.
• Makro bittiğinde, yeni bir tane göreceğiniz önceden tanımlanmış yerel klasöre gidebilirsiniz. PDF dosyası.
• Açın ve aşağıdaki ekran görüntüsüne benzediğini göreceksiniz:

Görünüm Hasarından Sonra Etkili Tedbirler

Çok sayıda mükemmel işleve sahip olmasına rağmen, Outlook hala hasardan muaf olamaz. Aslında, virüsler, kötü amaçlı yazılımlar, yazılım hataları ve donanım sorunları gibi çeşitli faktörler nedeniyle bozulmaya eğilimlidir. Bu senaryoda, zarar görmüş Outlook verilerini kurtarmak için başlatma da dahil olmak üzere gerekli önlemlerin alınması önemlidir. Tarama Dosyayı onarmak için, en son yedeklemeleri kontrol edin ve güçlü, güvenilir bir PST onarım aracından yararlanın, örneğin... DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com