Outlook의 특정 첨부 파일을 기반으로 이메일에 자동으로 플래그를 지정하는 방법은 무엇입니까?

특정 중요한 첨부 파일이있는 일부 이메일을 수신 할 때 플래그를 지정해야 할 수 있습니다. 그러면 플로우 업을 위해 빠르고 쉽게 찾을 수 있습니다. 이 기사에서는 특정 이름으로 첨부 된 이메일에 자동으로 플래그를 지정하는 쉬운 방법에 대해 설명합니다.

VBA 코드로 특정 첨부 파일을 기반으로 이메일에 자동으로 플래그 지정

---

VBA 코드로 특정 첨부 파일을 기반으로 이메일에 자동으로 플래그 지정

특정 첨부 파일이 포함 된 이메일에 자동 플래그를 지정하려면 다음 VBA 코드를 적용하십시오.

1. Outlook을 시작한 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (VbaProject.OTM) 창을 열어 새 모드를 연 다음 다음 코드를 복사하여 빈 모듈에 붙여 넣습니다.

VBA 코드 : 특정 첨부 파일을 기반으로 이메일에 자동 플래그 지정 :

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    FlagEmail_SpecificAttachments Item
End Sub

Sub FlagEmail_SpecificAttachments(Mail As Outlook.MailItem)
    Dim xAttachment As Outlook.Attachment
    Dim xExt As String
    Dim xFileName As String
    If Mail.Attachments.Count = 0 Then Exit Sub
    For Each xAttachment In Mail.Attachments
        xExt = SplitPath(xAttachment.FileName, 2)
        xFileName = SplitPath(xAttachment.FileName, 1)
        Select Case xExt
            Case "txt", "xlsx", "docx", "pdf"  'Add the file extension as you need
                If InStr(LCase(xFileName), LCase("KTO")) > 0 Then 'Change the text of the attachment name
                    With Mail
                        .ReminderSet = True
                        .ReminderTime = Now + 1
                        .MarkAsTask olMarkTomorrow
                        .Save
                    End With
                End If
        End Select
    Next
End Sub

Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String
Dim xSplitPos As Integer, xDotPos As Integer
xSplitPos = InStrRev(FullPath, "/")
xDotPos = InStrRev(FullPath, ".")
Select Case ResultFlag
    Case 0
        SplitPath = Left(FullPath, xSplitPos - 1)
    Case 1
        If xDotPos = 0 Then xDotPos = Len(FullPath) + 1
        SplitPath = Mid(FullPath, xSplitPos + 1, xDotPos - xSplitPos - 1)
    Case 2
        If xDotPos = 0 Then xDotPos = Len(FullPath)
        SplitPath = Mid(FullPath, xDotPos + 1)
    Case Else
    Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select
End Function

주의 사항: 위 코드에서 필요에 따라 파일 확장자와 첨부 파일 이름을 변경할 수 있습니다.

3. 그런 다음 코드를 저장하고 Outlook을 다시 시작하여 코드를 적용합니다. 이제 첨부 파일 이름에 지정된 텍스트가 포함 된 이메일을 받으면 Outlook에서 후속 조치를 위해이 이메일에 자동으로 플래그를 지정합니다. 스크린 샷을 참조하세요.