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

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Thanks - I think I was mistaken, the NumRecips is a pointer to int in 
the C declaration, so const is correct.

So that is not the problem - I don't know what is wrong, then, sorry.

Vern

On 5/22/2020 3:23 PM, mario.salgado@xxxxxxxxx wrote:
> 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,
> >
> >    
> >
> >    
> >
> >
> >
> >    
> >
> >