PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

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?


Serrosilva

Serrosilva

Responder

Posts

14/01/2009

Serrosilva

A aí pessoal??? Ninguem sabe como resolver esse problema?
Agradeço antecipadamente o interesse de todos!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar