ActiveMail:
Mediante el componente «ActiveMail» podrá enviar mensajes vía e-mail a otras cuentas de correo e incluso a celulares habilitados para tal fin. Resulta muy útil para reportes de Alarmas o Eventos críticos de procesos automáticos. Active Mail utiliza la librería «Ossmtp.dll» * de la empresa Ostrosoft ® la que se registrará en el equipo al momento de la instalación. Si no se registra, el objeto no funcionará. En este caso deberá registrarla manualmente desde Inicio + Ejecutar: «regsvr32 ossmtp.dll»
Ventana de Propiedades
Métodos:
SendMail: Envía un correo con los propiedades especificadas.
Add_AttachmentFile: Agrega un archivos adjunto para ser enviado con el correo.
Propiedades:
AuthenticationType: Tipo de autenticación.
|
BCC: Dirección de envío de copia carbónica invisible.
CC: Dirección para envío de copia.
Enabled: Indica si el control está disponible.
From: Dirección de correo desde donde se envía el correo.
Importance: Indica el nivel de importancia y prioridad del mensaje.
|
value |
name |
description |
|
0 (default) |
ImportanceNormal |
Normal priority/importance |
|
1 |
ImportanceLow |
Low priority/importance |
|
2 |
ImportanceHigh |
High priority/importance |
MssageHTML: String del Mensaje HTML.
MessageText: Texto del mensaje.
Name: Indica el Nombre del Objeto.
PassWord: Clave usada para autentificar el servidor de correo.
Port: Puerto SMTP(default 25).
SendTo: Lista de destinatarios del mensaje.
Server: Nombre del Host o dirección IP del servidor SMTP
StatusText: Texto del estado del componente.
Subject: Indica el Asunto del mensaje.
TimeOut: Indica el tiempo de espera en milisegundos (default 10000).
UserName: Nombre de usuario utilizado para la autentificación del servidor de correo.
Página de Propiedades:
Pulsando (Personalizado) en la Ventana de Propiedades podrá abrir la página de propiedades que le ayudará a completar los parámetros básicos del componente, tal como se muestra a continuación..
Ejemplo:
Private Sub Command1_Click()
‘Envía un Mail a los destinatarios
ActiveMail1.Port = 25ActiveMail1.Server = «localhost»
ActiveMail1.From = «produccion_psa@hotmail.com»
ActiveMail1.SendTo = «mantenimiento_psa@hotmail.com«ActiveMail1.MessageText = «Nivel de tanque 4 por debajo del mínimo!»
ActiveMail1.Subject = «Mensaje Automático »
ActiveMail1.Importance = 2 ‘0-Normal, 1-Baja, 2-Alta
ActiveMail1.Add_AttachmentFile «Nombre Archivo», «c:\unarchivo.txt», «de texto»
ActiveMail1.SendMail
End Sub
Private Sub ActiveMail1_ErrorSMTP()
‘Reportar error
MsgBox ActiveMail1.StatusText, vbApplicationModal, «ActiveMail»
End Sub