您是否經常希望回复所有人,包括自己作為接收者? 如果您總是手動添加自己的電子郵件地址,那就太麻煩了。 本文將教您如何使其自動化。
也許您在Outlook中配置了多個電子郵件帳戶。 因此,也許是為了方便以後檢查,當您答复所有收件人的郵件時,您可能還希望包含另一個電子郵件地址作為收件人。 假設您經常有此要求,那麼如果您始終手動添加自己的電子郵件帳戶,將很繁瑣。 針對此問題,在這裡我們將向您介紹一種解決方法以及一種通過Outlook VBA的快速方法。
解決方法:創建一個Outlook規則
- 首先,啟動 Outlook 應用程序,然後在「郵件」標籤下的「移動」群組中按一下「規則」按鈕。然後從下拉清單中選擇「管理規則和通知」。
- 然後在彈出窗口中,點擊“新建規則”按鈕。
- 接下來,選擇“對我發送的郵件應用規則”,然後點擊“下一步”。
- 之後,您應該選擇“主題中包含特定詞”,點擊“特定詞”鏈接,然後添加“ RE”。

- 添加它並單擊“下一步”後,您應該指定操作。 選擇“抄送給個人或公共組的郵件”,單擊“個人或公共組”鏈接,然後在“收件人”字段中鍵入您自己的電子郵件地址。
- 最後,您可以單擊“下一步”並照常完成規則設置。
但是,此替代方法不會自動將您自己的電子郵件地址添加為回復電子郵件中的一個收件人。 它將創建另一個新電子郵件,並將您添加到“抄送”字段中並發送出去。 此外,它無法識別收件人的數量,也無法識別它是否是全部答复的電子郵件。 要解決此變通辦法的弱點,這是通過Outlook VBA的一種實際方法。
回复所有人時使用VBA自動包含自己
- 首先,啟動 Outlook,然後按下「Alt + F11」鍵。
- 然後在彈出的“ Visual Basic”窗口中,打開“ ThisOutlookSession”項目,並將以下VBA代碼複製並粘貼到其中。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Recip As Recipient
Dim MyAddr As String
'Replace with your own email address
MyAddr = "youremailaddress@datanumen.com"
If InStr(Item.Subject, "RE") > 0 Then
If Item.Recipients.Count > 1 Then
If MsgBox("Reply All Including Yourself?", vbYesNo + vbQuestion) = vbYes Then
Set Recip = Item.Recipients.Add(MyAddr)
'To CC, replace "olTo" with "olCC"
'To BCC, replace "olTo" with "olBCC"
Recip.Type = olTo
Recip.Resolve
End If
End If
End If
End Sub
- 之後,您應該對此代碼簽名並更改宏設置,以僅允許使用數字簽名的宏。
- 最後,您可以嘗試一下。 當您答复所有收件人並單擊“發送”按鈕時,您將收到一個Outlook提示,如以下屏幕截圖所示。 如果單擊“是”,Outlook將自動添加您自己的電子郵件地址。
照顧您的Outlook PST文件
由於Outlook PST文件的漏洞,您應該當心所有潛在的風險。 例如,您應該將文件保持較小尺寸,因為過大的PST文件更容易損壞。 另外,你應該掌握一個恆星 損壞的PST文件修復工具,當您遭受意想不到的PST文件損壞時,這將為您提供幫助。
作者簡介:
Shirley Zhang是的數據恢復專家 DataNumen,Inc.是數據恢復技術的全球領導者,包括 修理腐敗 SQL Server db 和Outlook修復軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM


