VBA实现 Outlook 2010 自动密件抄送

　

密件抄送

实现密件抄送方式有很多种，多数的方法为设置Outlook规则。这里讲尝试使用VBA来实现此功能。

1、打开Outlook 2010 ，使用快捷键 ALT + F11 ，如下图：

2、刚开始左侧 ThisOutlooksession中代码是空的，填入如下代码：

Private Sub APPlication_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As integer
    Dim strBcc As String
    On ERROR Resume Next
    strBcc = "[email protected]"
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    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

其中XXX@XXX填写你想要默认密件抄送的邮件地址即可。

文章最后发布于: 2014-05-06 13:42:21

相关阅读

jQuery实现简单分页

现在项目分页好多都是直接用插件，今天发现其实自己写页不难。主要是以前老师讲的时候没听。（对不起老何！哈哈）今天发布一个前端超简单

需求:公司outlook配置sina邮箱

需求:公司outlook配置sina邮箱 解决方法： 先进入网页版邮箱开启pop3/smtp服务 然后开始配置OUTLOOK 1、打开Outlook express软件，点

实现在线QQ客服功能

现在很多网页上都会有联系QQ客服的功能，其实实现起来有一个很简单的办法，就是把下面的代码复制粘贴到你的html里就可以了（记得改QQ号

猎人打猎(一)-----简单的实现

分析： 1. 名词：猎人、猎物、武器（枪） 2. 动词：打猎 关系 1.可以得到类Animal（猎物）、Hunter（猎人）、Gun(武器：枪) 2.类Hunter方法：pu

端口扫描器实现

head.h文件 #include <iostream> #include <Windows.h> using namespace std; struct MainThreadParam { DWORD StartIp;