'MANDAR MAIL REGISTRO
Dim mensaje As String
smtp.Initialize("smtp.miweb.com", 587, "[email protected]", "Sxxx", "SMTP")
smtp.UseSSL=True
smtp.StartTLSMode = True
smtp.Subject = "Prueba"
mensaje= observaciones.Text
smtp.Body = mensaje
smtp.Send
hd.ToastMessageShow("MAIL ENVIADO",True)