Discussion :

[Daejung]

Bonsoir,

J'ai eu un problème avec mon disque externe et j'ai perdu tous les fichiers qui y étaient sauvegardés.

Beaucoup de ces fichiers se trouvent dans des pièces attachées de mes mails envoyés ou reçus.

Je suis en train d'enregistrer ces pièces jointes mail par mail mais c'est hyper long et fastidieux.

N'y aurait-il pas un script VBA tout fait qui pourrait faire cette tâche ?

Remerciements

[QuestVba]

Bonjour

Voici une piste trouvée sur le net. A voir, à adapter, ....

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
' ---
' EXTRACTION DES PIECES JOINTES D'UN DOSSIER
' ---
'
Sub SaveFolderAttachments( _
  fld As Outlook.MAPIFolder, _
  strTargetFolder As String, _
  Optional ByVal blnIncludeSubFolders As Boolean = False)
 
  Dim mi As Outlook.MailItem
  Dim att As Outlook.Attachment
  Dim strFile As String
 
  ' Debug
  Debug.Print "---"
  Debug.Print "DOSSIER : " & fld.Name
  Debug.Print "---"
 
  ' Parcourir tous les messages
  For Each mi In fld.Items
    If mi.Attachments.Count > 0 Then
      ' Pour info...
      Debug.Print mi.Subject
 
      For Each att In mi.Attachments
        strFile = FilenameInc(strTargetFolder & att.Filename)
 
        ' Sauvegarder la pièce jointe sous son nom original
        ' ou avec un nom incrémenté en cas de doublons
        att.SaveAsFile strFile
        Debug.Print "  -> " & strFile
      Next
    End If
  Next
 
  ' Si nécessaire, effectuer le même traitement
  ' sur les sous-dossiers
  If blnIncludeSubFolders Then
    Dim subfld As Outlook.MAPIFolder
    For Each subfld In fld.Folders
      SaveFolderAttachments subfld, strTargetFolder, blnIncludeSubFolders
    Next
  End If
End Sub

[Daejung]

Merci je vais voir ce code

[carden752]

Bonjour,

Sans ouvrir les messages, il est possibles d'y ajouter cette source FAQ pour la sauvegarde de pièces jointes
http://outlook.developpez.com/faq/?p...pieces_jointes

Cordialement,