Discussion :

[mirela]

bonjour à tous
j'ai trouvé un bout de code sur le forum qui permet d'envoyer automatiquement un mail(origine+destination)
J'aimerai à mon tour l'envoyer à un mail à deux personnes(origine+destination1+destination2).
Mais voilà qu'avec le code

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
Sub BT_Send_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim sAdOrigine As String = TextBox1.Text
        Dim sAdDestination As String = TextBox2.Text
        Dim sAdDestination2 As String = TextBox3.Text
        Dim sSmtp As String = "192.168.0.2"
 
 
 
        If sAdOrigine <> System.String.Empty And sAdDestination <> System.String.Empty And sAdDestination2 <> System.String.Empty And sSmtp <> System.String.Empty Then
            Dim oMessage As New System.Net.Mail.MailMessage(sAdOrigine, sAdDestination, sAdDestination2)
            ' Dim oEncodage As System.Text.Encoding = System.Text.Encoding.GetEncoding("iso-8859-1")
            oMessage.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
            oMessage.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
            oMessage.Body = "resultat"
            oMessage.Subject = "bonjour"
            Dim oSmtpMail As New System.Net.Mail.SmtpClient(sSmtp)
            oSmtpMail.Send(oMessage)
 
            Return
        End If
    End Sub

au niveau de cette ligne

Code :

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

Dim oMessage As New System.Net.Mail.MailMessage(sAdOrigine, sAdDestination, sAdDestination2)

la compilation génère une erreur de surcharge de New
que dois je faire

[mafyoso]

Bonjour

Tu as détourné le contructeur New de sa fonction première j'ai l'impression .
Voilà la liste des contructeur pour MailMessage :

Code :

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

1
2
3
4
5
 
Dim oMessage As New System.Net.Mail.MailMessage()
Dim oMessage As New System.Net.Mail.MailMessage(from(string), to(string))
Dim oMessage As New System.Net.Mail.MailMessage(from, to,subject,body)
Dim oMessage As New System.Net.Mail.MailMessage( from(Net.Mail.MailAddress),to(Net.Mail.MailAddress))

por résoudre ton problème de multiple destinataire, tu peux essayer ça :

Code :

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

1
2
 
 Dim oMessage As New System.Net.Mail.MailMessage(sAdOrigine, sAdDestination &";"& sAdDestination2)

Voilà

A bientôt

[mirela]

merci pour ta réponse
j'ai testé mais la compilation me génére cette erreur:

Code :

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

1
2
3
4
5
Détails de l'exception: System.FormatException: La chaîne spécifiée n'est pas de la forme requise pour une adresse de messagerie.
Erreur source: 
Ligne 13 : 
Ligne 14 :         If sAdOrigine <> System.String.Empty And sAdDestination <> System.String.Empty And sAdDestination2 <> System.String.Empty And sSmtp <> System.String.Empty Then
Ligne 15 :             Dim oMessage As New System.Net.Mail.MailMessage(sAdOrigine, sAdDestination & ";" & sAdDestination2)

[mafyoso]

Re Bonjour

Autnat pour moi, on ne peut pas mettre plusieurs adresses dans le "to".

En fait il faut utiliser la propriété CC de la classe system.net.mail.mailmessage. Jette un oeil à MSDN pour voir comme cela fonctionne.

Bon courage

[t1marlartiste]

Bonjour,

Existe t -il une équivalence du system.net.mail sous VS 2003 ?

[mirela]

je ne m'ensors pas c'est C++

[mafyoso]

Bonsoir

C'est du C#, c'est pas si compliqué, si ?
Voilà la solution à ton problème :

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
23
24
25
 
    Sub BT_Send_Click()
        Dim sAdOrigine As String = ""
        Dim sAdDestination As String = ""
        Dim sAdDestination2 As String = ""
        Dim sSmtp As String = "192.168.0.2"
 
 
 
        If sAdOrigine <> System.String.Empty And sAdDestination <> System.String.Empty And sAdDestination2 <> System.String.Empty And sSmtp <> System.String.Empty Then
            Dim oMessage As New System.Net.Mail.MailMessage(sAdOrigine, sAdDestination)
            ' Autant de fois qu'il y a d'adresses
            oMessage.CC.Add("adresse1@web.com")
            oMessage.CC.Add("adresse2@web.com")
            ' Dim oEncodage As System.Text.Encoding = System.Text.Encoding.GetEncoding("iso-8859-1")
            oMessage.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
            oMessage.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
            oMessage.Body = "resultat"
            oMessage.Subject = "bonjour"
            Dim oSmtpMail As New System.Net.Mail.SmtpClient(sSmtp)
            oSmtpMail.Send(oMessage)
 
            Return
        End If
    End Sub

A bientôt