Fórum Indy 10 com Exchange (Não autentica) #367667
12/01/2009
0
Pessoal... to com um problema e gostaria de saber se alguem pode me ajudar...
É o seguinte:
Estou fazendo um programa que envia emails mas não consigo me autenticar no Exchange... uso o seguinte codigo abaixo...
procedure TForm1.Button1Click(Sender: TObject);
begin
mlog.Clear;
Application.ProcessMessages;
try
with IdMensagem do
begin
Clear;
From.Text := ´meunome@meuemail.com.br´;
Subject := lbsubject.Text;
Recipients.EMailAddresses := lbpara.Text;
Body.Text := Memo1.Text;
end;
SMTP.AuthType := atSASL; // atSASL; //AuthType := atSASL;
UserPassProvider.Username := lbuser.Text;
UserPassProvider.Password := lbpass.Text;
SMTP.Username := lbuser.Text;
SMTP.Password := lbpass.Text;
SMTP.Host := ´mail.meuservidor.com.br´;
SMTP.Connect;
mlog.Lines.Add(´SMTP: ´+smtp.LastCmdResult.Text.Text);
mlog.Lines.Add(´Segurança: ´+ IntToStr(SASLExternal.SecurityLevel));
try
if SMTP.Connected then
begin
SMTP.Send(IdMensagem);
end;
except on E: Exception do mlog.Lines.Add(´ERRO:´ + E. Message);
end;
finally
mlog.Lines.Add( smtp.LastCmdResult.Text.Text);
SMTP.Disconnect;
end;
end;
----------------------------
O retorno que dá é o seguinte:
SMTP: Connected.
SIZE
PIPELINING
DSN
ENHANCEDSTATUSCODES
STARTTLS
X-ANONYMOUSTLS
AUTH NTLM
X-EXPS GSSAPI NTLM
8BITMIME
BINARYMIME
CHUNKING
XEXCH50
XRDST
Segurança: 0
SMTP: Disconnected.
[b:60adc8791d]ERRO:Connection Closed Gracefully.
Client was not authenticated
[/b:60adc8791d]
--- [b:60adc8791d]Não autentica de jeito nenhum[/b:60adc8791d]... ja estou usando o mecanismo login do Indy SASL mas não consigo autenticar... alguem pode me ajudar?
É o seguinte:
Estou fazendo um programa que envia emails mas não consigo me autenticar no Exchange... uso o seguinte codigo abaixo...
procedure TForm1.Button1Click(Sender: TObject);
begin
mlog.Clear;
Application.ProcessMessages;
try
with IdMensagem do
begin
Clear;
From.Text := ´meunome@meuemail.com.br´;
Subject := lbsubject.Text;
Recipients.EMailAddresses := lbpara.Text;
Body.Text := Memo1.Text;
end;
SMTP.AuthType := atSASL; // atSASL; //AuthType := atSASL;
UserPassProvider.Username := lbuser.Text;
UserPassProvider.Password := lbpass.Text;
SMTP.Username := lbuser.Text;
SMTP.Password := lbpass.Text;
SMTP.Host := ´mail.meuservidor.com.br´;
SMTP.Connect;
mlog.Lines.Add(´SMTP: ´+smtp.LastCmdResult.Text.Text);
mlog.Lines.Add(´Segurança: ´+ IntToStr(SASLExternal.SecurityLevel));
try
if SMTP.Connected then
begin
SMTP.Send(IdMensagem);
end;
except on E: Exception do mlog.Lines.Add(´ERRO:´ + E. Message);
end;
finally
mlog.Lines.Add( smtp.LastCmdResult.Text.Text);
SMTP.Disconnect;
end;
end;
----------------------------
O retorno que dá é o seguinte:
SMTP: Connected.
SIZE
PIPELINING
DSN
ENHANCEDSTATUSCODES
STARTTLS
X-ANONYMOUSTLS
AUTH NTLM
X-EXPS GSSAPI NTLM
8BITMIME
BINARYMIME
CHUNKING
XEXCH50
XRDST
Segurança: 0
SMTP: Disconnected.
[b:60adc8791d]ERRO:Connection Closed Gracefully.
Client was not authenticated
[/b:60adc8791d]
--- [b:60adc8791d]Não autentica de jeito nenhum[/b:60adc8791d]... ja estou usando o mecanismo login do Indy SASL mas não consigo autenticar... alguem pode me ajudar?
Serrosilva
Curtir tópico
+ 0
Responder
Posts
14/01/2009
Serrosilva
A aí pessoal??? Ninguem sabe como resolver esse problema?
Agradeço antecipadamente o interesse de todos!
Agradeço antecipadamente o interesse de todos!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)