Discussion :

[rodolphelami]

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 :

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
 
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

[Oliv-]

Bonjour,

tu trouveras une fonction et des exemples ici

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

[rodolphelami]

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

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
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

[Oliv-]

Beaucoup de réponses dans mon blog ;-)
https://www.developpez.net/forums/bl...dll-com-addin/

[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.

[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