[Outlook 2003] Dossier email [Résolu]

[motrin]

Je voudrais utiliser la fonction move pour changer la destination d'un email du dossier de la boite de réception vers le dossier Log. Comme mon dossier Log n'est pas un dossier par défaut pour Outlook, je ne sais pas comment je pourrais avoir un objet MapiFolder afin d'utiliser la fct move. Je pourrais utiliser la fonction getdefaultfolder, mais mon dossier log n'est pas un dossier par défaut dans outlook.

Comme code j'ai essayé de faire :

Code :

1
2
3
4
5
6
7
 
Public Sub TraiterMessage(Mail As Outlook.MailItem)
 
    Dim myNameSpace As Outlook.NameSpace
    Set myNameSpace = Application.GetNamespace("MAPI")      
        Mail.Move myNameSpace.Folders("Log routeur")
end sub

Est-ce que quelqu'un pourrait me donner une piste?

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
Dim olInbox As MAPIFolder
 
Sub triMessages_dansBoiteReception_V02()
    Dim olSpace As NameSpace
    Dim It As MailItem
 
    Set olSpace = Application.GetNamespace("MAPI")
    Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)
 
    'Identifie le 1er message de la boite de réception
    '(le message que vous souhaitez transférer)
    Set It = olInbox.Items(1)
 
    TraiterMessage It
 
    Set olInbox = Nothing
    Set olSpace = Nothing
    Set It = Nothing
End Sub
 
Public Sub TraiterMessage(Mail As Outlook.MailItem)
    Dim olFolder As MAPIFolder
 
    'Identifie un répertoire particulier (sous dossier de la boite
    'de réception nommé "Log routeur")
    Set olFolder = olInbox.Folders("Log routeur")
 
    'transfert du message
    Mail.Move olFolder
 
    Set olFolder = Nothing
End Sub

bonne journée
michel

[motrin]

Merci, j'ai réussi à résoudre mon problème.