Fórum 535.5.7.3 Authentication unsuccessful #147374
19/03/2003
0
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
+ 0Posts
19/03/2003
Dor_poa
Ex.: Esta conectado com o terra e quer mandar um email utilizando o email do IG.. NAO VAI CONSEGUIR
Gostei + 0
19/03/2003
Mvsouza
Funcionou!!!
Obrigado pela rápida resposta.
Gostei + 0
19/03/2003
Dor_poa
Desculpe por não poder ajudar...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)