Discussion :

[Invité]

bonjour

j'avait fait un code pour envoyer un mail par smtp qui marchait très bien
puis ensuite je voullait envoyer un mail sur d'autre serveur par ex: sur une adresse hotmail ou gmail etc....
mais sa ne marche pas quand je clique sur envoyer il me dit en soulignant le premier then:

l'exception null reference exception n'a pas été géréé

voici mon 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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
  Dim TheServer As String = ""
        Dim de As String
        If de.Contains("gmail") Then
            TheServer = "smtp.gmail.com"
        ElseIf de.Contains("Hotmail") Then
            TheServer = "smtp.live.com"
        ElseIf de.Contains("Yahoo") Then
            TheServer = "smtp.mail.yahoo.com"
 
        End If
 
        Dim Email As New System.Net.Mail.MailMessage
 
        ProgressBar1.Value = 0
 
        Email.Subject = TextBox2.Text
        Email.Body = RichTextBox1.Text
 
        ProgressBar1.Value = 10
 
        If TextBox3.Text <> "" Then
            Dim data = New Net.Mail.Attachment(TextBox3.Text)
            Email.Attachments.Add(data)
        End If
 
        ProgressBar1.Value = 30
 
        Dim mailClient As New System.Net.Mail.SmtpClient()
        Dim basicauthentificationinfo As New System.Net.NetworkCredential(Form3.TextBox1.Text, Form3.TextBox2.Text)
        mailClient.Host = Form3.TextBox3.Text
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = basicauthentificationinfo
 
        ProgressBar1.Value = 50
 
        Email.From = New MailAddress("bou@free.fr")
        Email.To.Add(TextBox1.Text)
        mailClient.Send(Email)
 
        ProgressBar1.Value = 70
        ProgressBar1.Value = 100
 
        MsgBox("Le message a été envoyer")
    End Sub

je sais pas pourquoi sa ne marche pas