Discussion :

[Aherys]

Bonjour,

Je me retrouve avec cette erreur lors d'un envoi d'email :



Voici 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
          Dim oServeurSMTP As SmtpClient = New SmtpClient()
            Dim tAdresseSMTP As String() = m_sServeurSMTP.Split(CChar("|"))
 
            oServeurSMTP.UseDefaultCredentials = True
            oServeurSMTP.Credentials = New Net.NetworkCredential(m_sNom, anonyme)
            oServeurSMTP.Port = CInt(tAdresseSMTP(1))
            oServeurSMTP.EnableSsl = False
            oServeurSMTP.Host = tAdresseSMTP(0)
 
            'Configuration Email
            Dim oEmail As MailMessage = New MailMessage()
 
            oEmail.From = New MailAddress(oMessageEAI.Emetteur.Email & "@anonyme.org")
            oEmail.To.Add(oMessageEAI.Recepteur.Email & "@anonyme.org")
            oEmail.Subject = "test"
            oEmail.IsBodyHtml = False
            oEmail.Body = "test"
 
            'Envoi email
            oServeurSMTP.Send(oEmail)
            oServeurSMTP.Dispose()

J'ai du mal a comprendre ce qui ne passe pas, ou ce que j'aurais oublié. J'ai essayer d'entrer les valeurs en dur pour voir s'il ne s'agis pas d'un simple dépassement de tableau... mais rien n'y fait.
Je n'ai pas réussi non plus a trouver de solution, ou même de piste... alors que ça devrais être tout simple.