Outlook 에서 특정 발신자의 모든 수신 이메일을 자동으로 여는 방법은 무엇인가요？

업무 중 Outlook 에 많은 이메일이 도착할 수 있으며, 이 경우 특정 발신자가 보낸 중요한 이메일을 놓칠 수도 있습니다. 누군가로부터 온 중요한 이메일을 놓치지 않으려면 해당 이메일이 Outlook 에 도착할 때 자동으로 열리도록 설정할 수 있습니다。 이 글에서는 특정 발신자로부터 오는 모든 이메일을 자동으로 여는 VBA 코드를 소개합니다。

VBA 코드로 특정 발신자의 모든 수신 이메일을 자동으로 열기

---

VBA 코드로 특정 발신자의 모든 수신 이메일을 자동으로 열기

특정 발신자의 이메일을 자동으로 열려면 다음 VBA 코드를 사용할 수 있습니다。 아래 단계대로 진행하세요：

1.ALT + F11키를 누른 채로Microsoft Visual Basic for Applications창을 엽니다。

2.Microsoft Visual Basic for Applications창에서 왼쪽의ThisOutlookSession을Project1(VbaProject.OTM)패널에서 두 번 클릭하여 모듈을 열고， 다음 코드를 빈 모듈에 복사하여 붙여넣습니다。

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 을 다시 시작하면 코드가 적용되며， 앞으로 지정한 발신자로부터 이메일이 도착할 때마다 자동으로 열립니다。 스크린샷 참조：