从特定帐户执行操作时触发

Question

我有这样的代码，让我在回复，转发和撰写电子邮件时执行操作：

Public WithEvents myItem As Outlook.MailItem

Private Sub Application_ItemLoad(ByVal Item As Object)
    If Item.Class = olMail Then
        Set myItem = Item
    End If
End Sub

Private Sub myItem_Open(Cancel As Boolean)
    msgbox ("hello world")
End Sub

现在，我希望仅在我回复的特定帐户，转发或撰写新邮件时自动在CC中添加收件人。我是noob编码。任何线索如何开始？感谢您分享任何知识。

Answer 1

使用Application.Session.Accounts(1))属性。如果为null，则可以假定正在使用默认帐户（return。