IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[VB]Envoi email


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Février 2004
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2004
    Messages : 23
    Par défaut [VB]Envoi email
    Bonjour,

    J'ai vu dans la FAQ le code à utiliser pour envoyer un email depuis VB. Mais comment faire pour envoyer un email à plusieurs destinataires ?

  2. #2
    Membre Expert
    Avatar de méphistopheles
    Profil pro
    Inscrit en
    Janvier 2005
    Messages
    1 551
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Janvier 2005
    Messages : 1 551
    Par défaut
    si tu l'envoyais plusieurs fois?

  3. #3
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    ? cela ne marche pas si tu sépare les noms de destinataire par des ; ? ( ou ,) :

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Février 2004
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2004
    Messages : 23
    Par défaut
    non, ça ne prend que le premier

  5. #5
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    tu parle de quel code ?

    j'ai testé en CDO... cela fonctionne si que tu sépare les adresses par des , ou des ;

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Février 2004
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2004
    Messages : 23
    Par défaut
    je parlais de ce code dispo dans la FAQ VB

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    MAPISession1.SignOn
    MAPIMessages1.MsgIndex = -1
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.RecipDisplayName = "toto@domaine.fr"  'Destinataire
    MAPIMessages1.MsgSubject = "Un petit bonjour"       'Objet
    MAPIMessages1.MsgNoteText = "Salut."                'Texte
    MAPIMessages1.Send
    MAPISession1.SignOff
    J'ai trouvé la solution comme suit :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    MAPISession1.SignOn
     
    MAPIMessages1.MsgIndex = -1
    MAPIMessages1.SessionID = MAPISession1.SessionID
     
    MAPIMessages1.RecipIndex = 0
    MAPIMessages1.RecipType = mapToList
    MAPIMessages1.RecipAddress = "xxxx@domaine.fr"
    MAPIMessages1.RecipDisplayName = "NOM A AFFICHER N°1"
     
    MAPIMessages1.RecipIndex = 1
    MAPIMessages1.RecipType = mapToList
    MAPIMessages1.RecipAddress = "yyyy@domaine.fr"
    MAPIMessages1.RecipDisplayName = "NOM A AFFICHER N°2"
     
    MAPIMessages1.RecipIndex = 2
    MAPIMessages1.RecipType = mapToList
    MAPIMessages1.RecipAddress = "zzzz@domaine.fr"
    MAPIMessages1.RecipDisplayName = "NOM A AFFICHER N°3"
     
    MAPIMessages1.MsgSubject = "OBJET DU MESSAGE"  'Objet
     
    MAPIMessages1.MsgNoteText = "...Tapez ici votre message...." 'Texte
     
    MAPIMessages1.Send True
     
    MAPISession1.SignOff
    Et ça fonctionne

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Mail] Envoi email contenat page web
    Par Mister Nono dans le forum Langage
    Réponses: 6
    Dernier message: 16/07/2006, 19h40
  2. Automatiser des queries journalieres avec envoie email.
    Par tsconetti dans le forum Access
    Réponses: 1
    Dernier message: 08/07/2006, 18h57
  3. [Mail] Envoi email avec php
    Par laymounos dans le forum Langage
    Réponses: 8
    Dernier message: 01/06/2006, 14h31
  4. Problème d'envoi email sous Mandriva
    Par wxcvbn123456 dans le forum Réseau
    Réponses: 5
    Dernier message: 26/05/2006, 16h22
  5. Réponses: 3
    Dernier message: 14/12/2005, 14h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo