doublons dans un fichier .PST

Bonjour,

"Bruno" <Bruno@discussions.microsoft.com> a écrit dans le message de news:
B4D3ACF4-30D4-4159-A603-7CE06BEA9BF5@microsoft.com...
| Bonjour à tous,
| J'ai un certain nombre de doublons dans mes différents fichiers PST. Comment
| est-il possible de les identifier, sachant que certains d'entre eux sont le
| résultat de transfert par une règle à partir d'une boite service vers ma
| boite perso, donc avec un titre modifié par le trasfert (Tr: xxxxx) ?
|
| Merci à tous
|
| Bruno

J'aurais tendance à proposer d'extraire quelques propriétés des messages des 2 fichiers pst,
Taper Alt+F11 dans Outlook 2000 et +, puisn coller et exécuter la fonction suivante.
un fichier sera créé dans le répertoire C:
puis de comparer les occurences des deux fichiers avec excel ou access afin d'identifier les
messages qui se trouvent dans 2 dossiers.


Function ExportIDMessages() As String
Dim Ol_App As Outlook.Application
Dim Ol_MAPI As Outlook.NameSpace
Dim Ol_Folder As Outlook.MAPIFolder
Dim Ol_Items As Outlook.Items
Dim Ol_MailItem As Outlook.MailItem
Dim txtLine As String
Dim Fichier As Integer

Fichier = FreeFile()
Open "c:listmessages.txt" For Output As #Fichier
Set Ol_App = GetObject(, "Outlook.Application")
If Ol_App Is Nothing Then: Set Ol_App = CreateObject("Outlook.Application")
Set Ol_MAPI = Ol_App.GetNamespace("MAPI")
Set Ol_Folder = Ol_MAPI.PickFolder
Set Ol_Items = Ol_Folder.Items

For Each Ol_MailItem In Ol_Items

txtLine = Ol_MailItem.SenderEmailAddress & vbcrlf _
& Ol_MailItem.ConversationIndex & vbcrlf _
& Ol_MailItem.ConversationTopic & vbcrlf _
& Ol_MailItem.SentOn

Print #Fichier, txtLine

Next Ol_MailItem

Close #Fichier
Set Ol_MailItem = Nothing
Set Ol_Items = Nothing
Set Ol_Folder = Nothing
Set Ol_MAPI = Nothing
Set Ol_App = Nothing

End Function

Bon, ben je vais encore une fois me remercier moi-même
en me disant que l'archivage Google aidera d'autres personnes
qui auraient bien voulu me remercier, elles :-)

<Anor> a écrit dans le message de news: u4pYMLJkFHA.1948@TK2MSFTNGP12.phx.gbl...
| Function ExportIDMessages() As String

Non, GOOGLE ne te remerciera pas, mais moi je le fais ici : Merci pour ta
réponse que je vais tester.
Cordialement
Bruno

Bon, ben je vais encore une fois me remercier moi-même
en me disant que l'archivage Google aidera d'autres personnes
qui auraient bien voulu me remercier, elles :-)

<Anor> a écrit dans le message de news: u4pYMLJkFHA.1948@TK2MSFTNGP12.phx.gbl...
| Function ExportIDMessages() As String