Sauvegarde des pièces-Joints automatique

[benhamidaa]

Je veux savoir comment je peux sauvegardé d'une manière automatique les picèces-joints dans un répertoire sous outlook, afin qu'une application traite les pièces-joints d'une extention bien spécifique. Jusqu'aujourd'hui je le fais d'une manière manuelle.

Merci.

[Heureux-oli]

Peut-être une piste

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub SaveAtt()
Dim myFld As Folder
Dim myNS As NameSpace
Dim myItem As MailItem
Dim oApp As Outlook.Application
 
Set oApp = Outlook.Application
Set myNS = oApp.GetNamespace("MAPI")
Set myFld = myNS.GetDefaultFolder(olFolderInbox)
 
For Each myItem In myFld.Items
    If myItem.Attachments.Count = 1 Then
        Debug.Print myItem.Attachments.Count
        Debug.Print myItem.Attachments.Item(1).FileName
 
        If Right(myItem.Attachments.Item(1).FileName, 3) = "doc" Then
            myItem.Attachments.Item(1).SaveAsFile "F:\Temp\" & myItem.SenderName & ".doc"
         End If
    End If
Next myItem
 
 
End Sub