Snadno vytiskněte odeslaný e-mail s příjemci skryté kopie v aplikaci Outlook

Chcete-li použít VBA k tisku vybraného e-mailu s ignorováním jeho příjemců v aplikaci Outlook, postupujte podle následujících kroků.

1. Vyberte e-mail, který budete tisknout bez příjemců, a stiskněte Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2. cvaknutí Vložit > Modula poté vložte pod kód VBA do úvodního okna modulu.

VBA: Tisk e-mailu bez příjemců

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. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto VBA.

Nyní je vybraný e-mail vytištěn bez jeho příjemců.

Poznámka: Tato VBA vytiskne e-mail s výchozí tiskárnou a nastavením tisku, které nakonfigurujete v aplikaci Outlook.

Vyhledávejte e-maily podle jmen příjemců v Outlooku

Spočítejte počet příjemců v polích Komu, Kopie a Skrytá kopie v aplikaci Outlook

Tisk příjemců BTC v odeslaném e-mailu v aplikaci Outlook