Bonjour,
Je me retrouve avec cette erreur lors d'un envoi d'email :
Voici le code :
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.
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()
Je n'ai pas réussi non plus a trouver de solution, ou même de piste... alors que ça devrais être tout simple.
Partager