Utilidades
Envio de correo avanzado en AS400
|
 |
 |
En la web http://home.yebo.co.za/~10302602/download1.html
encontramos una utilidad, basada en la API QtmmSendMail
que nos permite entre otras muchas funcionalidades, la
de enviar ficheros adjuntos codificados en base64, es
decir, ficheros binarios.
Dicha utilidad tiene el inconveniente que no funciona
del todo correcta en entornos internacionales, no permite
acentos en el cuerpo del mensaje, existen algunos problemas
al guardar la codificación base64, la fecha de envio del
mail solo aparecia en máquinas que tubiesen el inglés
como idioma.
Con las modificaciones realizadas, solucionamos dichos
problemas.
Cómo instalar la utilidad:
- Bajate las modificaciones
- Descomprime el fichero zip en una carpeta de la QDLS.
- Ejecuta el mandato
CPYFRMPCD FROMFLR(CARPETA)
TOFILE(TOOLS/FONTS)
FROMDOC(DOCUMENTO)
por cada uno de los ficheros descomprimidos
- Ejecuta los siguientes mandatos:
CRTBNDDIR BNDDIR(QGPL/TOOLS)
TEXT('Directori d´enllaç per a utilitats')
ADDBNDDIRE BNDDIR(QGPL/TOOLS)
OBJ((QTCP/QTMMSNDM *SRVPGM))
En el PDM, Indica en los fuentes el tipo de miembro que
es
SNDMAIL CMD
SNDMAILC CLLE
SNDMAILR RPGLE
Compila SNDMAILC y SNDMAILR, y después compila el SNDMAIL
indicando que el programa a ejecutar es el SNDMAILC.
Alex Corretge
06-04-2001
|
|
| ¿Buscas trabajo ? | | Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico. |
|
|
¿Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.
Envianoslo y si resulta seleccionado
te enviaremos un vale de Amazon por valor de 50$.
Todos los trucos y documentos recibidos serán publicados.
|
|
