Başlıktaki gibi
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ı icin 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)

__________________