Birden Çok Outlook E-postasının Ek Listelerini Yazdırmanın 2 Hızlı Yöntemi

Bazen birden çok e-postanın ek listelerini çıkarmanız ve yazdırmanız gerekir. Bu yazıda size onu elde etmenin 2 yöntemini öğreteceğiz.

Referanslarınız için birden çok ek içeren birkaç e-posta alırsanız, bu ek adlarını yazdırmak isteyebilirsiniz. Bu durumda toplu olarak nasıl temin edebilirsiniz? Bundan sonra, yalnızca birden çok Outlook e-postasının ek listelerini hızlı bir şekilde yazdırmanın 2 yolunu öğreteceğiz.

Yöntem 1: Ek Listesini Zengin Metin Biçiminde Yazdırın ve Kopyalayın

1. En başta, bir Outlook e-postası açın.
2. Ardından, Mesaj penceresinde "Eylemler"i tıklayın ve "Mesajı Düzenle"yi seçin.
3. Ardından, “Zengin Metin” biçimini seçeceğiniz “Metin Biçimlendir” sekmesine dönün.
4. Hemen, e-posta eklerinin gövdeye taşındığını görebilirsiniz.
5. Daha sonra “Mesaj” sekmesindeki “Yanıtla” grubunda “Yanıtla” butonuna tıklayın.
6. Sonraki postada, ek listesi, aşağıdaki ekran görüntüsü gibi zaten gövdedeydi.
7. Artık ek listesini yeni bir e-postaya kopyalayabilirsiniz.
8. Daha sonra, diğer e-postaların ek listelerini yeni postaya kopyalamak için bu yöntemi kullanın.
9. Son olarak, bu yeni postayı her zamanki gibi yazdırabilirsiniz.

Yöntem 2： Outlook VBA ile Ek Listelerini Yazdırın

1. Öncelikle, Outlook VBA düzenleyicisini açmak için “Alt + F11” tuşlarına basın.
2. Ardından, aşağıdaki VBA kodunu bir modüle kopyalayın.

Sub PrintAttachmentListsOfManyEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objTempMail As Outlook.MailItem
    
    'Get the selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Input the attachment lists into a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
       For i = 1 To objSelection.Count
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Attachments.Count > 0 Then
 
                 objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
 
                 For n = 1 To objMail.Attachments.Count
                     Set objAttachment = objMail.Attachments(n)
                     objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
                 Next
              End If
           End If
       Next

       'Print the temp mail
       objTempMail.PrintOut
     End If
End Sub

3. Daha sonra – “ makalesine başvurarak bu makroyu Hızlı Erişim Araç Çubuğuna ekleyin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
4. Sonunda, bu makroyu deneyin.

• İlk başta birkaç e-posta seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Hemen, bu e-postaların ek listelerinin çıktısı alınmış olmalıdır.

Bir Tip-top Outlook Onarım Aracına Başvurun

Outlook dosyası hasarıyla karşılaştığınızda, elinizde yeni bir Outlook veri yedeğinizin olması en iyi haber olmalıdır. Karmaşık Outlook dosya düzeltmesinden kurtulmanıza izin verebilir. Ancak, bazen yedekleme geri yüklenemez. Bu noktada, daha parlak ve profesyonel bir düzeltme aracına başvurmanız gerekecek. DataNumen Outlook Repair. Tamir edebilir bozuk PST dakikalar içinde.

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