Creio que faltou a indicar o AuthenticationType.
Eu usu como no exemplo abaixo:
if FieldByName('ServAutentica').AsString = '1' then
Smtp.AuthenticationType := atLogin
else
Smtp.AuthenticationType := atNone;
Espero que ajude em algo.
Boa sorte,
Jefferson
----- Original Message -----
From: Wilton Campos
To: delphi-br
Sent: Wednesday, January 16, 2008 9:10 AM
Subject: [delphi-br] Ajuda com IdSMTP
Pessoal,
to usando o IdSMTP para enviar e-mails para fornecedores, porem to com
um problema meio estranho aki, eh o seguinte uso um bloco try except,
tipo assim:
try
IdSMTP1.Connect; //Estabelece a conexão
IdSMTP1.Authenticate; //Faz a autenticação
IdSMTP1.Send(IdMessage1); //Envia a mensagem
lblInfo_Mensagem.Caption := '';
Application.MessageBox('A cotação foi enviada com sucesso para o
fornecedor!', 'Confirmação', MB_OK + MB_ICONINFORMATION);
except
on E: Exception do
begin
Mensagem_Erro := 'Ocorreu o seguinte erro durante a operação:
' + #13 + E.Message + #13 +
'Verifique se todos os dados foram
preenchidos corretamente.';
Application.MessageBox(Pchar(Mensagem_Erro), 'Aviso', MB_OK +
MB_ICONWARNING);
end;
end;
ele ta dando erro na linha IdSMTP1.Send(IdMessage1); //Envia a mensagem
so q ele ta mandando o e-mail corretamente, porem ta dando a mensagem
de erro e na mensagem de erro nao tem nada, da a mensagem sem texto,
sem erro, muito estranho se alguem puder me ajudar,
flw
[As partes desta mensagem que não continham texto foram removidas]
