实现密件抄送方式有很多种,多数的方法为设置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