Enregistrer une pièce jointe sous oulook 2003

Messages postés
112
Date d'inscription
mardi 9 septembre 2008
Dernière intervention
5 mars 2018
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 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

annee = Year(Now)


myOrt = InputBox("Destination", "Save Attachments", "F:\GAV\Administration\GDP\" & annee & "\RETOUR AVIS")

'myOrt = "F:\GAV\Administration\GDP\" & annee & "\RETOUR AVIS"



On Error Resume Next



Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection

Set myAttachments = myItem.Attachments


myAttachments.SaveAsFile myOrt
' myItem.Body = myItem.Body & _
' "File: " & myOrt & _
' myAttachments.DisplayName & vbCrLf

MsgBox "merci " & myAttachments.Count



End Sub


--
Afficher la suite 

Votre réponse

5 réponses

Messages postés
112
Date d'inscription
mardi 9 septembre 2008
Dernière intervention
5 mars 2018
0
Merci
Avec ceci, pas plus de succès


Commenter la réponse de Lameche15
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Dernière intervention
23 août 2018
0
Merci
Dans ton 1er message
Set myOlSel = myOlExp.Selection

Set myAttachments = myItem.Attachments


Dans ce bout de code MyItem n'est pas initialisée...
Peut-être essayer en changeant MyItem pour myOlSel (?)

MPi²
Commenter la réponse de cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Dernière intervention
23 août 2018
0
Merci
Dans ton 2e message, que te retourne ceci ?
MsgBox "" & OLmail.Attachments.Count 

Commenter la réponse de cs_MPi
Messages postés
112
Date d'inscription
mardi 9 septembre 2008
Dernière intervention
5 mars 2018
0
Merci
Rien du tout il plante avant.


--
Commenter la réponse de Lameche15
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
0
Merci
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.
Commenter la réponse de ucfoutu

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.