Automatically cc/bcc the mail messages
用了很长时间的 Thunderbird，随着收件箱里的邮件越来越多，形成了以下的使用习惯：
- 按邮件的属性分成多个类别（文件夹）；
- 更改设置，在发送一封邮件的同时，将其 bcc 给自己；
- 在一个分类下，按索引（会话）方式罗列邮件；
这样，邮箱里显示的是一个个的索引（会话），而不再是单独的邮件。其实用性不用多说，好多人也是这样用的。
由于工作原因，目前使用的是 Outlook。在 Outlook 里，1 和 3 基本上不是问题，但 2 却无法直接搞定。
还好有网络，花了点时间，找到了一些免费的解决方案：http://www.msofficeforums.com/outlook/862-outlook-automatic-bcc-another-e-mail-account.html，http://www.slipstick.com/mail1/always_bcc.asp#.Ti0pMmHD4Rw。当然，需要调整一下安全设置。
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 = "user@domain.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub