Comment marquer automatiquement les e-mails en fonction d'une pièce jointe spécifique dans Outlook?

Lorsque vous recevez des e-mails avec des pièces jointes importantes spécifiques, vous devrez peut-être les signaler afin de pouvoir les trouver rapidement et facilement pour un flux de données. Cet article, je vais parler d'un moyen simple de marquer automatiquement les e-mails dont les pièces jointes portent des noms spécifiques.

Marquer automatiquement les e-mails en fonction d'une pièce jointe spécifique avec le code VBA

Marquer automatiquement les e-mails en fonction d'une pièce jointe spécifique avec le code VBA

Pour marquer automatiquement les e-mails qui contiennent la pièce jointe spécifique, veuillez appliquer le code VBA suivant:

1. Lancez Outlook, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir un nouveau mode, puis copiez et collez le code suivant dans le module vide.

Code VBA: marquez automatiquement les e-mails en fonction d'une pièce jointe spécifique:

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

Notes: Dans le code ci-dessus, vous pouvez modifier l'extension du fichier et le nom du fichier de pièce jointe selon vos besoins.

3. Ensuite, enregistrez le code et redémarrez Outlook pour que le code prenne effet, maintenant, lors de la réception des e-mails dont les noms de pièces jointes contiennent le texte spécifié, Outlook marquera automatiquement cet e-mail pour le suivi, voir capture d'écran: