> with IdMessage1.Recipients.Add do begin
> sEMailRecip := strReplace(tblCustEMail.AsString, ',', ';');
> if Pos(';', sEMailRecip) = 0 then begin
> Address := strTrim(sEMailRecip);
> Name := strTrim(sEMailRecip);
> end else begin
> zEMailLeft := sEMailRecip;
> while zEMailLeft <> '' do begin
> if Pos(';', zEMailLeft) = 0 then begin
> Address := strTrim(zEMailLeft);
> Name := strTrim(zEMailLeft);
> zEMailLeft := '';
> end else begin
> zEMail := strLeft(zEMailLeft, Pos(';', zEMailLeft)-1);
> Address := strTrim(zEMail);
> Name := strTrim(zEMail);
> zEMailLeft := strRight(zEMailLeft,
> Length(zEMailLeft)-Pos(';', zEMailLeft));
> end;
> end; //while
> end;
> end;
All sorted. I realised I was only running the Add method once, so it was
overwriting each time.
Cheers,
Paul
