在表单中单击按钮后修改电子邮件获取错误对象是必需的

Question

在ThisOutlookSession中：

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class <> olMail Then Exit Sub
Set objMyNewMail = Inspector.CurrentItem
End Sub

在表单代码中：

Private Sub SendButton_Click()
EmailFlagger.Hide
objMyNewMail.Body = objMyNewMail.Body & EmailFlagger.Exemptions.Text 
End Sub

我得到了所需的错误对象。我该如何解决这个问题？

Answer 1

目前尚不清楚哪行代码会产生错误...尝试在Click事件处理程序中切换代码行：

Private Sub SendButton_Click()
  objMyNewMail.Body = objMyNewMail.Body & EmailFlagger.Exemptions.Text
  EmailFlagger.Hide 
End Sub

NewInspector事件不是访问邮件项目对象的正确位置。请改用Activate事件。例如，在NewInspector事件处理程序中，您可以订阅Activate事件，您可以在其中获取有效的邮件对象。