Imports system.net.mail
dim Mail as new mailmessage
Try
mail.From = New MailAddress("FROM EMAIL")
mail.To.Add(TO EMAIL)
mail.Subject = "SUBJECT"
mail.Body = "BODY"
Dim s As New SmtpClient("HOST")
s. Port = PORT
s. EnableSsl = True
s.Credentials = New System.Net.NetworkCredential("FROM EMAIL, "FROM PASSWORD")
s.Send(Mail)
MsgBox("E-mail trimis!", MsgBoxStyle.Information, "Information")
Catch ex As Exception
End Try
Daca afiseaza ceva erori in urma executarii codului, sau ai nelamuriri contacteaza-ma.
Apropo sa-ti explic unele lucruri.
Tu va trebui sa inlocuiesti FROM EMAIL cu mailul tau, sau de exemplu cu textbox1. text (in cazul acesta nu uita sa adaugi control textbox1)
TO EMAIL cu destinatarul sau textbox2. text (in cazul acesta nu uita sa adaugi control textbox2)
SUBJECT cu textul ce va fi trimis (textbox3. text)
FROM PASSWORD cu parola contului tau (sau textbox4. text)
HOST si PORT cu urmatoarele exemple:
Hotmail:
HOST: Smtp.live.com
Port: 587
Gmail:
HOST: smtp.gmail.com
Port: 587
Yahoo:
HOST: smtp.mail.yahoo.com
Port: 465
Aol:
HOST: smtp.aol.co.uk
Port: 587
Nu uita sa daugi controalele necesare executarii programului tau, asta desigur tine de cum vrei tu sa-l realizezi si ce scop sa aiba.