Problemas para enviar mais de um email

[alexandrecordeiro 0]

Bom,

 

Estou com um problema com o seguinte código:

 

"procedure TFmService.EnviaEmail;

var Mail:TMail;

TextoSQL,Email: String;

ListaCrp,ListaEmail: TStrings;

Operador,Autorizador: String;

begin

if AbreTabela('Select * from EMAIL_PENDENTE',TqEmailPendente) then begin

TqEmailPendente.First;

while not TqEmailPendente.Eof do begin

try

Mail := TMail.Create(GetLocal('Alerta','HOST'), GetLocal('Alerta','PORTA'));

ListaCrp := TStringList.Create;

ListaEmail := TStringList.Create;

ListaCrp.Add(TqEmailPendenteEMPCRP.AsString);

ListaEmail.Add(TqEmailPendenteEMPEMAIL.AsString);

Mail.Enviar(Trim(ListaEmail.Text),'test@teste.com.br','Nome do Aplicativo','Nome do Aplicativo',

ListaCrp,tehtml,'','','');

DeletaEmail;

finally

FreeAndNil(Mail);

FreeAndNil(ListaCrp);

FreeAndNil(ListaEmail);

end;

TqEmailPendente.Next;

end;

end;

end;"

 

Se a variavel ListaEmail tiver mais de um email descrita o email não chega ao destino. Entretanto se no corpo tiver apenas um email se ";" o email chega normalmente. Alguem poderia me dar alguma dica como resolver esse problema.

 

Obrigado.

[Chrnos 30]

Se você vai mandar o e-mail pra uma lista com vários endereços de e-mail, entre cada um deles tem que ter um ';', senão não vai funcionar mesmo.... do jeito que você está montando seu while, provavelmente seu stringlist deve ficar com algo vários endereços de e-mail sem o separador obrigatório (;), o que faz seu e-mail não ser gerado corretamente... Aqui mesmo no fórum tem alguns exemplos de rotinas para envio de e-mail já prontas, dê uma pesquisada.

 

[]'s