El lenguaje VB.NET interactúa con Windows para obtener información sobre los usuarios conectados al equipo de Terminal Services. Puede utilizar esta información recopilada para obtener el nombre de un usuario y enviar un aviso por correo electrónico al usuario. Este tipo de programación que envía una notificación al usuario si su sesión de Servicios de Terminal Server caduca , por ejemplo, o su contraseña ha sido cambiada. Instrucciones
1

Abra el archivo VB.NET que desea utilizar para enviar el correo electrónico. Al abrir el archivo , Windows abre automáticamente Visual Studio , que es el editor de VB.NET .
2

Agregue el código que obtiene la información de Servicios de Terminal Server para el usuario conectado . VB.NET trabaja con el sistema interno de Windows para obtener la información que configure en Active Directory para el usuario. AD es el sistema de seguridad que controla toda la seguridad de red de Windows , incluidos los Servicios de Terminal Server. El código siguiente obtiene la información :

nombre de usuario As StringDim email Como Stringusername = Marshal.PtrToStringAnsi ( pAddress ) email = Marshal.PtrToStringAnsi (nombre de usuario )
3

Enviar la notificación al destinatario . Después de obtener el correo electrónico, puede enviar un mensaje al destinatario a través de la información de sesión de Windows. Agregue el código siguiente para enviar un mensaje de correo electrónico :

servidor Dim As New SmtpClient ( ) Correo dévil como nuevo MailMessage () mail = New MailMessage () mail.From = New MailAddress ( " tsnotifications@domain.com " ;) mail.To.Add (email) mail.Subject = " Notificaciones de correo " mail.Body = "Esta es una notificación para la sesión de TS " server.Send (correo)
4

Haga clic en el botón "Guardar " . Pulse la tecla " F5 " para compilar el código y ejecutarlo en el depurador. El depurador comprueba los errores y pruebas del código de su estación de trabajo.