[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Problèmes liés aux codes du site - Problèmes liés aux codes du site


clos par 3Stone le 15/12/2012 : 23:44  Sujet n° 635  Déplacer message outlook LU dans un autre répertoire

le 23/10/2012 : 14:13
par fbu78

Anonyme

visiteur

Bonjour, j'ai adapté un des code du site pour déplacer des messages outlook d'un répertoire à un autre.

J'aimerai que ce code ne fasse le déplacement QUE pour les messages déjà lu, mais je n'arrive pas à implémenter le code avec la propriété unread.

Voici mon code :

Code :Function ArchiverElements()  

Dim Ol_App As New Outlook.Application
Dim Ol_MAPI As Outlook.NameSpace
Dim Ol_FolderFrom As Outlook.MAPIFolder
Dim Ol_FolderTo As Outlook.MAPIFolder
Dim Ol_Items As Outlook.MailItem
Dim NoItem As Integer   Set Ol_MAPI = Ol_App.GetNamespace("MAPI")
Set Ol_FolderFrom = Ol_MAPI.GetDefaultFolder(olFolderInbox).Folders("3DS")
Set Ol_FolderTo = Ol_FolderFrom.Parent.Folders("3ds_OLD")  
For NoItem = Ol_FolderFrom.Items.Count To 1 Step -1
    
     Set Ol_Items = Ol_FolderFrom.Items(NoItem)
     Ol_Items.Move Ol_FolderTo
Next NoItem   Set Ol_Items = Nothing
Set Ol_FolderTo = Nothing
Set Ol_FolderFrom = Nothing
Set Ol_MAPI = Nothing
Set Ol_App = Nothing   End Function

Si vous avez une idée, elle sera la bienvenue. Merci d'avance

Fred

 sujet clos  Haut
Réponse n° 1
--------
le 27/10/2012 : 22:55
par 3Stone

Anonyme

Administrateur

Bonjour,

As-tu essayé de cette manière:

 

Code :
For NoItem = Ol_FolderFrom.Items.Count To 1 Step -1
     Set Ol_Items = Ol_FolderFrom.Items(NoItem)
     If Not Ol_Items.Unread Then
           Ol_Items.Move Ol_FolderTo
     End If
Next NoItem

 
Cordialement


3stone

  clos par 3Stone le 15/12/2012 : 23:44  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut