Enviar boleto com cópia

[nildglan]

Pessoal para enviar o boleto por email eu coloco o meu e-mail de boa e envia, agora para enviar com cópia como é Tstring não passa porque o email é string como faço essa conversão dentro desse procedimento do boleto?

[Rodrigo Cardilo]

Boa tarde,

Seria isso?

CC := TStringList.Create;
CC.add('[email protected]');

[nildglan]

Cardilo mais como eu ir colocar dessa forma no procedimento do envia boleto do acbr?

[Rodrigo Cardilo]

Exemplo completo:

 

procedure EnviarEmail(Para: string);
var
  Assunto: string;
  CC, Memo: Tstrings;
begin
  CC := TStringList.Create;
  Memo := TStringList.Create;
  Memo.Text := 'Texto da Mensagem'; // Corpo do Email
  Assunto := 'Envio de Boleto'; // assunto do email
  CC.Add('[email protected]'); // com copia 1
  CC.Add('[email protected]'); // com copia 2

  ACBrBoleto1.EnviarEmail(Para, Assunto, Memo
    , True //Enviar PDF junto
    , CC // Lista com emails que serão enviado cópias - TStrings
    , nil); // Lista de anexos - TStrings

  CC.Free;
  Memo.Free;
end;

Estude mais o código que fica mais fácil.