Function For Sending Email
Public Sub sendEmail(ByVal Recip As String, ByVal Subj As String, ByVal Msg As String, _
ByVal FromAdd As String, ByVal Pass As String, ByVal SMTP_Host As String, _
ByVal SMTP_Port As Integer)
Try
Dim SmtpServer As New System.Net.Mail.SmtpClient()
Dim mail As New System.Net.Mail.MailMessage()
SmtpServer.EnableSsl = True
SmtpServer.Credentials = New _
Net.NetworkCredential(FromAdd, Pass)
SmtpServer.Port = SMTP_Port
SmtpServer.Host = SMTP_Host
mail = New System.Net.Mail.MailMessage()
mail.From = New System.Net.Mail.MailAddress(FromAdd, "Test Message")
mail.To.Add(Recip)
mail.IsBodyHtml = True
mail.Subject = Subj
mail.Body = Msg
SmtpServer.Send(mail)
MsgBox("Mail Sent!", MsgBoxStyle.Information, "Sent")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
end sub