[forum] fonction mail

Version imprimable

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:

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:

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:oops:

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:

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:

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

A bientôt

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

Code:

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)

04/06/2007, 14h14
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 :D
04/06/2007, 14h16
t1marlartiste

Bonjour,

Existe t -il une équivalence du system.net.mail sous VS 2003 ?
04/06/2007, 17h21
mirela

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

Bonsoir

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

Code:

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 ;)

04/06/2007, 20h06
mirela

merci,çà tourne correct :)
Si je ne m'abuse,j'aimerai confirmé l'envoi du mail,mais

Code:

oSmtpMail.Send(oMessage)="true"

ne reçois pas de valeur,une suggestion??
04/06/2007, 21h11
mafyoso
(Re) Bonsoir ;)

SmtpClient.Send est une méthode donc sans retour :) . Pour tester si tn envoie plante tu peux entouré ton bloc d'un Try/Catch :
Code:

1 2 3 4 5 6 7 8 ... Try oSmtpMail.Send(oMessage) Catch ex as Exception 'Gestion de l'erreur End Try ...
Voilà ;)

Bonne soirée
05/06/2007, 11h43
mirela
bonjour,:)
j'ai essayé de placer un message de confirmation,mais soit il s'affiche avant même que le mail ait été envoyé ou il ne s'affiche pas du tout selon l'endroit que je place le message
Code:

1 2 3 4 5 6 Try oSmtpMail.Send(oMessage) Catch ex As Exception LB_Message.Text = ex.Message End Try

salut
je crois que ce bout de code va résoudre ton problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim EnvoiMail As Boolean = True
            Try
            oSmtpMail.Send(oMessage)
            Catch
                EnvoiMail = False
            End Try
 
            If EnvoiMail Then
                LB_Message.Text = "Mail envoyé"
            Else
                LB_Message.Text = "Mail non envoyé"
            End If

Bon Courage :king:

05/06/2007, 12h49
mirela

merci à tous :yaisse2: