FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#8
|
||||
|
||||
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 = ''; |
|
|
|