- PHP : Formulaire email avec piece jointe - CodeS SourceS
- PHP : Envoi de mail avec piece jointe - CodeS SourceS
- Visual Basic / VB.NET : Envoi de mail avec pièce jointe - CodeS SourceS
- Visual Basic / VB.NET : Mapi (mail plusieurs personnes et pièces jointes) - CodeS SourceS
- Visual Basic / VB.NET : Récupéré automitiquement une pièce jointe d'un e
Pièce jointe d'un message
Signaler
Dachup
kipetro
- Messages postés
- 7
- Date d'inscription
- jeudi 9 janvier 2003
- Statut
- Membre
- Dernière intervention
- 21 février 2003
kipetro
- Messages postés
- 22
- Date d'inscription
- jeudi 5 juillet 2007
- Statut
- Membre
- Dernière intervention
- 10 août 2012
A voir également:
- Pièce jointe d'un message
- Enregistrer des pieces Jointes d'un message (.xls) sans ecraser les precedents ✓ - Forum - VB.NET
- Envoye de message avec pièces jointes depuis excel - Codes sources - Visual Basic / VB.NET (VBA)
- Enregistrer des pieces jointes de message d'un dossier courant dans un repertoire precis (outlook) - Codes sources - Visual Basic / VB.NET (Divers)
- PHP : Messages et commentaires latin et arabe plus les pièces jointes de vos visiteurs - Code - Guide
- Extraire pièce jointe outlook vba - Guide
4 réponses
Badclown
- Messages postés
- 162
- Date d'inscription
- jeudi 27 décembre 2001
- Statut
- Membre
- Dernière intervention
- 22 mars 2004
Tu devrait ca dans l'objet outlook.MailItem
@++
@++
Dachup
- Messages postés
- 7
- Date d'inscription
- jeudi 9 janvier 2003
- Statut
- Membre
- Dernière intervention
- 21 février 2003
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
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