Alex Where its going to and the mail are two separate items. What you do is have a loop and "ask" the server if its ok to send to each address. If you look at the function SendToRaw in TSMTPSend you'll see:
s := MailTo; repeat t := GetEmailAddr(Trim(FetchEx(s, ',', '"'))); if t <> '' then Result := SMTP.MailTo(t); if not Result then Break; until s = ''; if Result then Result := SMTP.MailData(MailData); end; ie first tell the server where each copy of the email is going Result := SMTP.MailTo(t); and if its ok send it Result := SMTP.MailData(MailData); Roy Lambert ------------------------------------------------------------------------------ Return on Information: Google Enterprise Search pays you back Get the facts. http://p.sf.net/sfu/google-dev2dev _______________________________________________ synalist-public mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/synalist-public
