[VBA-O] Classement mails envoyés vers sous-dossiers [Résolu]

[jmcrib]

Bonjour,

Après l'envoi d'un mail nous le sélectionnons dans le dossier "éléments envoyés" et nous le classons, pour l'instant manuellement, dans des dossiers situés dans des sous dossiers du dossier " Dossiers publics" (ou dans des sous dossiers de sous dossiers du dossier " Dossiers publics").

Je souhaiterais qu'après l'envoi d'un mail une macro visual basic demande le nom du sous-dossier et classe le mail envoyé automatiquement dans ce dossier.

Quelqu'un a t'il déjà réalisé une macro réalisant cette tâche ou une tâche a peu près similaire qui me permettra même après modification d'effectuer ce travail.

Merci d'avance

jmcrib

[bbil]

tiens un début de réponse à placer dans ThisOutlookSession :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Public WithEvents maBoiteEnvoi As Outlook.Items
Private Sub Application_Startup()
 Set maBoiteEnvoi = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub maBoiteEnvoi_ItemAdd(ByVal Item As Object)
Dim oDossier As MAPIFolder
Set oNS = Application.GetNamespace("MAPI")
Set oDossier = Application.GetNamespace("MAPI").PickFolder
If Not oDossier Is Nothing Then
  Item.Move oDossier
End If
Set oDossier = Nothing
End Sub

[jmcrib]

Merci pour la réponse mais j'ai essayé cette macro et à la première instruction, j'ai le message suivant : "Attribut incorrect dans une procédure Sub ou Function"

Que dois je faire pour remédier à ce problème?

[bbil]

il faut mettre ce code "tout en haut" de thisSession...

[jmcrib]

Merci encore pour votre aide, la macro fonctionne je vais me mettre à la tâche pour essayer de réaliser mon objectif d'autant qu'avec les adresses e-mails de documentation trouvées sur votre site cela va faciliter mon travail.