Macro enregistrement automatique pièces jointes

[Tigris]

Bonjour,

Je viens ici pour deux raisons :

1°) Proposer une macro que j'ai récemment conçue en VB. Celle-ci permet l'enregistrement automatique de certaines pièces-jointes. En effet, je reçois chaque jour 15 mails quotidiens dont le contenu est à enregistrer. Cette macro fait gagner quelques minutes et surtout évite une tâche répétitive.

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
Private Sub Application_NewMail()
Dim MaDatabase As NameSpace, Folder As MAPIFolder, Mail As MailItem, FOT As Boolean
 
Set MaDatabase = Application.GetNamespace("MAPI")
Set Folder = MaDatabase.GetDefaultFolder(olFolderInbox)
Set Mail = Folder.Items(Folder.Items.Count)
FOT = False
 
For Each Attachment In Mail.Attachments
 
    FOT = Attachment Like "NOM_DE_PIECE_CLASSIQUE"
    If FOT Then
        Attachment.SaveAsFile "C:\CheminDeMonRepertoire"
    End If
 
    FOT = Attachment Like "NOM_DE_PIECE_CLASSIQUE_BETA"
    If FOT Then
        Attachment.SaveAsFile "C:\CheminDeMonRepertoireBeta"
    End If
 
' ==> L’exemple ci-dessous permet d’enregistrer une pièce contenant la date du jour par exemple.
 
    FOT = Attachment Like "NOM_DE_PIECE_201" & "*" & ".xls"
    If FOT Then
        Attachment.SaveAsFile " C:\CheminDeMonRepertoire"
    End If
 
Next
 
End Sub

2°) Poser une question : comment faire en sorte que cette macro s'applique à une boîte autre que la mienne ? J'entends par là : aujourd'hui, j'ai accès via Outlook à ma boîte personnelle mais aussi à des boîtes mails partagées.

Comment appliquer ma macro à celles-ci ?

Merci d'avance pour votre réponse.

Cordialement,

Tigris

[blazDelParis]

simple hypothèse, mais si tu peux appliquer des règles sur les boîtes partagées, il suffirait de créer une règle qui se déclenche à chaque mail entrant sur ces boites, qui appellerait ensuite ta macro.