Sending email using your gmail or yahoo account.

Private Function mailSend(maccount as string, AccPassword as string, mrecipient as string, msubject as string, mbody as string, accountsmtp as string) As Boolean

Try

Dim accountname As String = maccount

Dim loginfo As New NetworkCredential(accountname , AccPassword )

Dim msg As New MailMessage

msg.From = New MailAddress(gmailaccount)

msg.To.Add(New MailAddress(mrecipient ))

msg.Subject = msubject

msg.Body = mbody

msg.IsBodyHtml [...]