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 !

[Pelote2012]

Et avec ce genre de controle

Code :

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

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 :

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

1
2
3
 
else
exit for

[gastoncs]

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

Code :

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

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 :

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

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

Comment faire pour remplir ma collection avec des textbox ?

[franticfranz]

Code :

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

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

[gastoncs]

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

[franticfranz]

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 :

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

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

[asmduty]

sourcetxt(i) ?

[gastoncs]

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

'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 ?

[franticfranz]

Oups ! AsmDuty a l'oeil du lynx :

Code :

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

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

[asmduty]

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

Code :

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

Dim sourcetxt() As Windows.Forms.TextBox

...