Factory Talk View enviar E-mail

En esta practica vamos a ver como fácilmente podemos enviar un e-mail desde nuestro Scada en Factory Talk View, esto es posible debido al uso de VBA (Visual Basic for Aplication). El objetivo es enviar un e-mail cuando se ha producido una determinada Alarma en el Sistema, vamos a considerar que la Alarma es el nivel de un Deposito y vamos a utilizar la estructura de la definición de una Alarma Digital como vimos en la practica anterior.

Hemos insertado un objeto del tipo Numeric Display, que tranquilamente puede estar oculto, lo que previamente hacemos es asociarle el bit de Alarma activa.

Una vez definido esto, con el botón derecho abrimos el editor de VBA Code, y lo que vamos a crear es una función para enviar el mail, pero para ello previamente tenemos que agregar una referencia al objeto Microsoft CDO for Windows 2000 Library, esto lo hacemos desde Tools -> References y la agregamos.

La función en cuestión es la siguiente, declaramos una variable del tipo CDO.Message y una vez declarada y dada de alta, lo que hacemos es pasarle los parámetros del Servidor SMTP, en este caso Gmail y los argumentos que usamos cuando enviamos un correo.

Ya hemos definido nuestra función, ahora tenemos que hacer su llamada, y lo vamos a hacer cuando el valor de nuestra Alarma cambie a 1, esto significara que se ha activado, seleccionamos el objeto NumericDisplay1 y seleccionamos el evento Change, que es el que nos interesa, el código que hacemos es el siguiente, la variable interna de la función Email, podría ser una variable interna del Scada y a su vez configurarla como una alarma en el caso de que de error al enviar el mail ...

Ahora vamos a probar que funciona correctamente y vamos a forzar nuestra alarma, al cambiar a 1 se ejecuta el evento Change del numericDisplay1, que a su vez hace la llamada a la funcióne e-mail

Y si comprobamos el correo, aquí lo tenemos...

Actualización 26-3-2015 "Si al enviar el mail te sale un error y estas usando Gmail, revisa el siguiente link"