DO:
DEF VAR ok-met AS LOGICAL.
DEF VAR v-archivo AS CHAR INITIAL "c:\inetpub\pirulo.html".
v-archivo = chCtrlFrame:HTMLed:DocumentHTML. /*OCX HTTML Editor*/
OUTPUT TO c:\temp\pruebingui.html.
PUT v-archivo FORMAT "x(30000)".
OUTPUT CLOSE.
DEFINE VARIABLE p-From AS CHARACTER INITIAL "[email protected].com.ar".
DEFINE VARIABLE p-To AS CHARACTER INITIAL "[email protected].com".
DEFINE VARIABLE p-CCO AS CHARACTER.
DEFINE VARIABLE p-Subject AS CHARACTER INITIAL "Mail de prueba desde Sistemas".
DEFINE VARIABLE p-Contenido AS CHARACTER.
DEFINE VARIABLE p-HtmlBody AS LOGICAL. /* Especifica si el cuerpo del mensaje es con formato hatml o un string normal */
DEFINE VARIABLE ConfigNamespace AS ch INITIAL "http://schemas.microsoft.com/cdo/configuration/" .
DEFINE VARIABLE Cdo AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE iConfig AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE Flds AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE Contenido AS CHARACTER.
/* variables utilizadas para la recepcion de parametros */
DEFINE VARIABLE p-ServidorSmtp AS CHARACTER INITIAL "mail.cmbpsfrosario.com.ar".
DEFINE VARIABLE p-Puerto AS CHARACTER INITIAL "587".
DEFINE VARIABLE p-SendUsing AS CHARACTER INITIAL "2".
DEFINE VARIABLE p-Usuario AS CHARACTER INITIAL "[email protected].com.ar".
DEFINE VARIABLE p-Password AS CHARACTER INITIAL "password".
DEFINE VARIABLE p-Autenticacion AS CHARACTER INITIAL "1".
/* Configuracion del servidor smtp */
ppal:
DO ON ERROR UNDO ppal, LEAVE ppal:
CREATE "CDO.Message":U Cdo.
CREATE "CDO.Configuration":U iConfig.
/* */
iConfig:Fields:Item(ConfigNamespace + "smtpserver"):Value = p-ServidorSmtp.
iConfig:Fields:Item(ConfigNamespace + "smtpserverport"):Value = p-Puerto.
iConfig:Fields:Item(ConfigNamespace + "sendusing"):Value = p-SendUsing.
iConfig:Fields:Item(ConfigNamespace + "sendusername"):Value = p-Usuario.
iConfig:Fields:Item(ConfigNamespace + "sendpassword"):Value = p-Password.
iConfig:Fields:Item(ConfigNamespace + "smtpauthenticate"):Value = p-Autenticacion.
iConfig:Fields:UPDATE().
/* Envio de [email protected] */
Cdo:Configuration = iConfig.
Cdo:From = p-From. /* "[email protected].com".*/
Cdo:To = p-To. /* "[email protected].com".*/
IF p-CCO <> ""
then Cdo:CC = p-CCO.
Cdo:Subject = p-Subject. /* "Test con el Ejemplo de CDO que me pasaste". */
Contenido = v-archivo. /* EJEMPLO DE MAIL CUYO FORMATO DE CUERPO ES HTML */
/* "<html><head>" +
"<title>Ejemplo de mensaje con CDO</title>" +
"</head><body>" +
"<p>" +
"<h1>" +
"<Font Color=Green>" +
"Ejemplo de mensaje con CDO" +
"</Font>" +
"</h1>" +
"</p>" +
"</body>" +
"</html>". */
IF p-HtmlBody THEN cdo:HTMLBody = Contenido.
ELSE Cdo:TextBody = Contenido.
Cdo:Send() .
RETURN.
END.