特定の送信者からの受信Outlook電子メールの添付ファイルを自動で開く方法

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

Outlookで特定の送信者からの受信メールの添付ファイルを自動的に開くようにする場合は、この記事を読むことができます。ここでは、それを実現する方法をご案内します。

たとえば、上司からいくつかの重要な添付ファイルをメールで送信されることがよくあります。上司にできるだけ早く反応するために、添付ファイルを受け取ったら開く必要があります。このシナリオでは、Outlookが上司からの受信メールの添付ファイルを自動的に開くようにするよりスマートな方法を望んでいる可能性があります。それでは、そのような方法をご紹介します。

特定の送信者からの受信メールの添付ファイルを自動的に開く

にtarで、Outlookアプリケーションを起動します。
次に、ショートカット「Alt + F11」を使用してVBAエディターにアクセスします
次に、次のVBAコードを「ThisOutlookSession」プロジェクトに配置します。

Private Declare Function GetShortPathName Lib "kernel32" _
 Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
 ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private WithEvents objItems As Outlook.Items

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

'Occurs when new item arrives in Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objWsShell As Object
    Dim strTempFolder As String
    Dim objAttachments As Outlook.Attachments
    Dim objAttachment As Attachment
    Dim strFileName As String
 
    If Item.Class = olMail Then
       Set objMail = Item
       'Change sender email address
       If objMail.SenderEmailAddress = "boss@datanumen.com" Then
          Set objWShell = CreateObject("WScript.Shell")
          strTempFolder = Environ("Temp") & "\"
 
          Set objWsShell = CreateObject("WScript.Shell")
          Set objAttachments = objMail.Attachments
          If objAttachments.Count > 0 Then
             For Each objAttachment In objAttachments
                 strFileName = objAttachment.DisplayName
                 On Error Resume Next
                 Kill strTempFolder & strFileName
                 On Error GoTo 0
 
                 'Save the attachment
                 objAttachment.SaveAsFile strTempFolder & strFileName
 
                 'Open the attachment
                 strFileName = GetShortFileName(strTempFolder & strFileName)
                 On Error Resume Next
                 objWsShell.Run strFileName
             Next
          End If
        End If
    End If
End Sub

Function GetShortFileName(ByVal FullPath As String) As String
    Dim lAns As Long
    Dim sAns As String
    Dim iLen As Integer
 
    On Error Resume Next

    If Dir(FullPath) <> "" Then
       sAns = Space(255)
       lAns = GetShortPathName(FullPath, sAns, 255)
       GetShortFileName = Left(sAns, lAns)
    End If
End Function

続いて、VBAエディターを閉じます。
最終的に、解像度tarOutlookアプリケーションを使用して、新しいマクロをアクティブにします。
これ以降、特定の送信者からの新着メールが受信トレイに到着するたびに、Outlookはこのメールの添付ファイルを自動的に開きます。

受信トレイ修復ツールを適用する

Outlookのデータファイルが破損している場合、どうしますか？実際には、最初に、組み込みのOutlook修正ツールを利用できます– スキャンプスト。それはあなたのOutlookに関連するいくつかの小さな問題を解決することができます。このユーティリティが失敗した場合は、次のようなはるかに経験豊富で信頼性の高い外部ツールに頼る時期が来ています。 DataNumen Outlook Repair.

著者紹介：

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