Outlook で特定の送信者からの受信メールをすべて自動的に開くには、どうすればよいですか？

日々の業務では、Outlook に大量のメールが届くことがあります。そのような状況下では、特定の人物から届いた重要なメールを見逃してしまうリスクがあります。そこで、特定の送信者からの重要なメールを確実に見落とさないよう、そのメールがOutlook に到着した瞬間に自動的に開くように設定できます。本記事では、特定の送信者からのすべてのメールを自動的に開くための VBA コードをご紹介します。

VBA コードを使用して、特定の人物からの着信メールを自動的にすべて開く

---

VBA コードを使用して、特定の人物からの着信メールを自動的にすべて開く

特定の人物からのメールを自動的に開くには、以下の VBA コードが役立ちます。次の手順に従ってください。

1．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．Microsoft Visual Basic for Applicationsウィンドウで、ThisOutlookSessionをProject1 (VbaProject.OTM)ペインからダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストしてください。

VBA コード：特定の人物からのメールを自動的に開く：

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

注：上記のコードで、送信者のメールアドレスを自分のものに変更できます。

3．次に、このコードウィンドウを保存して閉じます。Outlook を再起動してコードを有効にすると、指定した人物からのメールが到着した際に、すべて自動的に開かれるようになります。スクリーンショットを参照してください。