在Outlook中如何实现自动CC
2011-04-12 14:01
281 查看
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,看到提示是否否用宏,选择启用。
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,看到提示是否否用宏,选择启用。
相关文章推荐
- [Outlook] outlook如何实现自动CC和BCC邮件发送
- 如何实现Outlook 2010 下载邮件后自动删除服务器上的邮件
- 如何设置outlook实现自动秘密抄送邮件的功能?
- 如何新建Outlook电子邮件规则实现邮件自动分类
- 在Outlook中如何实现自动密送
- 如何设置outlook实现自动秘密抄送邮件的功能?
- iOS 开发笔记 - 开发中如何实现自动检测更新APP
- 如何在OUTLOOK签名中自动加入日期
- 如何利用Guava实现方法调用超时自动中断
- 如何利用UDP组播实现海康网络摄像机(IPC)的自动探测【源码】【监控】【录播】【NVR】【ONVIF】
- 黄聪:如何配置Emeditor实现代码智能识别自动完成功能
- 如何设置使Windows XP实现自动登录
- 关于字符和数字类型的索引,Oracle如何实现内部自动转换以及索引使用的验证测试
- 中科院罗平演讲全文:自动撰写金融文档如何实现,用 AI 解
- [VB.NET]求如何用VB.NET语言+ACCECC数据库实现一个对会员等级自动升级功能!
- 如何利用cab包实现控件的自动升级
- 如何实现Linux 自动登陆
- 如何实现Silverlight DataGrid控件的列宽自动填充
- 如何实现Windows 2008自动登陆设置
- php如何实现定时任务,php定时任务方法,最佳解决方案,php自动任务处理