특정 조건에 따라 Outlook에서 첨부 파일만 자동으로 전달하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

일반적으로 이메일을 전달할 때 원본 메시지 본문과 첨부 파일이 함께 포함됩니다. 그러나 때로는 특정 조건에 따라 원본 메시지 없이 첨부 파일만 특정 사람에게 전달해야 할 수 있습니다. Outlook에서 이 작업을 어떻게 해결할 수 있을까요?

VBA 코드를 사용하여 특정 조건에 따라 특정 사람에게 첨부 파일만 자동으로 전달하기

VBA 코드를 사용하여 특정 조건에 따라 특정 사람에게 첨부 파일만 자동으로 전달하기

예를 들어, 제목에 “kto feature”라는 텍스트가 포함된 이메일을 받았을 때, 해당 이메일의 모든 첨부 파일은 본문 없이 특정 사람에게 자동으로 전달됩니다. 다음 단계는 이를 도와줄 수 있습니다. 아래와 같이 진행하세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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

VBA 코드: 본문 없이 이메일을 자동으로 전달하고 첨부 파일만 포함하기:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

참고: 위의 코드에서 제목 텍스트와 받는 사람 주소를 자신의 것으로 변경해야 합니다.