No recuerdo si se puede desde un CL pero en RPG ILE se recupera de los repositorios QAOKL02A y QATMSMTPA. Hdftactgrp(*no) option(*nodebugio) datfmt(*iso)
F* F* F* Repositorios FQAOKL02A IF E K DISK FQATMSMTPA IF E K DISK F* F* F*--------------------------------------------------------------------- D* Constantes D UCase C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' D LCase C 'abcdefghijklmnopqrstuvwxyz' D* D* Definición de variables DwUser S 10A inz(*user) D* D*--------------------------------------------------------------------- D* Parámetros D inUser S 10A D outAddress S 50A D* D*--------------------------------------------------------------------- D* Prototipos externos C* C*--------------------------------------------------------------------- C* Parámetros C *ENTRY PLIST C PARM inUser Usuario: C PARM outAddress Email: C*END-ENTRY C* C* C EVAL outAddress = *BLANKS C IF inUser = *blanks C EVAL inUser = WUser C ENDIF C inUser CHAIN QAOKL02A C IF %FOUND(QAOKL02A) C kclave KLIST C KFLD WOS1DDEN C KFLD WOS1DDGN C kclave CHAIN QATMSMTPA C IF %FOUND(QATMSMTPA) C EVAL outAddress = %trim(DOMROUTE) C EVAL outAddress = C %xlate(UCase:LCase:outAddress) C ENDIF C ENDIF C SETON LR C RETURN -----Mensaje original----- De: Ruiz, Fernando [mailto:[EMAIL PROTECTED] Enviado el: Miércoles, 03 de Enero de 2007 12:50 p.m. Para: 'forum.help400' Asunto: Direccion de mail Amigos foreros, alguien puede decirme en que lugar del perfil del usuario u otro lado se puede cargar la direccion de mail del usuario de manera tal que después desde un CL la pueda recuperar con el comando RTVUSRPRF u otro. Muchas gracias. Saludos -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.16.2/613 - Release Date: 01/01/2007 14:50 -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.16.2/613 - Release Date: 01/01/2007 14:50 Este mensaje es estrictamente confidencial. Puede contener informacion amparada y protegida por el secreto profesional. Si usted ha recibido este e-mail por error, por favor eliminelo de su sistema. Este mensaje no puede ser copiado, ni divulgado su contenido a ninguna persona. Muchas gracias. This message is strictly confidential. It may contain information protected by work product immunity or other legal rules. If you have received it by mistake please delete it from your system. You should not copy the message or disclose its contents to anyone. Thank you.
__________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
