Lameche15
Messages postés156Date d'inscriptionmardi 9 septembre 2008StatutMembreDernière intervention15 septembre 2022
-
6 oct. 2016 à 10:45
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
6 oct. 2016 à 17:47
Bonjour,
La plupart des scripts trouvés sur le net ne sont pas adaptés pour mon cas qui semble plus simpliste.
Je souhaite que l'utilisateur ouvre manuellement le message et en cliquant sur un bouton il lance la macro qui permet d'enregistrer la (seule et unique) pièce jointe du message dans un répertoire prédéfini.
J'ai écrit ceci:
Sub SaveAttachment()
'Declaration Dim myItems As Object, myItem As Object, myAttachments As Object, myAttachment As Object Dim myOrt As String
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Dim i As Integer Dim nomFichier As String Dim annee As Integer
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 Modifié par ucfoutu le 6/10/2016 à 17:48
Bonjour,
Rien du tout il plante avant
Il serair peut-être temps de dire (ce que tu aurais dû dire dès ton tout premier message) :
- quel est le message d'erreur reçu (si message d'erreur reçu). Important : ne pas utiliser à ce stade de "On Error Resume Next", hein ...
- sur quelle ligne de code il plante
- quelles sont les références que tu as cochées.
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.