С легкостью распечатайте отправленное электронное письмо с получателями скрытой копии в Outlook

Выполните следующие шаги, чтобы применить VBA для печати выбранного электронного письма, игнорируя его получателей в Outlook.

1. Выберите электронное письмо, которое вы распечатаете без получателей, и нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, а затем вставьте ниже код VBA в открывающееся окно модуля.

VBA: распечатать электронное письмо без получателей

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. нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA.

Теперь выбранное электронное письмо распечатывается без его получателей.

Примечание: Этот VBA распечатает электронное письмо с принтером по умолчанию и настройками печати, которые вы настроили в Outlook.

Поиск писем по именам получателей в Outlook

Подсчитайте количество получателей в полях Кому, Копия и Скрытая копия в Outlook

Печать получателей скрытой копии в отправленном электронном письме в Outlook