Outlook中自定义新邮件提醒
由于我平时工作的时候总是在远程桌面或者虚机里边，所以经常有新邮件或者Reminder没有能及时察觉，所以便写了这么一个VBA，在有新邮件或者reminder的时候使用主板小喇叭来点动静。关于Outlook的编程可以参考这篇文章Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Const ONE_BEEP = 600
Const HALF_BEEP = 300
Const NOTE_1 = 440
Const NOTE_2 = 495
Const NOTE_3 = 550
Const NOTE_4 = 587
Const NOTE_5 = 660
Const NOTE_6 = 733
Const NOTE_7 = 825
Private Sub Application_NewMail()
Beep NOTE_5, ONE_BEEP
Beep NOTE_3, HALF_BEEP
Beep NOTE_5, HALF_BEEP
Beep NOTE_1 * 2, ONE_BEEP * 2
End Sub
Private Sub Application_Reminder(ByVal Item As Object)
Beep NOTE_3, ONE_BEEP
Beep NOTE_3, HALF_BEEP
Beep NOTE_2, HALF_BEEP
Beep NOTE_3, ONE_BEEP * 2
End Sub
页:
[1]