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