鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网络程序脚本 > VBA > >

在Outlook中如何实现自动CC

来源:互联网 作者:佚名 时间:2015-09-27 08:19
1. 在 Outlook 里面键入 ALT+F11 打开 VBA 编辑器; 2 、键入 CTRL+R 激活左边的那个工程面板,展开并双击上面的 Project (VbaProject.OTM)\Microsoft Office Outlook 对象 \ThisOutlookSession ; 3 、将下面的代码粘贴到右边打开的编辑区里面去: Private

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,看到提示是否否用宏,选择启用。

网友评论
<