evenement sur selection

[philatex]

bonjour

je ne sais pas s'il est possible de faire ça mais j'aimerai pour mon projet sélectionner un dossier contenant mes mails ou sélectionner plusieurs mail et les déplacer dans un autre répertoire en ouvrant une boite de dialogue

est ce réalisable et par ou commencer?

merci

[carden752]

Bonjour,

Pour sélectionner un dossier, peut-être utiliser la méthode PickFolder?
Pour la boite de dialogue, utiliser InputBox ou msgbox.

Voila un exemple à adapter

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub deplacermail()
Dim monmail As MailItem
Dim repdepart As MAPIFolder, repfin As MAPIFolder
'Selection du dossier où les mails se trouvent
Set repdepart = Outlook.Session.PickFolder
'Selection du dossier où les mails doivent être déplacés
Set repfin = Outlook.Session.PickFolder
'Parcourir tous les mails
For Each monmail In repdepart.Items
'Déplacer le mail
monmail.Move repfin
Next monmail
End Sub

[philatex]

super ca fonctionne :

moi dans l'idée, je voulais deplacer le dossier complet avec le mail
je t'emtebe un peu

[carden752]

Bonjour,

Envoyé par philatex

super ca fonctionne :

moi dans l'idée, je voulais deplacer le dossier complet avec le mail
je t'emtebe un peu

Il faut utiliser la propriété MoveTo des MAPIFOLDER

Code :

repdepart.MoveTo repfin

Attention, certains dossiers ne peuvent pas être déplacés.

[philatex]

j'avais une petite question, j'ai un souci je ne solutionne pas.

lorsque je fais l'envoie d'un mail, ma boite de dialogue s'ouvre bien comme il faut pour que je sélectionne le dossier mais si je clique sur annuler et bien j'ai une erreur impossible de sélectionner l'objet.

une autre petite question subsidiaire est il possible de renommer le titre de la boite de dialogue? mettre au chose que "sélectionner un dossier"

merci