Discussion :

[crapouye]

Bonjour,

j'envoi des mails avec le code suivant et je ne sais pas comment ajouter plusieurs destinataires... j'ai essayé avec le ";" entre deux adresses mail mais un message m'indique que le format n'est pas correct.

Merci d'avance de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Public Function CreateMessage(ByVal server As String, ByVal [From] As String, ByVal [To] As String, ByVal Texte As String, Optional ByVal CC As String = "", Optional ByVal Sujet As String = "")
        'SANS PIECE JOINTE
        Try
            Dim message As New System.Net.Mail.MailMessage([From], [To], Sujet, Texte)
            Dim client As New System.Net.Mail.SmtpClient(server)
            client.Credentials = Net.CredentialCache.DefaultNetworkCredentials
            client.Send(message)
        Catch ex As System.Net.Mail.SmtpException
            MsgBox(ex.Message)
        End Try
    End Function

[Aspic]

Fait une boucle en spéficiant un destinataire différent à chaque itération !