|
Resuleto
Gracias EnanO, al final lo resolvi de la siguiente manera y asi puedo continuar generando los correos en un string separados por ";".
Texto := Para;
NPara := '';
Repeat
NPara := copy(Texto,1,pos(';',Texto)-1);
Texto := copy(Texto,pos(';',Texto)+1,Length(Texto));
if NPara <> '' then
PostMessage.Recipients.Add.Address := NPara
else
PostMessage.Recipients.Add.Address := Texto;
Until NPara = '';
|