Send more than one recipient with QtmmSendMail is not working

Hello everyone,

I?m trying to send more than one recipient using QtmmSendMail but it?s only
works using 1, I don´t know what is missing or wrong, hope somebody give me
the right direction.

Sending to you the routine I?m using to add 4 mails without luck.



This is the definition for a list of recipient changed for 30 maximum
instead of one.



D recip ds likeds(ADDTO0100)

D dim(30)



Calculus

-----------

For element = 1 to count; // Count is 4 just an example




Select;

When element = 1;

toaddr = 'mario.salgado@xxxxxxxxx';

When element = 2;

toaddr = 'salgadoas400@xxxxxxxxx';

When element = 3;

toaddr = 'mario_salgado@xxxxxxxxx';

When element = 4;

toaddr = 'hn000246@xxxxxxxxxxx';

EndSl;



recip(element).NextOffset = %size(ADDTO0100);

recip(element).AddrFormat = 'ADDTO0100';

recip(element).DistType = ADDR_NORMAL;

recip(element).Reserved = 0;

recip(element).SmtpAddr = toAddr;

recip(element).AddrLen = %len(toAddr);



Endfor;



QtmmSendMail( FileName

: %len(FileName)

: fromAddr

: %len(fromAddr)

: recip

: %elem(recip)

: NullError );









Saludos Cordiales,