Discussion :

[ptitepo]

Bjr,
J'ai une liste de vingt adresses mail, qui peut être modifié à tout moment c'est a dire qu'il peut y en avoir moins, mais jamais plus. j'ai défini la zone ou sont les adresses par le nom : "Adresse_e_mail", et je voudrais savoir si au click d'un bouton, je pouvais envoyé le même message a toute les adresses de ma liste.
Merci de votre aide

[fred65200]

Bonjour,

Je pense qu'on peux répondre oui à ta question mais il faudrait plus de détails.
Cordialement

[Godzestla]

Peut-etre trouveras-tu quelquechose pour t'aider à http://excel.developpez.com/faq/?page=Messagerie

[ptitepo]

J'ai plusieurs feuilles sur mon classeur, mes adresses mail sont écritent dans un tableau de la derniére pages, appelé :"Adresse_e_mail" lorsque l'utilisateur entre sur un formulaire sont nom et son prénom, puiqu'elles ont toutes la même forme : prenom.nom@operateur.fr.
Je voudrais que lorsque je click sur un bouton, un message commun soit envoyé à toute la liste.
J'ai trouvé ces codes sur le lien de Godzestla, je ne sait pas si ca peut correspondre, car quant je test, il me demande un choix de profil, auquel je ne comprend rien du tout. Celui ci à mon avi récupere les adresses dans le tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub btn_email_Click()
ActiveWorkbook.SendMail _
    Recipients:=Array("Adresse_e_mail"), _
    Subject:="Validation congés " & ActiveWorkbook.Name, _
    ReturnReceipt:=True
End Sub

Celui la pour le message, je voudrais regrouper les deux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Adresse As String, Sujet As String, Texte As String
 
Adresse = "Destinataire01@mail.fr"
Sujet = "Le sujet"
Texte = "Bonjour," & vbCrLf & vbCrLf _
    & "Vous trouverez ci joint les infos demandées" & vbCrLf & vbCrLf & _
    "Cordialement" & vbCrLf & Environ("UserName")
 
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
    Adresse & "?subject=" & Sujet & "&Body=" & Texte