MAPI (MAIL PLUSIEURS PERSONNES ET PIÈCES JOINTES)

DiJiTooL - 5 sept. 2001 à 13:09
sigmatc24 Messages postés 53 Date d'inscription dimanche 29 avril 2007 Statut Membre Dernière intervention 22 avril 2013 - 16 févr. 2013 à 18:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1488-mapi-mail-plusieurs-personnes-et-pieces-jointes

sigmatc24 Messages postés 53 Date d'inscription dimanche 29 avril 2007 Statut Membre Dernière intervention 22 avril 2013
16 févr. 2013 à 18:52
Merci, Programme très simple

Et Merci à xenografter aussi
matheonimbus30 Messages postés 60 Date d'inscription vendredi 19 septembre 2008 Statut Membre Dernière intervention 11 avril 2012
8 mai 2009 à 19:21
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 ?
cs_molo molo Messages postés 55 Date d'inscription lundi 14 novembre 2005 Statut Membre Dernière intervention 23 juin 2008
15 juin 2007 à 18:34
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é.
anto37_44 Messages postés 48 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 11 juin 2007 1
31 mai 2007 à 17:02
desole pour les admin qui vont devoir enlever un des deux messages, mais mon PC à eut un petit bug

desole
anto37_44 Messages postés 48 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 11 juin 2007 1
31 mai 2007 à 17:00
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
anto37_44 Messages postés 48 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 11 juin 2007 1
31 mai 2007 à 16:59
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
xenografter Messages postés 3 Date d'inscription vendredi 15 septembre 2006 Statut Membre Dernière intervention 20 février 2007
18 déc. 2006 à 20:25
Private Sub boutonmail_Click()
'^^ Sur mon projet,le code est appliqué sur un "bouton de commande" que j'ai appeller boutonmail

MAPISession1.SignOn
MAPIMessages1.MsgIndex = -1
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.RecipDisplayName = "toto@toto.fr" 'mail Destinataire
MAPIMessages1.MsgSubject = "message pour toto a lire !" 'Objet
MAPIMessages1.MsgNoteText = "slt toto, comment va tu?" 'Texte contenu du mail
MAPIMessages1.AttachmentName = "a.txt" 'nom de votre fichier
MAPIMessages1.AttachmentPathName = "C:\a.txt" 'emplacement de votre fichier
MAPIMessages1.Send
MAPISession1.SignOff

End Sub
xenografter Messages postés 3 Date d'inscription vendredi 15 septembre 2006 Statut Membre Dernière intervention 20 février 2007
18 déc. 2006 à 20:19
il y a un pb sur le code : la première boucle et la deuxième se nomme tout les deux appeller "locVarJ"

normal que cela fonctionne pas

même en rectifiant cette erreur je me retrouve avec une erreur type with sans with
je pige pas trop pourquoi.

pour ceux qui ne veulent pas ce casser trop la tête et qu'il veulent envoyer 1 mail a 1 personne avec un fichier joint regarder le code ci dessous.
ça fonctionne sur mon projet correctement.

j'espère qu'avec de l'experience en vb je l'ameliorerai
cs_RENAUD34 Messages postés 18 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 4 octobre 2007
4 juil. 2006 à 10:21
A Softin, Moskito & Emap: Il faut sélectionner dans le projet le composant MAPI (msmapi32.ocx). ensuite dans un form, il faut mettre un contrôle MAPISession et un contrôle MAPIMessage
mirylou Messages postés 2 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 13 janvier 2004
13 janv. 2004 à 22:46
J'obtiens l'erreur 32002, comment faire pour la contournée?
emap Messages postés 64 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 28 novembre 2008
25 juin 2003 à 16:49
ouaip, il manque la Réference... c'est laquelle?
cs_moskito Messages postés 10 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 1 février 2007
8 févr. 2003 à 23:49
Même problème que softin... HELP !
Est-il pssible d'avoir quelques explications complémentaires ?
Merci d'avance....
softin Messages postés 5 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 14 août 2003
8 janv. 2003 à 00:45
bonjour, c'est gentil comme exemple de code mais moi je connais pas les API et quand je copy le code dans une function il me pette une erreur de variable non déclaré sur MAPISession1.SignOn.
Quel est le type de cette variable?
Quel est le fichier a référencé dans mon projet pour que sa tourne.
Je sais que mes questions ne sont pas très glorieuses et que je passe pour un nul mais sans Doc. je rame....
Merci de m'aider
Cordialement lolo
C'est sympa. Mais je comprend pas pourquoi il me demande le mot de passe du fichier pst.
Salut,

J'ai l'erreur suivante : erreur à l'ouverture de la piece jointe ( il n'y a aucun probleme sur le fichier)
Merci
géant, j'ai enfin fait ce que je voulais à partir de ces sources faciles !
comment sa marche ? faut faire quoi et a quoi sa sert ??
Rejoignez-nous