Je ne comprend pas lorsque je veux ajouter comme composant les composants MAPI, VB se ferme complétement sans rien me demander. Est-ce que quelqu'un à une réponse ????
Merci
-------------------------------
Réponse au message :
-------------------------------
>
> Ca ne marche pas, j'obtien le mess permission reffusée...
> Help comment fo t'il faire pour que ca marche?
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> > j'utilise Win2K, VB6 SP5, et Outlook Express
> > Voici pour ceux que ça intéresse le code pour copier le fichier joint d'un message reçu.
> >
> > C'est une procédure qui est appelée lorsque que l'on a déterminé l'index du fichier reçu.
> > (Ne pas oublier d'insérer les contrôles MapiMessage et MapiSession ainsi que la référence
> > à Microsoft Scripting Runtime)
> >
> > Public Sub Sauv_fic()
> > Dim Fs As New FileSystemObject
> > Dim vNomSource as String
> >
> > Set Fs = CreateObject("Scripting.FileSystemObject")
> >
> > '=== Passe le message en mode réponse ===
> > MAPIMessages1.Reply
> > '=== ===
> >
> > If (MAPIMessages1.AttachmentCount) > 0 Then
> > MyCPte = MAPIMessages1.AttachmentCount
> > MyFiles = 0
> > While Not MyFiles = MyCPte
> > MAPIMessages1.AttachmentIndex = MyFiles
> >
> > '=== Copie le fichier dans le répertoire ===
> > vNomSource = MAPIMessages1.AttachmentPathName
> > 'debug.print vNomSource
> > Fs.CopyFile vNomSource , "c:\temp\fichiers\", True
> > ' === ===
> > MyFiles = MyFiles + 1
> > Wend
> > End If
> >
> > Set Fs = Nothing
> >
> > End Sub
> >
> > J'ai récupérer le code qui ne fonctionnait pas tout à fait. Il a fallu que je rajoute " MAPIMessages1.Reply " pour pouvoir enfin accéder à la pièce jointe. Apparemment, en
> > mode " Reply ", la pièce se trouve dans un des répertoire système d'Internet Explorer et donc être copiée à partir de cette emplacement.
> >
> > Bonne continuation.
> >
> > Raph.
> >
> >
> >
>