RE: Send more than one recipient with QtmmSendMail is not working

[<mario.salgado@xxxxxxxxx>]

Thanks Vernon,
I'm using a source from Scott Klement I show you:  sendmail_h
      /if defined(SENDMAIL_H)
      /eof
      /endif
      /define SENDMAIL_H

     D QtmmSendMail    PR                  ExtProc('QtmmSendMail')
     D   FileName                   255A   const options(*varsize)
     D   FileNameLen                 10I 0 const
     D   MsgFrom                    256A   const options(*varsize)
     D   MsgFromLen                  10I 0 const
     D   RecipBuf                          likeds(ADDTO0100)
     D                                     dim(32767)
     D                                     options(*varsize)
     D   NumRecips                   10I 0 const
     D   ErrorCode                 8000A   options(*varsize)

     D ADDTO0100       ds                  qualified
     D                                     based(Template)
     D   NextOffset                  10I 0
     D   AddrLen                     10I 0
     D   AddrFormat                   8A
     D   DistType                    10I 0
     D   Reserved                    10I 0
     D   SmtpAddr                   256A

      // Email Address Type Constants
     D ADDR_NORMAL     C                   CONST(0)
     D ADDR_CC         C                   CONST(1)
     D ADDR_BCC        C                   CONST(2)

Saludos Cordiales,





-----Mensaje original-----
De: Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx> 
Enviado el: viernes, 22 de mayo de 2020 11:45 a.m.
Para: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Asunto: Re: Send more than one recipient with QtmmSendMail is not working

Hello

You did not show us your prototype for QtmmSendMail - number of elements has to be declared BYVAL - that's the first idea I have.

Regards
Vern

On 5/22/2020 10:01 AM, mario.salgado@xxxxxxxxx wrote:
> 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,
>
>   
>
>   
>
>
>
>   
>
>