Customize new email reminders in Outlook

Because I usually work on remote desktops or virtual machines, I often have new emails or reminder that I cannot detect in time, so I wrote such a VBA, use the motherboard speaker to activate a new email or reminder. For more information about outlook programming, see this article.

 

Option explicitprivate 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, describeep note_3, half_beep beep note_5, half_beep beep note_1 * 2, then * 2end subprivate sub partition (byval item as object) beep note_3, describeep note_3, half_beep note_2, half_beep beep note_3, one_beep * 2end sub