특정 보낸 사람이 보낸 Outlook 전자 메일의 첨부 파일을 자동으로 여는 방법

Outlook 솔루션 2025 년 9 월 29 일

Outlook에서 특정 보낸 사람이 보낸 수신 이메일의 첨부 파일을 자동으로 열도록 하려면 이 문서를 읽으십시오. 여기서 우리는 그것을 달성하는 방법을 안내할 것입니다.

예를 들어, 상사는 종종 몇 가지 중요한 첨부 파일을 이메일로 보냅니다. 상사에게 가능한 한 빨리 대응하려면 첨부 파일을 받았을 때 열어봐야 합니다. 이 시나리오에서는 Outlook이 상사로부터 수신되는 전자 메일 첨부 파일을 자동으로 열도록 하는 더 현명한 방법을 원할 수 있습니다. 이제 그러한 방법을 보여드리겠습니다.

특정 발신자로부터 수신 이메일의 자동 열기 첨부 파일

에tart와 함께 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 편집기를 닫습니다.
결국 restar새 매크로를 활성화하려면 Outlook 응용 프로그램을 사용하십시오.
이제부터는 특정 보낸 사람의 새 메일이 받은 편지함에 도착할 때마다 Outlook에서 이 메일의 첨부 파일을 자동으로 엽니다.

받은 편지함 오류 수정 도구 적용

Outlook 데이터 파일이 손상되면 어떻게 하시겠습니까? 실제로 먼저 내장된 Outlook 수정 도구를 사용할 수 있습니다. 스캔프스트. Outlook과 관련된 몇 가지 작은 문제를 해결할 수 있습니다. 이 유틸리티가 실패하면 다음과 같이 훨씬 더 경험이 풍부하고 신뢰할 수 있는 외부 도구에 의존해야 할 때입니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 mdf 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM