Discussion :

[PNL]

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 :

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

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 :

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

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

[SaumonAgile]

Est ce que tu utilises la classe System.Net.Mail, ou la classe System.Web.Mail ?

[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 ! !!

[Aspic]

A tout hasard j'ai cela :

Code :

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

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