Microsoft Outlookで特定のメールを受信したときポップアップと音で知らせる

2009/02/142011/01/18

職場で特定のメールを受信したときにポップアップメッセージと音で知らせる機能があれば便利なので、Microsoft Outlookのマクロを作りました。

マクロはVBAで作る必要があり、初めてのVisual Basicで敷居が高そうでしたが、意外と簡単でした。

自分が使っているのはMicrosoft Outlook 2002で、ちょっと古いです。最新の2007での動作は確認していません。

Outlookにはメールの自動仕分け機能があり、差出人や、件名あるいは本文に特定文字が含む場合など、詳細な条件でメールを特定できます。条件に一致したメールは指定したフォルダに移動することができます。

つまり、指定したフォルダにメールが追加された場合に、ポップアップと音で知らせることができれば目的は達成されることになります。

マクロの作成はメニューバーから[ツール]-[マクロ]-[Visual Basic Editor]を選択します。

下のマクロを貼り付けてください。この例ではtestフォルダをチェックして、仕分け機能で受信したメールがtestフォルダに追加されたらメッセージをポップアップします。

Public WithEvents myOlItems As Outlook.Items

Public Sub Application_Startup()
    '下のtestをチェックしたいフォルダ名に変更する
    strCheckFolder = "test"
    Set objInbox = Session.GetDefaultFolder(olFolderInbox)
    strFolderName = objInbox.Parent
    Set objMailbox = Session.Folders(strFolderName)
    Set objFolder = objMailbox.Folders(strCheckFolder)
    Set myOlItems = objFolder.Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
    strMessage = "メールを確認してください"
    Set objShell = CreateObject("Wscript.Shell")
    Do While True
        If objShell.Popup(strMessage, 2, "メール到着", 64) = 1 Then Exit Do
    Loop
End Sub

こんなふうに貼り付けます