在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 鍵或單擊 跑 按鈕以運行此VBA。

現在，選定的電子郵件已打印出來，沒有收件人。

注意： 此VBA將使用您在Outlook中配置的默認打印機和打印設置來打印電子郵件。

在Outlook中按收件人姓名搜索電子郵件

計算Outlook中“收件人”，“抄送”和“密件抄送”字段中的收件人數

在Outlook中的已發送電子郵件中打印密件抄送收件人