Como sinalizar e-mails automaticamente com base em anexo específico no Outlook?

Ao receber alguns e-mails com anexos importantes específicos, você pode precisar sinalizá-los, para que possa localizá-los de forma rápida e fácil para o fluxo. Neste artigo, irei falar sobre uma maneira fácil de sinalizar automaticamente os emails cujos anexos com nomes específicos.

Sinalizar e-mails automaticamente com base em anexo específico com código VBA

Sinalizar e-mails automaticamente com base em anexo específico com código VBA

Para sinalizar automaticamente os e-mails que contêm o anexo específico, aplique o seguinte código VBA:

1. Inicie o Outlook e mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook do Projeto1 (VbaProject.OTM) painel para abrir um novo modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: sinalize automaticamente os e-mails com base em um anexo específico:

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

Note: No código acima, você pode alterar a extensão do arquivo e o nome do arquivo do anexo conforme sua necessidade.

3. Em seguida, salve o código e reinicie o Outlook para que o código tenha efeito, agora, ao receber os e-mails cujos nomes de anexos contêm o texto especificado, o Outlook sinalizará automaticamente este e-mail para acompanhamento, veja a imagem: