Comment créer un dossier de recherche pour tous les e-mails sans réponse dans Outlook?
Si vous souhaitez vérifier les e-mails sans réponse dans votre Outlook, les rechercher un par un prendra beaucoup de temps. Cet article, je vais parler de la création d'un dossier de recherche pour tous les messages sans réponse.
Créez un dossier de recherche pour tous les e-mails sans réponse dans Outlook avec le code VBA
Créez un dossier de recherche pour tous les e-mails sans réponse dans Outlook avec le code VBA
Le code VBA suivant peut vous aider à créer un dossier de recherche dans lequel placeront tous les e-mails non répondus, procédez comme suit:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez la macro suivante dans le Module Fenêtre.
Code VBA: créez un dossier de recherche pour les e-mails sans réponse:
Sub CreateSearchFolder_AllNotRepliedEmails()
Dim xSearch As Outlook.Search
Dim xScope As String, xFilter As String
Dim xRepliedProperty As String
Dim xFolder As Folder, xSubFolder As Folder
On Error Resume Next
xScope = ""
For Each xFolder In Outlook.Application.Session.Folders
Set xSubFolder = xFolder.Folders("Inbox")
xScope = "'" + xSubFolder.FolderPath + "'"
xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
Set xSearch = Nothing
Set xSubFolder = Nothing
Next
MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
3. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue apparaît comme la capture d'écran suivante:
4Cliquez sur OK bouton, maintenant, vous obtiendrez un E-mails non répondus dossier sous le Dossiers de recherche pour chaque compte dans votre Outlook, et tous les e-mails non répondus sont affichés ici, 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.

