특정인이 보내는 모든 수신 이메일을 아웃룩에서 자동으로 열려면 어떻게 해야 하나요?

Author: Xiaoyang Last Modified: 2025-08-06

일상적인 업무 중에 많은 이메일이 아웃룩으로 도착할 수 있으며, 이런 경우 특정인으로부터 오는 중요한 이메일을 놓칠 수도 있습니다. 누군가로부터 오는 중요한 이메일을 놓치지 않기 위해, 아웃룩에 도착하는 즉시 해당 이메일이 자동으로 열리도록 설정할 수 있습니다. 이 문서에서는 특정 발신자로부터 온 모든 이메일을 여는 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. 그런 다음, 코드 창을 저장하고 닫습니다. 아웃룩을 다시 시작하여 코드를 적용합니다. 이제 지정한 사람으로부터 오는 이메일은 모두 자동으로 열릴 것입니다. 스크린샷 참고: