Outlook电子邮件通知VB代码

Question

找到此代码，以便我的会议提醒覆盖所有当前窗口，因此我不得不看到通知。希望每次收到电子邮件通知时都设置类似的东西。目前它被推到后面，我甚至没有看到它。

Private Sub Application_Reminder(ByVal Item As Object)


If TypeOf Item Is AppointmentItem Then
Application.ActiveExplorer.Activate
End If


End Sub

任何帮助将不胜感激。

在这里找到教程

http://www.darthandy.com/2011/02/how-to-get-outlook-appointment.html

Answer 1

在ThisOutlookSession

中

Private Sub Application_NewMail()
    Application.ActiveExplorer.Activate
End Sub