Envoi d'email

kiff77 · 2 Juin 2008

Bonjour à tous,

Je souhaiterai envoyer des mails de Excel via Lotus Notes (version 6.5).
J'ai trouvé sur le forum un code qui marche bien. Par contre j'aimerai avoir le choix du destinataire (ils peuvent être multipes). J'ai créé une USF avec une listbox. J'ai essayé en inscrivant ce code : "EMailSendTo = ListBox1.Value" mais ça ne marche pas (je me disais bien que c'était trop simple).

J'ai trouvé des trucs sur le net mais je n'ai rien compris au truc.

D'avance merci
A+
Kiff

Compte Supprimé 979 · 2 Juin 2008

Re : Envoi d'email

Salut Kiff77,

Il faut que tu es une concordance entre les noms sur ton tableau et l'adresse mail !

Ensuite il faut faire une boucle pour chaque adresse mail

Voir fil ICI https://www.excel-downloads.com/threads/envoie-multiple-avec-emailsendto.95251/

A+

kiff77 · 2 Juin 2008

Re : Envoi d'email

Bonjour BrunoM45,

Merci pour ta réponse.

J'ai regardé le lien et j'avoue mon incompétence.
J'ai essayé de mettre le code suivant avec les adresses mails qui vont bien mais j'ai un message d'erreur qui me dit "tableau attendu".
EMailSendTo = Split("adresse mail") 'liste de diffusion
For i = 0 To UBound(EMailSendTo)
adresses = adresses & EMailSendTo(i) & ";"
Next i
EMailCopyTo = Left(adresses, Len(adresses) - 1)

Par contre je pense que je me suis mal exprimé. je souhaiterai choisir le ou les destinataires. Cette macro va t elle envoyer un mail à toutes les adresses saisies?

Merci pour ton aide
A+
Kiff

Compte Supprimé 979 · 2 Juin 2008

Re : Envoi d'email

Re,

Oups... désolé

Voici le code

Code:

  ' Initialisation des variables
  EMailSendTo = ""
  ' Pour chaque ligne sélectionnée
  For NAdr = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(NAdr) = True Then
      ' Ajouter l'adresse du destinataire
      EMailSendTo = EMailSendTo & Me.ListBox1.List(NAdr) & ", "
    End If
  Next NAdr
  ' Supprimer la dernière virgule
  EMailSendTo = Left(EMailSendTo, Len(EMailSendTo) - 2)

Essaye ça et tiens nous au courant

A+

kiff77 · 3 Juin 2008

Re : Envoi d'email

Bonjour BrunoM45,

Merci pour ta réponse, ça marche nickel

Par contre je ne comprends pas pourquoi un simple "EMailSendTo=listbox1.value" ne suffit pas.

Encore merci
A+
Kiff

Envoi d'email

kiff77

XLDnaute Junior

Pièces jointes

Compte Supprimé 979

Guest

kiff77

XLDnaute Junior

Compte Supprimé 979

Guest

kiff77

XLDnaute Junior

Discussions similaires