Erro ao enviar emailde testes

[reij]

Gente ta dando erro de index out of bounds nessa rotina

var
 mensagem   : Tstrings;
 Assunto,Endereco : string;
begin
  inherited;
  try
     ACBrCTe1.Conhecimentos.Clear;
  //   ACBrCTe1.Conhecimentos.LoadFromFile('C:\AdminDfe\Xml\teste.xml');
  Assunto:= 'enviando Email teste';
     Mensagem:=TstringList.Create;
       endereco:= dbedit28.text;
          mensagem.Add('Cte Emitida');
          Assunto := 'Email Teste';
  ACBrMail1.Host := DbEdit15.Text;
    ACBrMail1.Port := DbEdit27.Text;
    ACBrMail1.Username := dbedit28.Text;
    ACBrMail1.Password := dm.EmpresaSENHA_EMAIL_EMIT.AsString;
    ACBrMail1.From := dbedit28.Text;
    ACBrMail1.SetSSL   := true;//cbEmailSSL.Checked;
    ACBrMail1.ReadingConfirmation := False;
    ACBrMail1.UseThread   := False;
   ACBrCTe1.Conhecimentos.Items[0].EnviarEmail(endereco
                                             , Assunto
                                             , mensagem
                                             , False //Enviar PDF junto
                                             , nil //Lista com emails que serão enviado cópias - TStrings
                                             , nil // Lista de anexos - TStrings
                                              );
   mensagem.Free;
     showmessage('Email enviado com sucesso');
  except
  on e: exception do
  begin
    showmessage('Erro ao enviar e-mail, verifique endereço ou configurações'+#13+ e.Message);
  end;

  end;

end;

 

alguém teria alguma ideia do que pode estar errado

 

Desde ja grato pela ajuda

[Italo Giurizzato Junior]

Bom dia,

Como você quer enviar o email contendo o XML do CT-e, se você esta fazendo isso:

ACBrCTe1.Conhecimentos.Clear;
  //   ACBrCTe1.Conhecimentos.LoadFromFile('C:\AdminDfe\Xml\teste.xml');

Você limpa o componente e depois não o carrega.