utiliser des variables si NOT NULL

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 ?

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

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

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

:-)

Oui la collection voila ce que ca donne :

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

Code:

---

Public emails As New Collection

---

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

Code:

---

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

---

Comment tu rempli emails?

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

Citation:

---

Envoyé par gastoncs

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:

---

as new list(of string)

---

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 !

Et avec ce genre de controle

Code:

---

1 2 3 4

if itm isnot null andalso itm <> string.empty andalso itm.trim.lenght>0 then add... end if

---

De plus si tu es sur que quand tu arrive ç un email null les autres sont nuls
tu ajoute

Code:

---

1 2 3

else exit for

---

C'est bon j'ai résolu mon soucis avec une collection, voici ma boucle, qui fonctionne :

Code:

---

1 2 3

For Each item In emails .To.Add(item) Next

---

mais un autre probléme ce pose, pour le moment j'ai rempli ma collection de cet façon :

Code:

---

1 2	emails.Add("******@hotmail.com") emails.Add("*******@hotmail.com")

---

Comment faire pour remplir ma collection avec des textbox ?

Code:

---

1 2 3 4

Dim sourcetxt() As Windows.Forms.TextBox = {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4} for i=0 to sourcetxt.length -1 emails.Add(sourcetxt.Text) Next i

---

super ca fonctionne et comment je peux faire pour afficher les textbox rempli des valeurs de ma collection ?

Le problème c'est "afficher les textbox", ou c'est "remplir les textbox" ?

Dans le 2e cas on fait l'opération inverse de la précédente :

Code:

---

1 2 3 4

Dim sourcetxt() As Windows.Forms.TextBox = {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4} for i=0 to sourcetxt.length -1 sourcetxt.Text=emails(i).champs_à_mettre_dans_les_textbox Next i

---

sourcetxt(i) ?

franticfranz j'ai essayé ton code dans chacune de mes textbox :
et voici l'erreur :

Citation:

---

'Text' n'est pas un membre de 'System.array'

---

mais pourtant je n'ai pas fait un tableau pourquoi j'ai une erreur avec array ?

Oups ! AsmDuty a l'oeil du lynx :

Code:

---

1 2 3 4

Dim sourcetxt() As Windows.Forms.TextBox = {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4} for i=0 to sourcetxt.length -1 sourcetxt(i).Text=emails(i).champs_à_mettre_dans_les_textbox Next i

---

Citation:

---

Envoyé par gastoncs

mais pourtant je n'ai pas fait un tableau pourquoi j'ai une erreur avec array ?

---

Code:

---

Dim sourcetxt() As Windows.Forms.TextBox

---

...