Mapi (mail plusieurs personnes et pièces jointes)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 697 fois - Téléchargée 59 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
- Xenografter
- Simple mapi - Meilleures réponses
- Piece net - 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
- C / C++ / C++.NET : Envoyer un mail avec piece jointe (utilise mapi) en vc++ - CodeS SourceS - Guide
- Php mail piece jointe - Guide
- Envoi de mails en vb.net avec pieces jointes - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
16 févr. 2013 à 18:52
Et Merci à xenografter aussi
8 mai 2009 à 19:21
pourriez vous m'aider s.v.p ?
15 juin 2007 à 18:34
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é.
31 mai 2007 à 17:02
desole
31 mai 2007 à 17:00
le 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.