outlook-2010 - 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

在这个 Outlook 会话中

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