Outlook'ta Gizli alıcılarla gönderilen bir e-postayı kolayca yazdırın

Outlook'ta alıcılarını yok sayarak seçilen e-postayı yazdırmak üzere VBA'yı uygulamak için lütfen aşağıdaki adımları izleyin.

1. Alıcılar olmadan yazdıracağınız e-postayı seçin ve Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

2. tık Ekle > modülve ardından açılan Modül penceresine VBA kodunun altına yapıştırın.

VBA: Alıcıları olmayan bir e-postayı yazdırın

Public Sub PrintWithoutRecipient()
Dim oItem As Outlook.MailItem
Dim i As Long

For i = 1 To Application.ActiveExplorer.Selection.Count
Set oItem = Application.ActiveExplorer.Selection.Item(i)
oItem.To = ""
oItem.CC = ""
oItem.PrintOut
oItem.Close olDiscard
Set oItem = Nothing
Next
End Sub

3. Tuşuna basın. F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

Şimdi seçilen e-posta alıcıları olmadan yazdırılır.

Not: Bu VBA, e-postayı Outlook'ta yapılandırdığınız varsayılan yazıcı ve yazdırma ayarlarıyla yazdıracaktır.

Outlook'ta e-postaları alıcıların adlarına göre arayın

Outlook'ta Kime, Bilgi ve Gizli alanlarındaki alıcıların sayısını sayın

Outlook'ta gönderilen bir e-postadaki gizli alıcıları yazdırın