Hola, de esta manera puedes enviar emails, pero debes tener el outloock abierto.
haz un programa que llame a un procedure y le pasas los parametros de "para", "asunto", "mensaje" y los ficheros que quieras añadir.
necesitas crearte un include que te lo describo abajo.
Investiga y juega con ello, funciona porque yo lo utilizo bastante. Espero que te sea de gran utilidad.
RUN CDMAIL.P (para, asunto, mensaje, ficheros).
***** PROCESO CDMAIL.P *******
DEF INPUT PARAMETER out-para AS char FORMAT "x(30)" NO-UNDO.
DEF INPUT PARAMETER out-assunto AS char FORMAT "x(30)" NO-UNDO.
DEF INPUT PARAMETER out-mensagem AS char FORMAT "x(30)" NO-UNDO.
DEF VAR out-assinatura AS char FORMAT "x(30)" NO-UNDO.
DEF INPUT PARAMETER out-anexo AS char FORMAT "x(30)" NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEF var alert-msg AS char NO-UNDO.
DEF var t-error AS logical NO-UNDO.
alert-msg = out-mensagem.
&SCOPED-DEFINE mail-subject out-assunto
RUN mail-send (out-para,
{&mail-subject},
alert-msg +
"~n~n" +
out-assinatura,
out-anexo,
"",
OUTPUT t-error).
IF t-error and session:batch-mode = no THEN
MESSAGE " Para : " out-para SKIP
"Assunto : " out-assunto SKIP
" Anexo : " out-anexo SKIP
"Problemas al enviar MS e-mail!" VIEW-AS alert-box.
ELSE
MESSAGE "Mensaje enviado."
VIEW-AS ALERT-BOX INFO BUTTONS OK.
{"cdmail.i"}
***** CDMAIL.I ********
/* Send Mail by Microsoft Outlook */
/* Copyrigh