Re: 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,