Compatible Lotus Notes.
List the attachments of a Lotus message.
The message was listed by a previous call to MAILLMSG.
On return, &RESULT contain FALSE if there is no more attachments in the message.
Syntax
CHGVAR |
VAR(&CMD) VALUE('MAILLATT') |
CHGVAR |
VAR(&PARM1)
VALUE(' |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Parameters
Parameters |
|
Parm1 or Parm2
|
Start : If true, the description of the first attachment is returned in &RESULT. |
RESULT |
After the call, parameter &RESULT contains : FALSE if the last attachment was listed, Type="file type"; Name="original File name" ; Path="original path to the file" ;
|
Example
CHGVAR
VAR(&CMD) VALUE('MAILLATT')
CHGVAR VAR(&PARM1) VALUE('Start=True')
CHGVAR VAR(&RESULT) VALUE(' ')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 &PARM2
&RESULT)
IF COND(&RESULT *EQ 'FALSE') THEN(GOTO CMDLBL(END))
CHGVAR VAR(&NAME) VALUE(' ')
CALL PGM(LNCGETKW) PARM(&HANDLE &RES 'Name ' &NAME)