Discussion :

[jordan27000]

Bonjour,

Je n'y connais presque rien en VBA et je souhaite automatiser l'export de mes mails "Boite de réception" en CSV. Exactement comment le ferait l'option dans les menus. Seulement, je dois faire cela plusieurs fois par jours et ça fait un nombre incalculable de clics^^
Une fois fait, j'aimerais déplacer les mails de la boite de réception dans un dossier "traitées".

Il faut savoir que j'ai déjà un VBA qui traite les informations du CSV pour les injecter dans un fichier excel. Puis-je utiliser ce code dans le VBA que j'ai déjà pour y inserer ce code ? Je suppose alors qu'il faudrait appeler outlook dans le code pour que ça fonctionne...

Merci par avance pour votre aide, c'est pour une association :-)

Jordan
Office 365

[mach1974]

s'il s'agit juste de déplacer les mails de la boite de réception dans un dossier, il faut seulement solliciter le moteur de règles en définissant une règle

Essayez !
Les règles vous permettent de déplacer, marquer et répondre aux messages électroniques automatiquement.

Créer une règle à partir d’un courrier
Cliquez avec le bouton droit sur un message existant et sélectionnez Règles > Créer une règle.

Sélectionnez une condition et l’action à effectuer sur le message en fonction de la condition.

Par exemple, pour déplacer les courriers associés à un titre vers un dossier spécifique, sélectionnez la condition L’objet contient, sélectionnez Déplacer l’élément vers le dossier, sélectionnez ou créez un Nouveau dossier, puis OK.

Une fois que vous avez créez la règle, sélectionnez OK.

Pour utiliser la règle immédiatement, activez la case à cocher Exécuter cette nouvelle règle maintenant sur les messages qui se trouvent déjà dans le dossier actif, puis sélectionnez OK.

Le message apparaît désormais dans ce dossier.

Créer une règle à partir d’un modèle
Sélectionnez Fichier > Gérer les règles et les alertes > Nouvelle règle.

Sélectionnez un modèle.

Par exemple, pour appliquer un indicateur à un courrier :

Sélectionnez Marquer les messages d’un expéditeur pour le suivi.

Modifiez la description de la règle.

Sélectionnez une valeur soulignée, choisissez les options souhaitées, puis sélectionnez OK.

Sélectionnez Suivant.

Sélectionnez les conditions, ajoutez les informations pertinentes, puis sélectionnez OK.

Sélectionnez Suivant.

Finalisez la configuration de la règle.

Nommez la règle, définissez les options de la règle et examinez la description de la règle. Cliquez sur une valeur soulignée pour la modifier.

Sélectionnez Terminer.

Certaines règles seront uniquement exécutées lorsque Outlook est activé. Si vous recevez ce message d’avertissement, sélectionnez OK.

Sélectionnez OK.

il faut changer "Personal Mail" par le nom du répertoire de destination

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub MoveItems() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myInbox As Outlook.Folder 
 Dim myDestFolder As Outlook.Folder 
 Dim myItems As Outlook.Items 
 Dim myItem As Object 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
 Set myItems = myInbox.Items 
 Set myDestFolder = myInbox.Folders("Personal Mail") 
 Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'") 
 While TypeName(myItem) <> "Nothing" 
 myItem.Move myDestFolder 
 Set myItem = myItems.FindNext 
 Wend 
End Sub