ASP.NET

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Text
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Threading

Public Class EmailLibrary

    Private SendTo As String
    Private From As String = "******@gmail.com"
    Private FromName As String = "****************"
    Private Subject As String = "******************"
    Private Body As String
    Private SMTPServer As String = "smtp.gmail.com"
    Private AccessKey As String = "******"
    Private Port As Integer = 587

    Public Sub EmailPasswordAndUserName(ByVal Name As String, ByVal Password As String, ByVal Email As String)

        SendTo = Email

Body = "" & "Username: " & Name _
& "Password: " & Password _
& "Note: " _
& "We encourage you to change your password as soon as you receive this message." _
& "Please refrain from sharing your password with others."

        Dim Message As New System.Net.Mail.MailMessage

        Try

            Message.To.Add(SendTo)
            Message.From = New MailAddress(From, FromName, System.Text.Encoding.UTF8)

            Message.Subject = Subject
            Message.SubjectEncoding = System.Text.Encoding.UTF8

            Message.Body = Body
            Message.BodyEncoding = System.Text.Encoding.UTF8
            Message.IsBodyHtml = True

            Message.Priority = MailPriority.High

            Dim Client As New SmtpClient(SMTPServer)
            Client.Credentials = New System.Net.NetworkCredential(From, AccessKey)
            Client.Port = Port
            Client.Host = SMTPServer
            Client.EnableSsl = True

            Client.Send(Message)

        Catch Ex As Exception
            Throw Ex
        End Try

    End Sub