僅向Outlook電子郵件的密件抄送收件人發送第二封電子郵件的2種快速方法

Outlook解決方案 2025 年 9 月 29 日

您將電子郵件發送給多個收件人，並將其中一些放在“密件抄送”字段中。以後，如果您只想發送第二封郵件給密件抄送收件人，則可以利用本文中共享的方法。

您是否曾經向多個收件人的“密件抄送”字段中的任何收件人發送過任何Outlook電子郵件？有時，發送完此類電子郵件後，您可能希望向特定類型的收件人（例如密件抄送收件人）發送第二封電子郵件。例如，您想向他們發送一些特別的附加說明。現在，我們將向您介紹2種方法。前者正在使用複制和粘貼。由於使用VBA代碼，後者實際上要有效得多。您可以根據自己的需要進行選擇。

方法1：手動將密件抄送收件人復製到新電子郵件

首先，在“已發送郵件”文件夾的電子郵件列表中，選擇原始電子郵件。
然後，雙擊此郵件以在其自己的“消息”窗口中將其打開。
隨後，在新窗口中，在“密件抄送”行中選擇一位收件人。
接下來，按“ Ctrl + A”選擇所有“密件抄送”收件人。
稍後，右鍵單擊並從上下文菜單中選擇“複製”。
之後，關閉此電子郵件。
然後，通過“主頁”選項卡上的“新電子郵件”按鈕創建一個新電子郵件。
最後，將復制的密件抄送收件人粘貼到此新電子郵件的“收件人”字段中。
目前，您可以隨意撰寫和發送此新郵件

方法2：通過VBA向“密件抄送”收件人發送第二封電子郵件

首先，按“ Alt + F11”以訪問VBA編輯器。
然後，將下面的VBA代碼放入未使用的模塊中。

Sub SendAnotherEmailToBCCRecipients()
    Dim objOriginalMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objNewMail As Outlook.MailItem
    Dim objNewRecipient As Outlook.Recipient
 
    'Get source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Inspector"
                Set objOriginalMail = ActiveInspector.CurrentItem
           Case "Explorer"
                Set objOriginalMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Copy the BCC recipients to "To" field in new mail
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    For Each objRecipient In objOriginalMail.Recipients
        If objRecipient.Type = olBCC Then
           Set objNewRecipient = objNewMail.Recipients.Add(objRecipient)
           objNewRecipient.Type = olTo
           objNewRecipient.Resolve
        End If
    Next
 
    'Change the new email details
    With objNewMail
        .Subject = "Additional Notes for " & objOriginalMail.Subject
        .Body = "Type mail body here....."
        .Attachments.Add ("E:\Dos & Don'ts.txt")
        .Importance = olImportanceHigh
        .ReadReceiptRequested = True
        .Send
        .Display
    End With
End Sub