Pièce jointe d'un message

Bonjour à tous
Quelqu'un sait-il comment en cliquant sur un bouton de commande récupérer le fichier pièce jointe d'un e-mail dans la boîte de réception d'Outlook.
J'ai trouvé pour l'envoyer, mais pour le récupérer c'est une autre paire de manches.
D'avance merci à mon (mes) sauveur(s)

Tu devrait ca dans l'objet outlook.MailItem

@++



-------------------------------
Réponse au message :
-------------------------------

> Bonjour à tous
> Quelqu'un sait-il comment en cliquant sur un bouton de commande récupérer le fichier pièce jointe d'un e-mail dans la boîte de réception d'Outlook.
> J'ai trouvé pour l'envoyer, mais pour le récupérer c'est une autre paire de manches.
> D'avance merci à mon (mes) sauveur(s)

Merci du tuyau. Voici le code que j'ai associé à Sur clic d'un bouton. ça marche
Private Sub Commande1_Click()

'Déclaration des variables objets Outlook
Dim appOutlook As New Outlook.Application
Dim nspOutlook As NameSpace
Dim mpfMail As MAPIFolder
Dim olkMail As MailItem
Dim olkPieceJointe As Attachments

'Affectation des variables objets
Set nspOutlook = appOutlook.GetNamespace("MAPI")
Set mpfMail = nspOutlook.GetDefaultFolder(olFolderInbox)
Set olkMail = mpfMail.Items.Find("[Subject] = " & "Appel téléphonique")
Set olkPieceJointe = olkMail.Attachments

?Sauvegarde du fichier pièce jointe
olkPieceJointe.Item(1).SaveAsFile "C:\Atelier\" & olkPieceJointe.Item(1).DisplayName

End Sub




-------------------------------
Réponse au message :
-------------------------------

> Tu devrait ca dans l'objet outlook.MailItem
>
> @++
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour à tous
> > Quelqu'un sait-il comment en cliquant sur un bouton de commande récupérer le fichier pièce jointe d'un e-mail dans la boîte de réception d'Outlook.
> > J'ai trouvé pour l'envoyer, mais pour le récupérer c'est une autre paire de manches.
> > D'avance merci à mon (mes) sauveur(s)
>

Moi j'ai juste une petite question comment faire pouvoir utiliser l'objet outlook ??? Je n'y arrive pas...
Merci d'avance.

-------------------------------
Réponse au message :
-------------------------------

> Merci du tuyau. Voici le code que j'ai associé à Sur clic d'un bouton. ça marche
> Private Sub Commande1_Click()
>
> 'Déclaration des variables objets Outlook
> Dim appOutlook As New Outlook.Application
> Dim nspOutlook As NameSpace
> Dim mpfMail As MAPIFolder
> Dim olkMail As MailItem
> Dim olkPieceJointe As Attachments
>
> 'Affectation des variables objets
> Set nspOutlook = appOutlook.GetNamespace("MAPI")
> Set mpfMail = nspOutlook.GetDefaultFolder(olFolderInbox)
> Set olkMail = mpfMail.Items.Find("[Subject] = " & "Appel téléphonique")
> Set olkPieceJointe = olkMail.Attachments
>
> ?Sauvegarde du fichier pièce jointe
> olkPieceJointe.Item(1).SaveAsFile "C:\Atelier\" & olkPieceJointe.Item(1).DisplayName
>
> End Sub
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Tu devrait ca dans l'objet outlook.MailItem
> >
> > @++
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour à tous
> > > Quelqu'un sait-il comment en cliquant sur un bouton de commande récupérer le fichier pièce jointe d'un e-mail dans la boîte de réception d'Outlook.
> > > J'ai trouvé pour l'envoyer, mais pour le récupérer c'est une autre paire de manches.
> > > D'avance merci à mon (mes) sauveur(s)
> >
>

bonjour,
votre script m'interesse mais je ne sais pas l'utilisé.
dans quelle format je dois l'enregistré et a quelle endroit pour que sa marche.
je vous remercie.

kipetro debutant