Discussion :

[gastoncs]

Bonjour,

J'ai d'un cote une fonction 'envoi_mail' qui comporte 5 ligne Add.to(mail1) destiné a l'envoi de mail, les variables mail1, mail2, mail3, etc sont des String qui contiennent les adresses de plusieurs destinataires, mon problème est que parfois ces variables sont vides et si j'utilise la méthode Add.to avec une variable vide j'ai une erreur, alors comment faire dire si mail1 ou mail3 est NULL alors je n'utilise pas la méthode add.to pour éviter l'erreur ?

[BenoitM]

If(Not String.IsNullOrEmpty(myString) Add(myString)

[Pol63]

avoir 5 variables pour 5 adresses mail possibles n'est pas un bon design
mieux vaut avoir une collection de string, comme ca tu traites la collection qu'elle contienne une seule adresse ou 10

[Pelote2012]

Je suis tout à fait d'accord avec pol63.
En plus, de prévoir d'éventuel changement du nombre de mail.
Cela simplifiera ton code et il sera plus clair

Une petite boucle contre X copier/Coller.
De plus si tu as une erreur, il te faudra passer dans les X copier/coller, alors que dans une boucle ...

Plus ton code est simple et clair mieux se sera pour la maintenance

:-)

[gastoncs]

Oui la collection voila ce que ca donne :

j'ai essayé le code mais ca ne fonctionne pas :
dans mon module1.vb :

Code :

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

Public emails As New Collection

dans mon form qui gère l'envoi de mail :

Code :

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

1
2
3
4
5
6
7
8
9
Try
            With EmailMessage
                .From = New MailAddress("jgkjoeuigen@laposte.net")
                For Each itm In emails
                    .To.Add(itm)
                Next itm
                .Subject = "Sujet"
                .Body = TextBox1.Text
            End With

[Pelote2012]

Comment tu rempli emails?

As-tu essayé avec un array de string?
dim MesEmails() as string
...

[Pol63]

j'ai essayé le code mais ca ne fonctionne pas :

personne n'est devin, merci d'être explicite !
"ca ne fonctionne pas" peut correspondre à tous les problèmes et messages d'erreur du monde

et éviter le collection de vb6 mais plutot

Code :

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

as new list(of string)

[gastoncs]

ah oui pardon, j'ai oublié des indices en fait j'ai : le message d'erreur est que le destinataires ne peuvent pas être nul !