? 由于我平時(shí)工作的時(shí)候總是在遠(yuǎn)程桌面或者虛機(jī)里邊，所以經(jīng)常有新郵件或者Reminder沒有能及時(shí)察覺，所以便寫了這么一個(gè)VBA，在有新郵件或者reminder的時(shí)候使用主板小喇叭來點(diǎn)動(dòng)靜。關(guān)于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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。