Kod:
Dim mail As New Net.Mail.MailMessage()
Dim SmtpServer As New Net.Mail.SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("E-posta adresi", "Şifre")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.live.com" 'gMail hesapları için smtp.gmail.com
SmtpServer.EnableSsl = True
mail.To.Add(TextBox1.Text)
mail.From = New Net.Mail.MailAddress(TextBox2.Text)
mail.Subject = "Buraya Bakın"
mail.Body = "Mesaj alanı"
SmtpServer.Send(mail)Kod Bu arkadaşlar Gereken yerlerı gerektiği gibi doldurun yenı başlayanların işine yarayabilir
illa buttona yazmak zorundada değilsin her hangı bır yerede olabılır
