535.5.7.3 Authentication unsuccessful
19/03/2003
0
Olá, amigos, estou utilizando o Delphi 6 para desenvolver um sistema que envie um pedido de compra via email. O problema é que este email é daquele sistema Cobox que o Estaminas utiliza. Eu criei o aplicativo utilizando o IdSMTP, mas dá um pau na hora de autenticar com a mensagem : [i:124c404018]535.5.7.3 Authentication unsuccessful[/i:124c404018]. Eu coloquei a senha, o usuário, o host, mas tenho dúvidas se tenho que estar conectado na Internet com a conta do Cobox, ou se posso utilizar outra conta, ou se o problema é outro...
Vejam o código
// Conecta ao servidor.
idSMTP1.Host := tbempresa.FieldByName(´host´).asstring;
idSMTP1.Port := 25;
idSMTP1.UserID := tbempresa.FieldByName(´user´).asstring;
idSMTP1.Password := tbempresa.FieldByName(´password´).asstring;
// Dados do remetente.
idMESSAGE1.From.Address := tbempresa.FieldByName(´email´).asstring;
idMESSAGE1.From.text := tbempresa.FieldByName(´email´).asstring;
idMESSAGE1.From.Name := tbempresa.FieldByName(´empresa´).asstring;
idMESSAGE1.Subject := ´Pedido ´+DbLookupComboBox1.text; // Assunto
Nemail:=tbrepresentadas.FieldByName(´email´).asstring;
IdMessage1.Recipients.EMailAddresses := Nemail;
progressbar1.StepIt;
FileName := ´para envio\´+DbLookupComboBox1.text+´.qrp´;
TIdAttachment.Create(IdMessage1.MessageParts,Filename); // Arquivos anexos
idMESSAGE1.Body.Assign(Memo1.Lines);
IdSMTP1.Connect;
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Authenticate;
idSMTP1.Send(idMESSAGE1); // Envia o email
progressbar1.StepIt;
IdSMTP1.Disconnect;
Can YOU help me??? :cry:
Vejam o código
// Conecta ao servidor.
idSMTP1.Host := tbempresa.FieldByName(´host´).asstring;
idSMTP1.Port := 25;
idSMTP1.UserID := tbempresa.FieldByName(´user´).asstring;
idSMTP1.Password := tbempresa.FieldByName(´password´).asstring;
// Dados do remetente.
idMESSAGE1.From.Address := tbempresa.FieldByName(´email´).asstring;
idMESSAGE1.From.text := tbempresa.FieldByName(´email´).asstring;
idMESSAGE1.From.Name := tbempresa.FieldByName(´empresa´).asstring;
idMESSAGE1.Subject := ´Pedido ´+DbLookupComboBox1.text; // Assunto
Nemail:=tbrepresentadas.FieldByName(´email´).asstring;
IdMessage1.Recipients.EMailAddresses := Nemail;
progressbar1.StepIt;
FileName := ´para envio\´+DbLookupComboBox1.text+´.qrp´;
TIdAttachment.Create(IdMessage1.MessageParts,Filename); // Arquivos anexos
idMESSAGE1.Body.Assign(Memo1.Lines);
IdSMTP1.Connect;
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Authenticate;
idSMTP1.Send(idMESSAGE1); // Envia o email
progressbar1.StepIt;
IdSMTP1.Disconnect;
Can YOU help me??? :cry:
Mvsouza
Curtir tópico
+ 0
Responder
Posts
19/03/2003
Dor_poa
Cara.. è o seguinte.. Eu tive o mesmo problema... não sei porque. Mas só consegue mandar o email se o SMTP e o POP3 forem da atual conexão.....
Ex.: Esta conectado com o terra e quer mandar um email utilizando o email do IG.. NAO VAI CONSEGUIR
Ex.: Esta conectado com o terra e quer mandar um email utilizando o email do IG.. NAO VAI CONSEGUIR
Responder
19/03/2003
Mvsouza
Oi, amigo, eu liguei pro suporte do Estaminas e me disseram que a conexão não importa (e não importa mesmo). O erro que eu tava cometendo é que eu estava colocando o host completo (smtp.uaivip.com.br) e não estava colocando o email completo como nome do userid (eu tava colocando mvsouza. Eu devia colocar mvsouza@uaivip.com.br).
Funcionou!!!
Obrigado pela rápida resposta.
Funcionou!!!
Obrigado pela rápida resposta.
Responder
Clique aqui para fazer login e interagir na Comunidade :)