Boa tarde @Mauricio Elias,
Verifique no programa exemplo do ACBrBoleto (http://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrBoleto/)
na aba email, no botão "Enviar Email"
procedure TfrmDemoBoleto.btnEnviarEmailClick(Sender: TObject);
var
SL: TStringList;
//i: Integer;
begin
AplicarConfiguracoesComponenteEmail;
SL := TStringList.Create;
try
SL.Add('Olá,');
SL.Add('Atenção, Boleto está em Anexo');
FACBrBoleto.EnviarEmail(edtEmail.Text ,'Teste de Envio de Email', SL, True);
//Método para envio e-mail de forma individual para cada título
{for i := 0 to FACBrBoleto.ListadeBoletos.Count -1 do
begin
if (FACBrBoleto.ListadeBoletos[i].Sacado.Email <> '') then
FACBrBoleto.ListadeBoletos[i].EnviarEmail(FACBrBoleto.ListadeBoletos[i].Sacado.Email ,'Teste de Envio de Email', SL, True);
end;}
finally
SL.Free;
end;
end;
mostra como enviar o email direto pelo boleto.
Também se quiser anexar mais arquivos o FACBrBoleto.MAIL.AddAttachment() vai funcionar normalmente. Somente fique atento se for fazer o envio de múltiplos emails para controlar corretamente os anexos.