Discussion :

[blazDelParis]

bonjour,
j'avais écrit une petite procédure pour copier les pièces d'un mail vers un répertoire.

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
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub save_pj(mail As Outlook.MailItem)
 
 
    Dim NS As Outlook.NameSpace
    Dim pj As Attachment
    Dim destFolder As Outlook.MAPIFolder
 
    Set NS = Application.GetNamespace("MAPI")
    Set destFolder = mail.Parent.Folders("test")
    rep = "c:\test\"
 
    If mail.Attachments.Count > 0 Then
 
        For Each pj In mail.Attachments
            pj.SaveAsFile rep & pj.FileName
        Next pj
 
    End If
 
    mail.UnRead = False
    mail.Save
 
    mail.Move destFolder
 
    Set mail = Nothing
    Set NS = Nothing
End Sub

cette procédure est dans Module1 de mon projet save_pj.

j'avais créé une règle qui disait :

Appliquer cette règle après arrivée du message contenant TEST1 dans l'objet et sur cet ordinateur uniquement exécuter save_pj.save_pj

Ca a marché pendant deux jours. J'ai redémarré mon ordinateur, relancé outlook et depuis plus rien, les mails contenant TEST1 en objet ne sont plus traités par la procédure.

Si vous avez une idée ?

Par ailleurs, étant parfaitement newbie, comment tester/debugguer la procédure sans renvoyer à chaque fois un mail ?

Merci

[blazDelParis]

ich bin ein gross newbie, c'était juste la macro qui avait été désactivée...