Discussion :

[samson_02]

Bonjour à tous et à toutes...

J'ai une procédure qui déplace les emails entrants dans le dossier "sent items" de Outlook 2003, selon des critères précis...

J'aimerais pouvoir contrôler l'existence d'un email de même nom dans ce dossier
("sent items"). Si c'est le cas, je voudrais déplacer le nouvel email (en double) vers un autre dossier..., disons "deleted items".

Pourriez-vous m'indiquer quelques pistes à explorer svp, merci d'avance....

[Oliv-]

Tu peux t'inspirer de ce code là
http://outlook.developpez.com/faq/?p...A#VBA_Move_Exp
avec pour RESTRICT
"[Sujet] = 'Can''t'" ou "[Subject] = 'Can''t'"

[samson_02]

Merci beaucoup, je voir ce que je peux faire et te fais un "feedback"...

[samson_02]

J eviens de regarder le lien que tu m'as fourni... cependant ça je sais déjà le faire...ce que je voudrais c'est vérifier qu'un même email n'est pas présent deux fois dans un dossier outlook particulier, et si oui, le déplacer dans la poubelle...par vba...

[Oliv-]

Avec restrict tu obtiens une collection de tous les mail ayant le même sujet dans le dossier de la recherche si ta collection est vide = pas de doublons
sinon tu mets ton mail ailleurs

Il peut être plus judicieux de comparer le champ ConversationTopic qui ne change pas plutot que subject

[samson_02]

OK.... vais regarder à ça de plus près... , je te tiens au courant....

Merci beaucoup....

[samson_02]

Je étudié un peu le code de Morgan BILLY, cependant les restrictions se font sur base de l'expéditeur... Dans mon cas, il n'y a qu'un expéditeur qui envoie des emails de différentes natures au même destinataire... Le problème est de pouvoir bouger les emails qui auraient été envoyés à plusieurs reprises.... La seule façon de les différencier se situe dans une partie de leur nom....
Ex:
1° Email_machin
2° Email_truc
3° Etc.....

Si tu as une idée...?....

[Oliv-]

Salut,
Voici une fonction pour tester cela :

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
Sub test_sujet_existe()
MsgBox Sujet_existe(InputBox("Quel sujet rechercher ?"))
End Sub
 
Function Sujet_existe(sujet As String)
'Set item = ActiveInspector.CurrentItem
 
Set les_mails = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items
strWhere = "[Subject] = " & Chr(34) & sujet & Chr(34)
Set les_mails = les_mails.Restrict(strWhere)
If les_mails.Count > 0 Then
Sujet_existe = True
Else
Sujet_existe = False
End If
End Function

[samson_02]

Merci beaucoup Oliv... je vais essayer ta solution et je te dis quoi...

[samson_02]

ça ne fonctionne pas chez moi...
J'utilise la sub de test, et quelque soit la valeur entrée dans la msgbox, ça retourne faux, alors que les emails sont présents dans le folder cible...

Je précise que je valide avec le sujet de l'email.... et que j'ai essayé avec plusieurs présents dans "sent items"....

[samson_02]

Désolé Oliv.... oublie le précédent message, ça fonctionne parfaitement quand je fais appel à la fonction correctement, avec le bon argument....

Merci bcp pour ton aide précieuse....