Discussion :

[jaclam]

Bonjour
J'ai lu avec intérêt la solution donnée par charouel ici:

J'ai suivi pas à pas cette procédure, j'ai juste modifié le chemin de sauvegarde dans le script.
Un popup me confirme la sauvegarde de la pièce jointe...et pourtant je ne la trouve pas dans le dossier sur mon DD.

J'ai essayé plusieurs fois la manip en changeant de chemin, pour voir, mais rien n'y fait.
J'avoue que je suis un peu perdu et qu'un peu d'aide me ferait du bien.

Précisions juste au cas où :
- je veux sauvegarder des fichiers XML. Mais je pense que le script est valable sans distinction de type de fichier
- je suis sous Outllook 2007

Merci par avance de vos bons conseils et Bonne Année à tous.

[QuestVba]

Bonjour,

Essaie ceci (à mettre dans ThisOutlookSession),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Application_NewMail()
Dim MaDatabase As NameSpace, Folder As MAPIFolder, Mail As MailItem
 
Set MaDatabase = Application.GetNamespace("MAPI")
Set Folder = MaDatabase.GetDefaultFolder(olFolderInbox)
Set Mail = Folder.Items(Folder.Items.Count)
 
For Each Attachment In Mail.Attachments
    Attachment.SaveAsFile "C:\temp\" & Replace(Replace(Replace(Now, ":", ""), "/", ""), " ", "") & Attachment.FileName
Next
 
End Sub