Mapi (mail plusieurs personnes et pièces jointes)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 095 fois - Téléchargée 57 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.

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

Ajouter un commentaire

Commentaires

Messages postés
53
Date d'inscription
dimanche 29 avril 2007
Statut
Membre
Dernière intervention
22 avril 2013

Merci, Programme très simple

Et Merci à xenografter aussi
Messages postés
60
Date d'inscription
vendredi 19 septembre 2008
Statut
Membre
Dernière intervention
11 avril 2012

salut tout le monde j'ai un probleme avec ce code quand je le met dans un bouton un message d'erreur s'affiche variable non definie: mapisession1
pourriez vous m'aider s.v.p ?
Messages postés
55
Date d'inscription
lundi 14 novembre 2005
Statut
Membre
Dernière intervention
23 juin 2008

En regardant rapide 2 erreurs :

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
1
desole pour les admin qui vont devoir enlever un des deux messages, mais mon PC à eut un petit bug

desole
Messages postés
48
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
11 juin 2007
1
xenografter, ton programme est super
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
Afficher les 17 commentaires

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.