Automatiser le déplacement de mails dans outlook avec EXCEL
Résolu
Guiiggs
Messages postés
27
Date d'inscription
Statut
Membre
Dernière intervention
-
Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention -
Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Automatiser le déplacement de mails dans outlook avec EXCEL
- Déplacer colonne excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Historique déplacement google - Guide
3 réponses
Bonjour,
Voilà mon code :
Sub Deplacer_Message()
Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myFolder As Outlook.MAPIFolder
Dim myFolderArchive As Outlook.MAPIFolder
Dim myItem As Outlook.MailItem
Dim tmp As Double
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
'Répertoire "Boîte de Réception"
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
'Répertoire "TEST"
Set myFolderArchive = myFolder.Parent.Folders("TEST")
'Déplacer le 1er message du répertoire "Boîte de Réception" vers le répertoire "TEST"
For Each myItem In myFolder.Items
tmp = tmp + 1
myItem.Move myFolderArchive
Next
Set myNameSpace = Nothing
Set myFolder = Nothing
Set myItem = Nothing
Set myFolderArchive = Nothing
Range("A2").Select
Selection.Value = tmp
ActiveWorkbook.Save
End Sub
Cordialement,
Guiiggs
Voilà mon code :
Sub Deplacer_Message()
Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myFolder As Outlook.MAPIFolder
Dim myFolderArchive As Outlook.MAPIFolder
Dim myItem As Outlook.MailItem
Dim tmp As Double
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
'Répertoire "Boîte de Réception"
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
'Répertoire "TEST"
Set myFolderArchive = myFolder.Parent.Folders("TEST")
'Déplacer le 1er message du répertoire "Boîte de Réception" vers le répertoire "TEST"
For Each myItem In myFolder.Items
tmp = tmp + 1
myItem.Move myFolderArchive
Next
Set myNameSpace = Nothing
Set myFolder = Nothing
Set myItem = Nothing
Set myFolderArchive = Nothing
Range("A2").Select
Selection.Value = tmp
ActiveWorkbook.Save
End Sub
Cordialement,
Guiiggs
Bonjour,
N'est-il pas plus simple de créer une règle pour déplacer les mails d'une adresse donnée dans le dossier indiqué, puis de compter les mails de ce dossier ?
N'est-il pas plus simple de créer une règle pour déplacer les mails d'une adresse donnée dans le dossier indiqué, puis de compter les mails de ce dossier ?