Cte Erro No Envio De Email

[MarceloPeron]

boa tarde, estou com problemas para envio de e-mail pelo componente, aparece a seguinte mensagem: SMTP ERRO: Login:???-Other Undefined Status

 

Estou passando os parâmetros conforme abaixo:

 

 

CTe.Conhecimentos.Items[0].EnviarEmail('200.143.16.170 ',
'465',
'[email protected] ',
'********',
'[email protected] ',
'[email protected]',//DmCte.LkCtrcEMAIL.AsString,
'DACTE - CTe Nr. :' + DmCte.LkCtrcDOCCTE.AsString ,
var_Mensagem,
False,
False,
Nil,
Nil,
True );

 

Achei alguns tópicos aqui no forum, mas em nenhum deles consegui achar a solução do meu problema, alguém tem alguma dica?

Editado 26 Maio, 2014 por MarceloPeron

[MarceloPeron]

 desculpe pessoal, mas foi erro meu, as configurações do servidor de email estavam erradas,  o código abaixo funcionou:

 

 

 

// -- ENVIANDO E-MAIL ...
If DmCte.qFilialENVIA_EMAIL_CTE.AsString = 'S' Then Begin
  If (((DmCte.LkCtrcFRETE_FLEXIVEL_SN.AsString = 'S') And  
       (DmCte.LkCtrcNAO_ENV_EMAIL_CTE_FRETE_FLEX.AsString = 'N')) Or
       (DmCte.LkCtrcFRETE_FLEXIVEL_SN.AsString = 'N')) Then Begin
    If DmCte.LkCtrcEMAIL.AsString <> '' Then Begin
      DmCte.AtivaQueryqEmail(DmCte.LkCtrcCGC_CONSIG.AsString, DmCte.LkCtrcDIVISAO_CONSIG.AsString);
      var_Mensagem := TStringList.Create;
      var_Mensagem.Add('Cópia de CTe - favor não responder');
      Cte.Conhecimentos.Items[0].EnviarEmail(DmCte.qFilialHOST_EMAIL.AsString,
                                                                       DmCte.qFilialPORTA_EMAIL.AsString,
                                                                       DmCte.qFilialUSERNAME_EMAIL.AsString,
                                                                       DmCte.qFilialPASSWORD_EMAIL.AsString,
                                                                       Dmcte.qFilialUSERNAME_EMAIL.AsString,
                                                                       '[email protected]', // fixo só para teste
                                                                       'DACTE - CTe Nr. ' + IntToStr(var_NumDoc),
                                                                       var_Mensagem,
                                                                       True,
                                                                       True,
                                                                       Nil,
                                                                       Nil,
                                                                       False);
      var_Mensagem.Free;
    End;
  End;
End;

 

-- ** --

 

Quanto as configurações do e-mail, usei o Gmail para testes da seguinte forma:

 

smtp.gmail.com

porta: 465