Discussion :

[emeric72]

Bonjour,


Je souhaite sauvegarder dans un répertoire Windows choisi les mails sélectionnés avec leurs pièces jointes dégroupées.

Le code ci-dessous fonctionne très bien mais lorsque la pièce jointe est un mail l'extension .msg n'est pas véhiculée contrairement aux autres extensions telles que .pdf .ppt .doc

Une idée pour faire en sorte que l'extension .msg soit prise en compte ?

cf code en bleu

Merci.

Code VBA :

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
Sub LanceSurSelection()
Dim MonOutlook As Outlook.Application
Dim LeMail As Object
Dim LesMails As Outlook.Selection
Dim Repertoire As String
Dim i As Integer

i = 0
Repertoire = ChoixDossierFichier(0)
If Repertoire = "" Then Exit Sub

Set MonOutlook = Outlook.Application
 
Set LesMails = MonOutlook.ActiveExplorer.Selection
 
    For Each LeMail In LesMails
     Call sav_mail_as_msg(Repertoire, LeMail)
     Set attachs = LeMail.Attachments
     For Each Attach In attachs
       Attach.SaveAsFile Repertoire & Attach '<=== Repertoire correspond au dossier dans lequel le mail et les pièces jointes associées seront enregistrés
     Next
     Set attachs = Nothing
     i = i + 1
    Next LeMail
 
Set LesMails = Nothing
  
Select Case i
    Case 0
        MsgBox "Aucun mail exporté"
    Case 1
        MsgBox "1 mail exporté dans : " & Repertoire
    Case Else
        MsgBox i & " mails exportés dans : " & Repertoire
End Select
  
End Sub

[Oliv-]

Bonjour,
il faut utiliser la propriété "FileName " de attachment
.FileName : "TR Renfort sécurité.msg" : String

[emeric72]

Super, ça marche nickel.

Par contre, je souhaiterais aussi dégrouper les PJ du mail en PJ du mail. Un truc récursif du genre :

Code VBA :

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
Sub LanceSurSelection()
Dim MonOutlook As Outlook.Application
Dim LeMail As Object
Dim LesMails As Outlook.Selection
Dim Repertoire As String
Dim i As Integer

i = 0
Repertoire = ChoixDossierFichier(0)
If Repertoire = "" Then Exit Sub

Set MonOutlook = Outlook.Application
 
Set LesMails = MonOutlook.ActiveExplorer.Selection
 
    For Each LeMail In LesMails
     Call sav_mail_as_msg(Repertoire, LeMail)
     Set attachs = LeMail.Attachments
     For Each Attach In attachs
        If attach.Type = 5 Then
           Call Degrouper(attach?, Repertoire) '<=== si la pièce jointe est un mail alors dégrouper le mail : sauvegarder le mail en pj + ses pj
        Else: attach.SaveAsFile Repertoire & attach.FileName '<=== c:\ correspond au dossier dans lequel vous voulez sauvegarder les pièces jointes
        End If
     Next
     Set attachs = Nothing
     i = i + 1
    Next LeMail
 
Set LesMails = Nothing
  
Select Case i
    Case 0
        MsgBox "Aucun mail exporté"
    Case 1
        MsgBox "1 mail exporté dans : " & Repertoire
    Case Else
        MsgBox i & " mails exportés dans : " & Repertoire
End Select
  
End Sub

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Degrouper(LeMail As Object, Repertoire As String)
 
     Call sav_mail_as_msg(Repertoire, LeMail)
     attach.SaveAsFile Repertoire & attach.FileName 
     Set attachs = LeMail.Attachments
     For Each Attach In attachs
        If Attach.Type = 5 Then
        Call Degrouper(Attach, Repertoire)
        Else: Attach.SaveAsFile Repertoire & Attach.FileName '<=== c:\ correspond au dossier dans lequel vous voulez sauvegarder les pièces jointes
        End If
     Next
     Set attachs = Nothing
 
 
End Sub

[Oliv-]

Salut,
il faut effectivement enregistrer la pj "msg" sur le disque puis il faut l'ouvrir avec OpenSharedItem, et traiter ses PJ comme un mail classique.

http://www.developpez.net/forums/d15...m/#post8406289

[emeric72]

donc on est obligé de le sauvegarder en dehors d'outlook pour l'ouvrir, pas moyen de l'ouvrir directement ?

[Oliv-]

oui

[emeric72]

ok merci