Seguinte vei,
Pra voce autenticar voce vai ter que pegar com o administrador da rede aí, o
login e a senha de autentiação do servidor SMTP. A autenticação quem faz é o
servidor. Se a mensagem não for autenticada, ela corre o risco de cair na caixa
de correio dos clientes como SPAM.
de posse destes dados, voce ajusta no componente SMTP:
SMTP.Port := <numero da porta>;
SMTP.AuthenticationType := atLogin;
SMTP.Username := <Usuario de acesso ao servidor de SMTP definido pelo
adminstrador>;
SMTP.Password := <Idem pro caso acima, porém senha>;
SMTP.Authenticate;
Veja um exemplo que uso abaixo:
function SendSMTPMail(pName, pFrom, pNameTo, pTo, pCC, pCCo, pAssunto, pTexto:
pChar; aFiles: Array Of PChar): boolean;
var
sMessage: TStrings;
MsgSend : TIdMessage;
SMTP : TIdSMTP;
begin
Result := False;
sMessage := TStringList.Create;
MsgSend := TIdMessage.Create(nil);
sMessage.Add(pTexto);
SMTP := TIdSMTP.Create(nil);
SMTP.Host := MailParams.ServidorSMTP;
SMTP.Port := 25;
SMTP.AuthenticationType := atNone;
SMTP.Connect;
MsgSend.ClearHeader;
MsgSend.ClearBody;
MsgSend.Recipients.Clear;
try
if (SMTP.AuthSchemesSupported.IndexOf('LOGIN') > -1) and
(MailParams.Autenticacao = 1) then
begin
SMTP.AuthenticationType := atLogin;
SMTP.Username := MailParams.Usuario;
SMTP.Password := MailParams.Senha;
SMTP.Authenticate;
end;
//
with MsgSend do
begin
Body.Assign(sMessage); // Corpo
da mensagem
TIdAttachment.Create(MessageParts, TFileName(aFiles[0])); // Anexo
From.Name := pName; // Nome
do Remetente
From.Address := pFrom; //
e-mail do remetente
Recipients.EmailAddresses := '"' + pNameTo + '" <' + pTo + '>';
Subject := pAssunto; //
Subject
Priority := TIdMessagePriority(mpHighest); //
Prioridade da mensagem
end;
SMTP.Send(MsgSend);
Result := True;
except
MessageDlg('Erro ao Enviar planilha de Orçamento para o fornecedor' + #$0a
+ #$0d + exception(exceptobject).message, mtError, [mbOk], 0);
end;
SMTP.Disconnect;
FreeAndNil(sMessage);
FreeAndNil(MsgSend);
//
end;
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
----- Original Message -----
From: Marcio Luis
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, September 24, 2009 2:45 PM
Subject: [delphi-br] socorro INDY10 autenticacao
Socorro pessoal !! Indy10 e Delphi7.
alguem ja passou por uma situacao dessa ;
estou utilizando o Indy10 para enviar email para nossos cliente .
na fase de teste estava usando meu email , como teste , funciona 100%
entao criei o email oficial para a situacao .
e o Indy nao autentica de jeito nenhum ,
tentei com outros emais, (com o mesmo dominio) e nao tem jeito ,
so o meu funciona.
parece que o Indy10 tem algum problema .
algume ja passou por algo parecido???
att. Marcio.
[As partes desta mensagem que não continham texto foram removidas]
