? 由于我平時工作的時候總是在遠程桌面或者虛機里邊，所以經常有新郵件或者Reminder沒有能及時察覺，所以便寫了這么一個VBA，在有新郵件或者reminder的時候使用主板小喇叭來點動靜。關于Outlook的編程可以參考這篇文章

?

Option ExplicitPrivate Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongConst ONE_BEEP = 600Const HALF_BEEP = 300Const NOTE_1 = 440Const NOTE_2 = 495Const NOTE_3 = 550Const NOTE_4 = 587Const NOTE_5 = 660Const NOTE_6 = 733Const NOTE_7 = 825Private Sub Application_NewMail()Beep NOTE_5, ONE_BEEPBeep NOTE_3, HALF_BEEPBeep NOTE_5, HALF_BEEPBeep NOTE_1 * 2, ONE_BEEP * 2 End SubPrivate Sub Application_Reminder(ByVal Item As Object)Beep NOTE_3, ONE_BEEPBeep NOTE_3, HALF_BEEPBeep NOTE_2, HALF_BEEPBeep NOTE_3, ONE_BEEP * 2 End Sub

總結

以上是生活随笔為你收集整理的Outlook中自定义新邮件提醒的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。