1.启用Outlook的DEVELOPER（开发工具）功能区。2007和2010版应该比较容易找到，至于2013版的话请参考下图。
2.在开发工具功能区，点击Visual Basic，打开VBA编辑界面。
3.如下图，双击ThisOutlookSession，代码编辑框将在右边被打开。
4.在代码编辑框选中Application -> ItemSend，对邮件发送事件进行编码。并删除下列代码。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim BccAddress As String
Dim BccRecipient As Outlook.Recipient
BccAddress = "bccaddress@gmail.com"
Set BccRecipient = Item.Recipients.Add(BccAddress)
If Not BccRecipient.Resolve Then
MsgBox ("Cannot resolve mail address: " + BccAddress)
Item.Recipients.Remove (BccRecipient.Index)
End If
Set BccRecipient = Nothing
