Parcourir le contenu des pièces jointes pour les transférer vers un répertoire réseau

Version imprimable

Bonsoir,

Je cherche depuis Outlook 2019 (O365) à créer une ou plusieurs macro pour transférer les pièces jointes (fichiers *.pdf), sur un message donné (ouvert ou non, mais celui sur lequel je suis positionné) de façon à déplacer les PJ vers un lecteur réseau distant?

J'ai copié en partie le code que tu avais fourni pour ouvrir un seul mail à la fois (qui fonctionne bien), mais après je ne sais pas comment parcourir le contenu des pièces pour les transférer vers ce répertoire réseau?

J'ai créé depuis Outlook un bouton dans un onglet supplémentaire de façon à déclencher ces différentes actions.

Merci de votre retour, bonne soirée.

Rodolphe.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub GetSelectedItems() Dim myolApp As New Outlook.Application Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Dim MsgTxt As String Dim x As Integer MsgTxt = "Vous devez selectionner un seul mail" Set myOlExp = myolApp.ActiveExplorer Set myOlSel = myOlExp.Selection x = myOlSel.Count If x <> 1 Then MsgBox MsgTxt Exit Sub End If 'ca c'est pour l'afficher myOlSel.Item(x).Display 'ca c'est pour le mettre dans la variable précedente Set ObjItem=myOlSel.Item(x) End Sub

06/11/2020, 15h51
Oliv-

Bonjour,

tu trouveras une fonction et des exemples ici

https://www.developpez.net/forums/bl...yperlien-mail/

1 pièce(s) jointe(s)

Merci Olivier,

je n'ai pas encore regardé ton lien, j'ai bien progressé sur mon code en m'appuyant sur des posts que tu avais diffusé.
Je pense que j'ai un peu de code superflu, mais ça fonctionne, il me reste encore quelques modifications à apporter à ces macros, comme supprimer les espaces dans les noms de fichier des pièces jointes, ne sélectionner qu'une partie des pièces jointes d'un mail en fonction d'une liste (là, je ne sais pas encore comment faire....)

Par contre j'avais deux questions:

- Lorsque je fais des tests et que je déclenche ma macro via un bouton dans Outlook, à la fin du trairement je perds systématiquement mon onglet "Développeur", je suis obligé de fermer Outlook pour le récupérer?

- Et si je veux publier ou diffuser mon code sur plusieurs postes clients, est-ce qu'il me suffit de déployer le projet "VbaProject.OTM" qui se trouve sur mon disque local et en faire de même sur les postes qui doivent avoir cette fonctionnalité?

Merci de ton retour.

Mon Interface
Pièce jointe 583238

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
Sub MacroGED(MyItem As Outlook.MailItem)
 
    Dim myAttachments As Object
    Dim MsgTxt As String
    Dim CheminTemp As String
    Dim MonOutlook As Outlook.Application
    Dim Mail As Object
    Dim LeMail As Outlook.MailItem
    Dim LesMails As Object
    Set MonOutlook = Outlook.Application
    Set LesMails = MonOutlook.ActiveExplorer.Selection
 
     'Boîte de dialogue simple pour le chemin de sauvegarde
    CheminTemp = "\\fransff08\SFF\Transfert\@@RL\"
 
    Set myAttachments = MyItem.Attachments
    If myAttachments.Count > 0 Then
 
        'Pour chaque pièce jointe, faire etc...
        MsgTxt = "Traiter les pièces jointe!!"
        MsgBox MsgTxt
 
        For Each LeMail In LesMails
            Dim pj As Attachment
 
            For Each pj In LeMail.Attachments
                If Right(UCase(pj.FileName), 4) = ".PDF" Then
                    CheminTemp = CheminTemp & pj.FileName
                    pj.SaveAsFile (CheminTemp)
                End If
 
            Next pj
        Next LeMail
        Set LesMails = Nothing
    Else
        MsgTxt = "Pas de pièce jointe!!"
        MsgBox MsgTxt
    End If
 
End Sub
Sub GetSelectedItems()
 
    Dim myolApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim ObjItem As Object
    Dim ObjMail As Outlook.MailItem
    Dim MsgTxt As String
    Dim x As Integer
 
    MsgTxt = "Vous devez selectionner un seul mail!!!"
 
    Set myOlExp = myolApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
    x = myOlSel.Count
 
    If x <> 1 Then
       MsgBox MsgTxt
       Exit Sub
    End If
    'pour ouvrir le mail sur lequel on est positionné
    myOlSel.Item(x).Display
    'ca c'est pour le mettre dans la variable précedente
    Set ObjItem = myOlSel.Item(x)
 
    If Not ObjItem.Class = olMail Then Exit Sub
 
    Set ObjMail = ObjItem
    Call MacroGED(ObjMail)
 
    ObjItem.Close olDiscard
 
End Sub

07/11/2020, 22h47
Oliv-

Beaucoup de réponses dans mon blog ;-)
https://www.developpez.net/forums/bl...dll-com-addin/
08/11/2020, 09h13
rodolphelami

Bonjour,

Merci pour toutes ses infos, mais ça dépasse de loin toutes mes compétences (DLL, Addin, automatiser Outlook à partir d'une autre application.....).

Je vais voir si en remplaçant le projet *.OTM si ça fonctionne, généralement, je n'aurais plus à revenir sur le code VBA des macros et pour sûr il existe aucune autre macro dans Outlook sur les postes clients.

Quant à la perte de l'onglet "Développeur", je fermerai et ouvrirai Outlook pour le récupérer.

Merci vraiment beaucoup pour tous ces documents publiés et toute l'énergie dépensée pour aider la communauté.

Rodolphe.
08/11/2020, 13h24
Oliv-

Tu peux effectivement remplacer le fichier vbaproject.otm sur chaque pc demande juste s ils ont des macros Outlook! Mais ça reste rare.
Il n y.a.pas.de.raison que tu perdez l onglet développeur c est la première fois que je lis cela.

Pas.contre tu peux mettre ton icône de lancement ailleurs que dans cet onglet