Outlookで特定の人からのすべての受信メールを自動で開く方法

Outlookソリューション 2025 年 9 月 29 日

Outlookには、特定の人からのすべての受信メールを自動的に開く機能はありません。したがって、この記事ではそのような方法を紹介します。

上司からのメールなど、非常に重要な人物からのメールを見逃したくないことは間違いありません。この場合、Outlookルールを使用して、そのような電子メールがメールボックスに到着したときに特定のアラートを表示できます。これとは別に、Outlookがそのような電子メールを自動的に開くことを望むかもしれません。 Outlookルールではサポートされていませんが、OutlookVBAを介して実現できます。さて、以下では、あなたを助けるためにVBAコードの一部を公開します。それを得るために読んでください。

特定の人からのすべての受信メールを自動で開く

にtarで、「」を参照してOutlookVBAエディタにアクセスします。OutlookでVBAコードを実行する方法"
続いて、「ThisOutlookSession」プロジェクトを開き、次のVBAコードをプロジェクトにコピーします。

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

'Occurs when incoming emails arrive in Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strSenders As String
    Dim varSenders As Variant
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Change the specific persons
       strSenders = "bob_black@datanumen.com; shelly@datanumen.com; kim@datanumen.com"
 
       varSenders = Split(strSenders, ";")
 
       'Open the emails from specific persons
       For i = 0 To UBound(varSenders)
           If objMail.SenderEmailAddress = varSenders(i) Then
              objMail.Display
              Exit For
           End If
       Next
    End If
End Sub

その後、解像度tarOutlookアプリケーションでこのマクロをアクティブにします。
今、あなたは試してみることができます。特定の送信者からのメールを受信トレイに移動するだけです。すぐに、このメールは自動的に独自のウィンドウで開かれます。

厄介なOutlookの問題を解決する

Outlookを何十年も利用しているとすれば、さまざまなエラーやトラブルに遭遇した可能性が非常に高いです。たとえば、tarOutlookを起動すると、OutlookPSTファイルにアクセスできないことを示すエラーメッセージが表示されます。このエラーは通常、PSTの破損を示します。この場合、次のことを行う必要があります PSTを修正ファイル。受信トレイの修復ツールのみを使用する場合は、かなり厄介になる可能性があります。それでも、次のようなより強力で信頼性の高いツールに頼る場合 DataNumen Outlook Repair、タスクははるかに簡単になります。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLを修正と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com