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
| Dim client As New System.Net.Mail.SmtpClient
Dim message As New System.Net.Mail.MailMessage
client.Credentials = New System.Net.NetworkCredential("maloue@xxx.local", "xxxxxxx")
'***** définition du port
client.Port = 25
'***** définition du serveur smtp
client.Host = "192.168.16.4"
'*****
client.EnableSsl = False
'**** Adresse de l'emeteur
message.From = New System.Net.Mail.MailAddress("malue@ste.fr")
'***** Adresse du destinataire
message.To.Add("dupond@ste.fr")
'***** Eventuellement Pièce jointe
If EMAIL.CheckBox1.Checked = True Then
Dim item As New System.Net.Mail.Attachment("C:\MAIL.PDF")
message.Attachments.Add(item)
End If
'***** Sujet du message
message.Subject = Objet_Mail
'***** Contenu du Message
message.IsBodyHtml = False
message.Body = Richtextbox.text
'***** Envoid du mail
client.Send(message)
message.Dispose()
client = Nothing |
Partager