Enregistrer une pièce jointe sous oulook 2003

Question

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

Lameche15 · Answer

Avec ceci, pas plus de succès

cs_MPi · Answer

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²

cs_MPi · Answer

Dans ton 2e message, que te retourne ceci ?
MsgBox "" & OLmail.Attachments.Count

Lameche15 · Answer

Rien du tout il plante avant.
 
 
--

ucfoutu · Answer

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.

Enregistrer une pièce jointe sous oulook 2003

5 réponses

Votre réponse

Discussions similaires