我有一个自定义工具栏,我希望根据有关在活动检查器中查看的当前电子邮件的某些条件来切换可见性。每次用户更改他/她正在查看的电子邮件时,我都需要检查这一点。我对编写加载项非常新,但我想代码看起来像这样:
Sub EmailBeingViewed_Change(object, args) Handles 'Whatever-the-event-is-called
Dim OpenEmail As Outlook.MailItem = CType(object, Outlook.MailItem)
If OpenEmail.Body 'Contains thing I care about' _
Then
MyToolbar.Visible = True
End If
End Sub
任何帮助都将不胜感激。
答案 0 :(得分:1)
使用Explorer.SelectionChange事件。