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 la 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:
Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!
- CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
- Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
- Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
- Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
- Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.

