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

Author: Xiaoyang Last Modified: 2025-05-23

日常業務において、Outlookに多くのメールが届くことがあり、その結果、特定の人からの重要なメールを見逃してしまう可能性があります。誰かからの重要なメールを見逃さないために、Outlookにメールが到着した際に自動的に開くように設定できます。この記事では、特定の送信者からのすべてのメールを開くためのVBAコードを紹介します。

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

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

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

1. ALT + F11 キーを押しながら押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、Project1(VbaProject.OTM)ペインから ThisOutlookSession をダブルクリックしてモジュールを開き、次のコードを空白のモジュールにコピーして貼り付けます。

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を再起動してコードを有効にします。これ以降、指定した人物からのメールが到着すると、すべて自動的に開かれます。スクリーンショットをご覧ください：