Mapi (mail plusieurs personnes et pièces jointes)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 373 fois - Téléchargée 58 fois
Contenu du snippet
Bon alors, j'etais comme vous je voulais utiliser MAPI mais pas tres facile.
Enfin voila le code pour pouvoir envoyer plusieurs pieces jointes ainsi qu'a plusieurs expediteurs. Ce code a été teste et normalement fonctionne.
La 1er boucle "for" (locVarJ) permet de creer les personnes.
La 2eme boucle "for" (locVarI) permet de creer les pieces jointes.
RecipIndex permet d'indexer les personnes
(RecipIndex = 0 -> 1er personne etc...)
AttachmentIndex permet d'indexer les pieces jointes (AttachmentIndex = 0 -> 1er fichier etc ...)
Enfin voila le code pour pouvoir envoyer plusieurs pieces jointes ainsi qu'a plusieurs expediteurs. Ce code a été teste et normalement fonctionne.
Source / Exemple :
Dim locVarI as Integer, locVarJ as Integer
MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
For locVarJ = 0 to NbPersonne - 1
.RecipIndex = locVarJ
.RecipDisplayName = "Nom de la personne"
.RecipAddress = "Adresse de la personne"
.MsgSubject = "Sujetb du mail"
For locVarJ = 0 To NbPieceJointe - 1
.AttachmentIndex = locVarJ
.AttachmentName = "Nom du fichier"
.AttachmentPathName = "Chemin du fichier"
Next locVarJ
.SessionID = MAPISession1.SessionID
.Send
End With
MAPISession1.SignOff
Conclusion :
La 1er boucle "for" (locVarJ) permet de creer les personnes.
La 2eme boucle "for" (locVarI) permet de creer les pieces jointes.
RecipIndex permet d'indexer les personnes
(RecipIndex = 0 -> 1er personne etc...)
AttachmentIndex permet d'indexer les pieces jointes (AttachmentIndex = 0 -> 1er fichier etc ...)
A voir également
- Simple mapi
- Mapi mail - Meilleures réponses
- Envoyé un mail via outlook avec pièce jointe - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : [vbs] envoyer un e-mail en html avec pièce-jointe en vbscript - CodeS - Guide
- Exemple mail pour envoyer une piece jointe - Guide
- C / C++ / C++.NET : Envoyer un mail avec piece jointe (utilise mapi) en vc++ - CodeS SourceS - Guide
- Php mail piece jointe - Guide
Et Merci à xenografter aussi
pourriez vous m'aider s.v.p ?
Les boucles portent le même nom, et l'une d'elles n'est pas fermée :
Dim locVarI as Integer, locVarJ as Integer
MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
For locVarI = 0 to NbPersonne - 1
.RecipIndex = locVarI
.RecipDisplayName = "Nom de la personne"
.RecipAddress = "Adresse de la personne"
.MsgSubject = "Sujetb du mail"
For locVarJ = 0 To NbPieceJointe - 1
.AttachmentIndex = locVarJ
.AttachmentName = "Nom du fichier"
.AttachmentPathName = "Chemin du fichier"
Next locVarJ
next locVarI
.SessionID = MAPISession1.SessionID
.Send
End With
MAPISession1.SignOff
Pour le reste, j'ai pas testé.
- Messages postés
-
48
- Date d'inscription
- mardi 3 avril 2007
- Statut
- Membre
- Dernière intervention
- 11 juin 2007
1desole
- Messages postés
-
48
- Date d'inscription
- mardi 3 avril 2007
- Statut
- Membre
- Dernière intervention
- 11 juin 2007
1le seul petit problème que j'ai, c'est que je n'arrive pas à envoyer des fichiers txt.
J'arrive à envoyer tout les autres format, mais pas celui là.
çà c'est bizarre mais sinon il super cool.
si je pouvais te mettre une note, elle serait de 9/10.
A+ tout le monde
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.