Envoie courriel plusieurs adresses

[Gysmo]

Bonjour

Voici mon problème :

J'ai une macro qui envoie un courriel à plusieurs destinataires...elle fonctionne très bien mais le nombre d'adresse est limité (ou le nombre de caractères) par l'argument string (je crois). Mon nombre d'adresse est variable...

Voici mon code.

Private Sub CommandButton6_Click()
Dim valZ As String
Dim URLto As String
Dim i As Integer
Dim MLgroup As String
Dim nom As String

valZ = UserForm8.ListBox2.Value

If valZ = "TOTO" Then
For i = 2 To Sheets("feuil5").Range("b65536").End(xlUp).Row
nom = Sheets("feuil5").Range("b" & i)
MLgroup = MLgroup & ";" & nom
Next
End If

URLto = "mailto:" & MLgroup

ActiveWorkbook.FollowHyperlink Address:=URLto
End sub

 

[vbacrumble]

Re : Envoie courriel plusieurs adresses

Bonjour


Pourrais-tu utiliser les balise BB [ code ] [ / code] *

pour rendre ton code plus agréable à lire?

Merci.

* : voir ici BB code

 

[PascalXLD]

Re : Envoie courriel plusieurs adresses

Bonjour

Je ne suis pas sûr que cela viennent du string

 

[vbacrumble]

Re : Envoie courriel plusieurs adresses

Re


J'ai repris ton code

(Pas de bug constaté pour le moment)


Voir PJ