envoyer mail par smtp

Version imprimable

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:

Citation:

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

voici mon code:

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

25/11/2010, 19h49
peregna2007

Bonjour ,

Dans ce bout de code, vous declarer une variable

Code:

Dim de As String

vous faite un test

Code:

If de.Contains("gmail") Then

sans que vous n'affecter de valeur à la variable. L'erreur vient sans doute du faite que

Code:

de.Contains

est null. Essayez de lui affecter une valeur.
25/11/2010, 22h17
Invité

donc juste avant le test je doit marquer
de.contains =
mais quelle valeur je doit lui mettre ?

cool sa marche
voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
  Dim TheServer As String = "" 'pour modifier le serveur selon les besoins
        Dim de As String
        de = TheServer
        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

par contre je ne sais pas si j'ai bien écrit mon code

26/11/2010, 01h07
Danyel

Bouh, c'est pas beau tous ses elseif, utilise plutot le select case.

tu veut dire comme sa ?

Code:

1
2
3
4
5
6
7
8
9
10
11
  Dim TheServer As String = "" 'pour modifier le serveur selon les besoins
        Dim de As String
        de = TheServer
        Select Case TheServer
            Case de.Contains("gmail")
                TheServer = "smtp.gmail.com"
            Case de.Contains("Hotmail")
                TheServer = "smtp.live.com"
            Case de.Contains("Yahoo")
                TheServer = "smtp.mail.yahoo.com"
        End Select

c'est plus jolie comme sa ?

26/11/2010, 18h30
Danyel

C'est surtout mieux optimise et plus rapide.