Envoye mail, choix du contact excel

Résolu
kgigant Messages postés 223 Statut Membre -  
kgigant Messages postés 223 Statut Membre -
Bonjour,

Grace à vos anciennes discussions j'ai trouvé une macro me permetant d'envoyer un mail depuis excel, cependant j'aimerai savoir si il est possible de choisir le destinataire lors de l'envoye du mail, car pour le moment je n'est pas d'autre moyens que de changer la macro à chaque fois.

Merci beaucoup

9 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    commence par saisir en colonne les adresses mail, soit sur la même feuille dans une colonne que tu pourras masquer ou sur une autre feuille.

    une fois les adresses saisies, mets en surbrillance toutes la plage, éventuellement prévois des cellules vides en fin de liste ce qui te permettra d'ajouter des adresses (ex. A1:A20)

    Onglet Formule/Module Noms Définis/clic sur Définir un Nom/Définir un Nom
    dans Nom saisis le nom désiré ex . titi

    Si on reste dans mon exemple clic sur D2 et onglet Données/module Outils de Données, clic sur Validation des Données, dans Autoriser sélectionne Liste et dans Source écris =titi

    lorsque tu cliqueras sur D2 tu auras accès à une liste déroulante, sélectionnes l'adresse mail et clic sur le bouton associé à ton code.

    Pour associer un bouton, soit tu le dessines avec la barre formulaire et clic droit sur le bouton, Affecter à une Macro ou tu dessines le bouton avec la barre contrôle et tu places le code dans les propriétés du bouton
    1
  2. kgigant Messages postés 223 Statut Membre 9
     
    Personne a une petite piste ?
    0
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    commence par donner le code que tu utilises voir comment on peut l'adapter
    0
  4. kgigant Messages postés 223 Statut Membre 9
     
    ok excusez moi j'ai oublié de la mettre, voici la macro que j'ai utilisée

    Sub EnvoiMail()
    Workbooks("Classeur2").SendMail Recipients:="kevin.gigant@yahoo.fr", _
    Subject:="envoie dossier", _
    ReturnReceipt:=True
    End Sub
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Le plus simple est de créer une liste déroulante avec tes adresses mail exemple dans une autre feuille ou colonne masquée saisir les adresses, nommer la plage d'adresse et dans par exemple D2 faire référence à la plage nommée.
    choisir en D2 l'adresse et clic sur un bouton associé au code. Il est également possible de déclencher l'envoi automatiquement en sélectionnant le nom en D2

    ensuite si tu dois envoyer le classeur actif tu peux écrire ce code

    Sub EnvoiMail()
    ActiveWorkbook.SendMail Recipients:=[D2].Value, _
    Subject:="envoie dossier", _
    ReturnReceipt:=True
    End Sub

    A+
    Mike-31

    Une période d'échec est un moment rêvé pour semer les graines du savoir.
    0
  7. kgigant Messages postés 223 Statut Membre 9
     
    une autre feuille ou colonne masquée saisir les adresses, nommer la plage d'adresse et dans par exemple D2 faire référence à la plage nommée.
    choisir en D2 l'adresse et clic sur un bouton associé au code.


    Merci de ton aide Mike mais pourrais-tu un peu plus expliquer cette partie stp

    Merci d'avance
    0
  8. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Pas de problème, quelle est ta version d'Excel
    0
  9. kgigant Messages postés 223 Statut Membre 9
     
    2007

    Merci
    0
  10. kgigant Messages postés 223 Statut Membre 9
     
    Merci bcp de ton aide
    0