outlook——分类及密送

最近终于把领导推荐的书《小强升职记》看得差不多了，其中就有提到关于邮箱的整理。虽然整理邮箱一直在我的脑海中，但是苦于一直没有落地。今天终于把他落地了。对邮箱进行了分类，新建不同文件夹，并且创建了相应的规则，把那些看过处理过的邮件都给删了。就像和过去say goodbye。把一些比较重要的人发的邮件单独创建一个文件夹。把系统邮件的不同种类也都各设置了一个文件夹。感觉整齐了很多，但是这只是初步的分类，用了之后再慢慢进行优化。或许这也是一种“迭代”吧！

提到outlook，顺便把以前实现密码抄送的代码也给记录一下。有时除了做产品的工作外，还会做一些it支持的工作，对于同事的需求也想尽量满足他们。前段时间他们想实现自动秘密抄送，不想每次都手动添加密送的人。因为密送的人都是一个人。而且有时会忘记密送。为了满足他们懒惰的需求，就去网上搜了一段代码，通过outlook中的宏来实现密送。本来以为规则里会有密送这条。找了半天都没有，所以就不得不用宏了。一般万不得已不会去用它的，毕竟会有一定的风险存在。

打开编辑器，输入如下代码：红色地方就是需要密送的邮箱。

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 = "***@***.com"
Set objRecip = Item.Recipients.Add(strBcc)