Sem problemas...
Vamos lá, eu fiz o seguinte: Eu tenho um grid os boletos selecionados, aí fiz um loop para criar os titulos e no início do loop eu limpei a lista e criei novamente e no final eu enviei os e-mails, assim ele envia um por um, ou seja, envia o boleto para cada cliente.
Código:
QrReceitas.First;
while not QrReceitas.eof do
begin
ACBrBoleto1.ListadeBoletos.Clear;
Titulo := ACBrBoleto1.CriarTituloNaLista;
with Titulo do
begin
LocalPagamento := DMDados.Qry_lojaLOJ_PRM_INSTRUCAODECAIXA.Value + ' ' + MsgVencto;
Vencimento := StrToDate(FormatDateTime('dd/mm/yyyy', DMDados.CliDS_ReceitasListagemVENCIMENTO_RECEITA.Value));
DataDocumento := StrToDate(FormatDateTime( 'dd/mm/yyyy', DMDados.CliDS_ReceitasListagemEMISSAO_RECEITA.AsDateTime));
EspecieDoc := Trim(edtEspDoc.Text);
EspecieMod := Trim(edtEspecie.Text);
Aceite := atSim
DataProcessamento := StrToDate(FormatDateTime('dd/mm/yyyy', Date));
Carteira := DMDados.qryContasCC_CARTEIRA.AsString;
NumeroDocumento := DMDados.CliDS_ReceitasListagemNUMDOCTO_RECEITA.AsString;
ValorDocumento := DMDados.CliDS_ReceitasListagemVALOR_RECEITA.Value;;
Sacado.NomeSacado := DMDados.CliDS_ReceitasListagemNOME_PESSOA.AsString;;
Sacado.Email := DMDados.CliDS_ReceitasListagemEMAIL_PESSOA.AsString;;
Sacado.CNPJCPF := Trim(DMDados.CliDS_ReceitasListagemCPFCNPJ_PESSOA.AsString);
Sacado.Pessoa := pJuridica;
Sacado.Logradouro := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_ENDERECO.AsString), 1, 31);
Sacado.Bairro := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_BAIRRO.AsString), 1, 15);
Sacado.Cidade := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_CIDADE.AsString), 1, 15);
Sacado.UF := Trim(DMDados.CliDS_ReceitasListagemCOB_UF.AsString);
Sacado.CEP := Trim(DMDados.CliDS_ReceitasListagemCOB_CEP.AsString);
ValorMoraJuros := StrToFloat('0');
ValorAbatimento := DMDados.CliDS_ReceitasListagemREC_DESCONTO.AsCurrency;
DataMoraJuros := Now;
DataAbatimento := 0;
Sacado.Complemento := '';
NossoNumero := IntToStr(DMDados.Qry_ContasCC_NOSSONUMEROEXT.AsInteger + cont);
if TipoInteracao = ImprimirComEmail then
ACBrBoleto.EnviarEmail(Sacado.Email,'Teste boleto', nil, True);
Next;
end;
QrReceitas.Next;
end;
