Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 07:12:41

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

+ de logiciels à télécharger

1 465 014 membres
64 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 049 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MAPI (MAIL PLUSIEURS PERSONNES ET PIÈCES JOINTES)

Information sur la source

Catégorie :API Classé sous : mapi, mail Niveau : Débutant Date de création : 30/08/2001 Vu : 4 613

Auteur : PuppetMaster

Site perso

Ecrire un message privé

Note :

6,67 / 10

Commentaire sur cette source (12)

Ajouter un commentaire et/ou une note

Description

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

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

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 ...)

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

Toutes les sources de la catégorie API

Sources en rapport avec celle ci

ENVOI DE MAIL(MAILING ET/OU MAILBOMBING, ENVOI SYNCHRONE/ASY... par theoutlawz

AVERTISSEUR DE MAILS par Niko2003

CGI D'AUTHENTIFICATION APACHE À LA VOLÉE (VBS DONC SOUS WIND... par keaoner

FONCTION ENVOI DE MAIL PAR VBA SANS CLIENT LOCAL, PAR SERVEU... par pifou25

UTILISER LE MAPI POUR ENVOYER UN MAIL par Nix

Commentaires et avis

Commentaire de softin le 08/01/2003 00:45:04

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

Commentaire de moskito le 08/02/2003 23:49:27

Même problème que softin... HELP !
Est-il pssible d'avoir quelques explications complémentaires ?
Merci d'avance....

Commentaire de emap le 25/06/2003 16:49:36

ouaip, il manque la Réference... c'est laquelle?

Commentaire de mirylou le 13/01/2004 22:46:46

J'obtiens l'erreur 32002, comment faire pour la contournée?

Commentaire de RENAUD34 le 04/07/2006 10:21:52

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

Commentaire de xenografter le 18/12/2006 20:19:56

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

Commentaire de xenografter le 18/12/2006 20:25:11

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

Commentaire de anto37_44 le 31/05/2007 16:59:38

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

Commentaire de anto37_44 le 31/05/2007 17:00:42

Commentaire de anto37_44 le 31/05/2007 17:02:39

desole pour les admin qui vont devoir enlever un des deux messages, mais mon PC à eut un petit bug

desole

Commentaire de molo molo le 15/06/2007 18:34:40

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é.

Commentaire de matheonimbus30 le 08/05/2009 19:21:39

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 ?

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Envoyer un mail par proxy & sans MAPI URGENT !! [ par Strikenet ] Salut,Je crois que j'ai tout dit ;)Merci d'avance & @+ MAPI : Comment envoyer un mail avec fichier attaché, à plusieurs personnes [ par Nouch ] Salut tout le monde,j'ai un problème URGENT à resoudre.J'aimerais envoyer un mail avec fichier attaché à plusieurs personnes sur VB6 (windows 2000) en MAPI Rec. Mail [ par PatriceVB ] J'aimerai que quand s'effectue la connexion avec le control mapisession (mapisession.signon) que la fenetre de telechargement des messages (en l'ocure MAPI et envoie de mail [ par Yann ] Je suis en reseaux et j'ai utilise les control MAPIMessage et MAPISession pour envoyer des mails a partir du VB.Mais voila je veux parametrer le from UN MAIL VIA MAPI A PLUSIEURS DESTINATAIRES ! [ par BOUL ] Comment envoyer un mail via Mapi a plusieurs destinataires le plus simplement possible please !Merci d'avance !Boul Recuperer avec MAPI, un Mail non lu, placé dans sous dossier d'outlook!!!!!!!!! [ par MOULE ] de l'aide:Je veux recuperer les mails non lus qui arrive dans un sous dossier de ma boite de reception d'outlook (2000). et cela avec le controle Mapi Mail avec MAPI [ par _-_-_-_-_-_-_ ] Je suis le pire débutant et j'aimerais envoyer un mail avec un controle MAPI, pourriez vous m'expliquer en gros la syntaxe, et si possible me commente Création d'un mail Outlook à compléter depuis Access [ par isa911 ] Bonjour, J'ai crée une fonction qui me permet d'intégrer dans un nouveau mail en pièce jointe un document sélectionné. Je ne voudrais pas qu'il parte Mail MAPI [ par mogala ] Pour envoyer des mails via VB, peut - on utiliser MAPI dans Vb6 sans avoir installé OUTLOOK?J'ai lu sur le forum qu'il fallait ajouter dans mon appli Mails multi destinataires sans connaîtres l'adresse mail [ par happex ] Je cherche le moyen d'envoyer des mails automatiques par el biais du compaosant MAPI, mais sans passer par le traditionnel "mapi.recipadress=toto@mach