1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Try
Dim googleMailPortNumber As Integer = "587" ' OR 465
Dim userName As String = "compt@gmail.com"
Dim passWord As String = "monpass"
Dim msgMail As MailMessage
Dim smtp As SmtpClient
msgMail = New MailMessage("compt@gmail.com", "myzampaktou@gmail.com", "Subject", "Body")
smtp = New SmtpClient("smtp.gmail.com", googleMailPortNumber)
smtp.EnableSsl = True
smtp.DeliveryMethod = SmtpDeliveryMethod.Network
smtp.Credentials = New System.Net.NetworkCredential(userName, passWord)
smtp.Send(msgMail)
MessageBox.Show("Sent!", "Sent", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.None)
End Try |
Partager