Reply to thread

Message: <blockquote data-quote="hasithayad" data-source="post: 22513606" data-attributes="member: 373872">[CODE]Imports System.Net.MailPublic Class Form1      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click      Try          Dim Smtp_Server As New SmtpClient          Dim e_mail As New MailMessage()          Smtp_Server.UseDefaultCredentials = False          Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")          Smtp_Server.Port = 587          Smtp_Server.EnableSsl = True          Smtp_Server.Host = "smtp.gmail.com"          e_mail = New MailMessage()          e_mail.From = New MailAddress(txtFrom.Text)          e_mail.To.Add(txtTo.Text)          e_mail.Subject = "Email Sending"          e_mail.IsBodyHtml = False          e_mail.Body = txtMessage.Text          Smtp_Server.Send(e_mail)          MsgBox("Mail Sent")      Catch error_t As Exception          MsgBox(error_t.ToString)      End Try   End SubEnd Class[/CODE]</blockquote>

Top Bottom