Pièce jointe d'un message

Question

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)

Badclown · Answer

Tu devrait ca dans l'objet outlook.MailItem

@++

Dachup · Answer

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

cs_couettecouette · Answer

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

kipetro · Answer

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

Pièce jointe d'un message

4 réponses

Discussions similaires