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
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'aiderCordialement lolo
Même problème que softin... HELP !Est-il pssible d'avoir quelques explications complémentaires ?Merci d'avance....
ouaip, il manque la Réference... c'est laquelle?
J'obtiens l'erreur 32002, comment faire pour la contournée?
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
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 pasmê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
Private Sub boutonmail_Click() '^^ Sur mon projet,le code est appliqué sur un "bouton de commande" que j'ai appeller boutonmailMAPISession1.SignOnMAPIMessages1.MsgIndex = -1MAPIMessages1.SessionID = MAPISession1.SessionIDMAPIMessages1.RecipDisplayName = "toto@toto.fr" 'mail DestinataireMAPIMessages1.MsgSubject = "message pour toto a lire !" 'ObjetMAPIMessages1.MsgNoteText = "slt toto, comment va tu?" 'Texte contenu du mailMAPIMessages1.AttachmentName = "a.txt" 'nom de votre fichierMAPIMessages1.AttachmentPathName = "C:\a.txt" 'emplacement de votre fichierMAPIMessages1.SendMAPISession1.SignOffEnd Sub
xenografter, ton programme est superle 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
desole pour les admin qui vont devoir enlever un des deux messages, mais mon PC à eut un petit bugdesole
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 IntegerMAPISession1.SignOnWith MAPIMessages1.MsgIndex = -1For 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 locVarJnext locVarI.SessionID = MAPISession1.SessionID.SendEnd WithMAPISession1.SignOff Pour le reste, j'ai pas testé.
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: mapisession1pourriez vous m'aider s.v.p ?
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 769 membres 54 nouveaux aujourd'hui 16 151 membres club