Astuces Excel
  1. Astuces Excel
  3. Comment puis-je transporter des courriels de Outlook vers des dossiers spécifiques par sujet avec un code VBA?
Intereting Posts
Excel – VBA | Valeur de la gamme Parse et copy dans une autre colonne VBA loop by folder (mac) Comment définir la famille de fonts à Arial dans Excel pour la gamme utilisée excel inter op using C # Ouverture avec Excel sans sauvegarde de files en permanence avec Apache Poi En ce qui concerne les différences dans le match VBA Match et Excel Fusionner le contenu de 2 cellules Excel conservant le format de caractère intact (en utilisant VBA) Comment revenir juste Date de création, pas Date et Heure? Colonne de partage Excel VBA à certaine longueur dans plusieurs lignes Envoi de courrier électronique avec Outlook avec des plages copiées et des charts embeddeds Pourquoi ma macro VBA arrête-t-elle d'exécuter après avoir ajouté une règle de mise en forme conditionnelle? vba Excel: les mêmes parameters pour plusieurs forms – LIST au lieu de WITH Styles de valeur de cellule négative dans POI d'Apache Comment incrémenter une adresse IP en fonction d'une ancienne ligne? VBA Me.ComboBox1.List = deux choix du code Comment fermer un document Excel ouvert dans F #?

Comment puis-je transporter des courriels de Outlook vers des dossiers spécifiques par sujet avec un code VBA?

J'ai deux colonnes dans Excel. La première colonne fait l'object du courrier électronique et la deuxième colonne est le dossier où les emails avec le sujet spécifique doivent se déplacer. Par exemple, les deux colonnes: 

Subject Folder A 1 B 2 C 3

Donc, quand je reçois un courrier électronique avec le sujet "A", il doit se déplacer vers le dossier 1. Donc, ma question est de savoir comment puis-je créer un code pour searchr dans la feuille excel à quel dossier le courrier doit se déplacer (j'ai seulement besoin de ça une partie du code).

Je ne peux rien sur Internet à ce sujet.

Voir l'exemple sur Comment déplacer chaque courrier électronique de la boîte de réception vers un sous-dossier

Maintenant pour passer à travers 2 colonnes, voir l'exemple ci-dessous 

 Dim ItemSubject As Ssortingng Dim SubFldr As Ssortingng i = 2 ' i = Row 2 With Worksheets("Sheet1") ' Sheet Name Do Until IsEmpty(.Cells(i, 1)) ItemSubject = .Cells(i, 1).Value '(i, 1) = (Row2,Column1) = A2 Value = Subject SubFldr = .Cells(i, 2).Value '(i, 2) = (Row 2, Column 2) = B2 Value = FolderName '// Loop through Inbox Items backwards For lngCount = Items.Count To 1 Step -1 Set Item = Items.Item(lngCount) If Item.Subject = ItemSubject Then ' if Subject found then Set SubFolder = Inbox.Folders(SubFldr) ' Set SubFolder Item.Move SubFolder ' Move to SubFldr End If End If Next ' exit loop i = i + 1 ' = Row 2 + 1 = Row 3 Loop ' now loop on Row 3 End With