如何在撰寫 Outlook 電子郵件時將正文中出現的所有電子郵件地址快速復製到“抄送”字段

Outlook解決方案 2025 年 9 月 29 日
立即分享：

有時，當您撰寫電子郵件時，您可能希望將此郵件抄送給郵件正文中的電子郵件地址。 本文將指導您快速獲取。

例如，有人向您詢問某些人的聯繫信息，例如電子郵件地址。 在這種情況下，您可能希望在向其他人發送他們的聯繫信息時讓這些人知道這件事。 因此，您想將郵件正文中的電子郵件地址複製到“抄送”字段。 一般來說，你必須手動一個一個地完成。 但這太乏味和麻煩了。 所以，在下面，我們將介紹一種更智能的方式。撰寫 Outlook 電子郵件時，將正文中出現的所有電子郵件地址複製到“抄送”字段

撰寫時將正文中出現的電子郵件地址複製到“抄送”字段

  1. 一開始，按“Alt + F11”鍵啟動 Outlook VBA 編輯器。
  2. 然後，在新窗口中，將以下 VBA 代碼放入一個空模塊中。
Sub CopyEmailAddresses_FromBodyToCCField()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Object
    Dim objDocRange As Object
    Dim objRecipient As Outlook.Recipient
 
    'Get the current mail
    Set objMail = Application.ActiveInspector.CurrentItem
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocRange = objMailDocument.Range
 
    'Extract email addresses from mail body
    With objDocRange.Find
         .ClearFormatting
         .Replacement.ClearFormatting
         .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
         .MatchWildcards = True
         .Wrap = wdFindStop
         .Execute
    End With
 
    'Add the found email addresses as CC recipients
    While objDocRange.Find.Found
          Set objRecipient = objMail.Recipients.Add(objDocRange.Text)
          objRecipient.Type = olCC
          objDocRange.Collapse wdCollapseEnd
          objDocRange.Find.Execute
    Wend
 
    'Resolve all recipients
    objMail.Recipients.ResolveAll
End Sub

VBA 代碼 - 將正文中出現的電子郵件地址複製到“抄送”字段

  1. 之後，退出VBA編輯器，參考“如何在Outlook中運行VBA代碼“。
  2. 最終，您可以進行拍攝。 這是我的實際例子。
  • 首先，我撰寫了一封電子郵件，其中包含一堆正文中的電子郵件地址。
  • 然後，單擊快速訪問工具欄中的宏按鈕。運行宏
  • 立即，當宏完成時，正文中的所有電子郵件地址將被複製到“CC”字段，如下面的屏幕截圖。複製到“抄送”字段的電子郵件地址

如果您的 Outlook 數據損壞怎麼辦

眾所周知，Outlook 可能因多種因素而出現故障，例如人為錯誤、突然關機、Outlook 內部軟體故障以及電腦硬體故障等等。因此，實際上許多使用者都遇到類似的 Outlook 問題。其中，最令人頭痛和棘手的問題是 Outlook 檔案損壞。在這種情況下，您需要尋求專業人士的協助。 PST恢復 服務或軟件，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 mdf修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。