Bonjour
J'ai testé ce code VB.NET dans une page aspx et il marche, mais lorsque j'essaye de l'utiliser dans un projet "Application console" il ne marche plus.Je ne comprend pas il me renvoi "echec d'envoi du courrier 1"
J'ai donc une "SmtpException"
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 Private Sub EnvoisMail(ByVal oMailAdresse As String, ByVal oMailDestinataire As String, ByVal oMailSujet As String, ByVal oMailTexte As String, ByVal oMailSMTP As String, ByVal oMailLogin As String, ByVal oMailPassword As String, Optional ByVal oMailFichier As String = Nothing) Dim oMail As MailMessage Dim oSmtp As SmtpClient oMail = New MailMessage With oMail .From = New MailAddress(oMailAdresse) .To.Add(oMailDestinataire) .Subject = oMailSujet .Body = oMailTexte .BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1") .SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1") If oMailFichier <> "" Then .Attachments.Add(New Attachment(oMailFichier)) End If End With oSmtp = New SmtpClient With oSmtp .Host = oMailSMTP .Credentials = New Net.NetworkCredential(oMailLogin, oMailPassword) .EnableSsl = False .Port = 25 End With Try oSmtp.Send(oMail) Console.WriteLine("ok") Catch ex As SmtpException Console.WriteLine(ex.Message & 1) Catch ex As Exception Console.WriteLine(ex.Message) End Try End Sub
merci
Partager