Fórum Enviar e-mails sem acumular na lista de destinatários #234574

Amigos,

Estou enviando e-mails de meu sistema, só que são diversas contas e todas são mostradas no campo para do e-mail. Como faço para que apenas o nome de dado destinatário seja informado neste compo.

Estou usando:

TabEletronica.First;
while not TabEletronica.eof do begin
lNome := TabEletronica.FieldByName(´Nome´).AsString;
if TabEletronica.FieldByName(´Endereco´).AsString > ´´ then begin
if lPrimeiro then begin
lemails := lemails+TabEletronica.FieldByName(´Endereco´).AsString;
lPrimeiro := false;
lQtde := lQtde + 1;
end else begin
lemails := lemails+´;´+TabEletronica.FieldByName(´Endereco´).AsString;
lQtde := lQtde + 1;
end;
end;
TabEletronica.Next;
end;

if lQtde < 1 then begin
ShowMessage(´Nenhum e-mail válido encontrado !´);
exit;
end;

ShellExecute(Handle,´open´,PChar(´mailto:´+lemails+´?subject=´+lAssunto+´&body=mensagem a ser enviada´),nil,nil,SW_SHOWMAXIMIZED);

Agradeço pela ajuda.