1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
...
Dim sAdOrigine As String = sExpediteur
Dim sAdDestination As String = sDestinataire
Dim sSmtp As String = spSmtp
If sAdOrigine <> System.String.Empty And sAdDestination <> System.String.Empty And sSmtp <> System.String.Empty Then
Dim oMessage As New System.Net.Mail.MailMessage(sAdOrigine, sAdDestination)
' Dim oEncodage As System.Text.Encoding = System.Text.Encoding.GetEncoding("iso-8859-1")
oMessage.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
oMessage.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
oMessage.Body = "..."
oMessage.Subject ="..."
Dim oSmtpMail As New System.Net.Mail.SmtpClient(sSmtp)
oSmtpMail.Send(oMessage)
Return True
End If
... |