Dear friend:
Here you have a small routine, which receives several parameters and sends the mail.
Parameters are:
pmSendTo
pmSubject
pmImportancia
pmL1
pmL2
....
pmL20
You have to contact your administrator in order to see the xServer and xFrom variables how to fill them in.
pmL1 to pmL20 are to possible lines you can send in the mail.
Good luck.
---------------------------------------------------------------------
*
* Envio de notas
*
Ans = "";
Deffun DSSendMail(A);
*
xFrom = "From:
notificacion-etl@osde.com.ar";
xTo = "To:":pmSendTo;
xSubject = "Subject:":pmSubject;
xServer = "Server:osde-central-2.osde";
xBody = "Body: IMPORTANCIA-":pmImportancia;
xBody = xBody:" n n":pmL1;
xBody = xBody:" n":pmL2;
xBody = xBody:" n":pmL3;
xBody = xBody:" n":pmL4;
xBody = xBody:" n":pmL5;
xBody = xBody:" n":pmL6;
xBody = xBody:" n":pmL7;
xBody = xBody:" n":pmL8;
xBody = xBody:" n":pmL9;
xBody = xBody:" n":pmL10;
xBody = xBody:" n":pmL11;
xBody = xBody:" n":pmL12;
xBody = xBody:" n":pmL13;
xBody = xBody:" n":pmL14;
xBody = xBody:" n":pmL15;
xBody = xBody:" n":pmL16;
xBody = xBody:" n":pmL17;
xBody = xBody:" n":pmL18;
xBody = xBody:" n":pmL19;
xBody = xBody:" n":pmL20;
xBody = xBody : " n n n*** DataStage - Cobranzas ***";
*
rc = DSSendMail(xFrom:"n":xTo:"n":xSubject:"n":xServer:"n":xBody:"n");
*
IF rc "0"
THEN
CALL DSLogFatal("Error en el DSSendMail.","MSG");
Ans = "ERROR";
END
ELSE
CALL DSLogInfo("** Se ha enviado un mail a ":pmSendTo:" por el asunto ":pmSubject:".","MSG");
Ans = "OK";
END
---------------------------------------------------------------------
Guillermo P. Barsky
Buenos Aires - Argentina