dim username as string
dim password as string
dim sendcatre as string
username = #$user$#
password = #$pass$#
sendcatre = #$send$#

Dim SmtpServer As New SmtpClient()
        SmtpServer.Credentials = New Net.NetworkCredential(username, password)
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        mail = New MailMessage()
        Dim addr As String = sendcatre