在Outlook中如何?自動CC

1. 在Outlook裡面鍵入ALT+F11開啟VBA編輯器；

2、鍵入CTRL+R啟用左邊的那個工程面板，展開並雙擊上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 對象\ThisOutlookSession”；

3、將下面的代碼粘貼到右邊開啟的編輯區裡面去：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strcc As String
On Error Resume Next

strcc = "yourmail@mail.com"

Set objRecip = Item.Recipients.Add(strcc)
objRecip.Type = olCC
If Not objRecip.Resolve Then
       strMsg = "不能解析抄送人郵件地址， " & _
                "請確認是否仍然發送郵件？"
       res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
            "不能解析抄送人郵件地址")
       If res = vbNo Then
         Cancel = True
       End If
End If

Set objRecip = Nothing

End Sub

 

4、鍵入CTRL+S儲存，再鍵入ALT+Q退出VBA編輯器返回Outlook主介面；

6、選擇菜單“工具-信任中心”，在快顯視窗中選擇“宏安全性”；

7、選擇“為所有宏提供警告”

8、重新啟動Outlook，看到提示是否否用宏，選擇啟用。