Painel de líderes

Pesquisando aqui no fórum, não achei nada que resolvesse meu problema. Depois de quebrar um pouco a cabeça segue abaixo o código e espero que possa ajudar a quem enfrente o mesmo problema. A questão era: Monto um lote de boletos de variados clientes com diversos títulos. Através dele consigo imprimir em um único PDF todos os boletos, só que após isso eu gostaria de enviar por e-mail os boletos individuais para o respectivos clientes. O problema é que a ListadeBoletos contém todos os títulos e a procedure EnviarEmail só me permite enviar um único e-mail, ela não é capaz de "quebrar" os e-mail por clientes. A solução foi: No formulário inseri dois componentes do tipo TACBrBoleto e dois do tipo TACBRBoletoFCFortes. Sendo que um conjunto fica para o "Lote" e o outro fica para "Auxiliar" no envio dos e-mails. ACBrBoletoLote - ACBRBoletoFCLote ACBrBoletoEMail - ACBRBoletoFCEMail Após inserir os títulos normalmente na lista de boletos do ACBrBoletoLote segue o código do procedimento. (*Imprime os boletos em PDF*) ACBrBoletoLote.Imprimir; (*Prepara o ACBrBoletoEmail com os mesmos parâmetros do ACBrBoletoLote*) ACBrBoletoEmail.Cedente := ACBrBoletoLote.Cedente; ACBrBoletoEmail.Banco := ACBrBoletoLote.Banco; (*Laço que percorrerá a lista de Boletos e através do ACBrBoletoEMail enviará boletos individuais para cada cliente*) for i := 0 to Pred(ACBrBoletoLote.ListadeBoletos.Count) do begin (*Limpa a lista de boletos auxiliar*) ACBrBoletoEmail.ListadeBoletos.Clear; (*Adiciona o título exclusivo na Lista de Boletos auxiliar*) ACBrBoletoEmail.ListadeBoletos.Add(ACBrBoletoLote.ListadeBoletos.Objects[i]); (*Enviar o e-mail através do componente auxiliar que contém o boleto exclusivo de determinado cliente*) ACBrBoletoEmail.EnviarEmail('smtp.aaa.com.br', '587', '[email protected]', 'SuaSenha', '[email protected]', ACBrBoletoLote.ListadeBoletos.Objects[i].Sacado.Email,//EMail do Cliente 'Boleto de Cobrança', vMsg,//StringList False, True, nil, nil, False, False, 'Leonardo', True); end; //for

Bom Dia Tenho roteiro para implantação do SNGPC para Delphi 7 ou Superior Se alguem tiver interesse, solicite informaçoes pelo email [email protected] Abraços a todos