[mailCollection] Problèmes envoi multiple

Version imprimable

Bonjour à tous,
J'ai réalisé un programme en vb .net qui envoi des mails. Il n'y a aucun interface graphisque puisque le but de ce programme est d'envoyerd des mails automatiquement tous jours.

J'ai utiliser la classe MailAddressCollection pour les adresses e-mails des destinataires.
Mon problème :
Pour la liste de mail je lui passe une chaine de caractère de ce type :
"toto@toto.fr,tata@gmail.com"
Code:

1 2 3 4 5 6 7 8 9 Private Function destinataires(ByVal listDest As String) As MailAddressCollection Dim mailList As New MailAddressCollection Dim tab As String() = listDest.Split(",") For i As Int64 = 0 To tab.Length - 1 mailList.Add(tab(i)) Next i Return mailList End Function
Envoi du mail
Code:

1 2 3 mail.To.Add(destinataires(dest).ToString) client.send(mail)
Mon problème est que il n'y a que le premier destinataire qui reçois le mail pas les autres. Alors que ma collection est bien remplie.
Comme serveur smtp j'ulise le smtp virtuel de xp

Quelqu'un a une idée ?

Merci d'avance

25/05/2007, 22h15
SaumonAgile

Est ce que tu utilises la classe System.Net.Mail, ou la classe System.Web.Mail ?
28/05/2007, 11h23
PNL

Oui j'utilise bien System.net.mail
Cependant après avoir fait quelque recherche je me suis aperçu que wanadoo bloque les mails ... Donc tout les mails que j'envoi vers gmail ... ça marche et pas wanadoo, car je ne passe pas par le serveur de wanadoo et mon adresse ip n'est pas une adresse donné par wanadoo...

CCL:
Aucune vrais solutions au problème ... Sauf d'utiliser un serveur smtp wanadoo avec une ip de wanadoo (ça doit être pareil pour les autres FAI, ça évite la diffusion du spam)

Je te remercie de ta rps ! !!

A tout hasard j'ai cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   Public Sub CreateMessageWithAttachment(ByVal server As String, ByVal file As String, ByVal [From] As String, ByVal [To] As String, ByVal Texte As String, Optional ByVal CC As String = "", Optional ByVal Sujet As String = "")
        Try
            Dim message As New MailMessage([From], [To], Sujet, Texte)
            Dim data As New Attachment(file, Net.Mime.MediaTypeNames.Application.Octet)
            Dim disposition As Net.Mime.ContentDisposition = data.ContentDisposition
 
            With disposition
                .CreationDate = System.IO.File.GetCreationTime(file)
                .ModificationDate = System.IO.File.GetLastWriteTime(file)
                .ReadDate = System.IO.File.GetLastAccessTime(file)
            End With
 
            message.Attachments.Add(data)
 
            Dim client As New SmtpClient(server)
 
            client.Credentials = Net.CredentialCache.DefaultNetworkCredentials
            client.Send(message)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Good luck