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
Partager