Авторизация TNMSMTP

← →
Pete (2005-10-04 14:31) [0]

Добрый день...
есть готовый моудль по отправке почты....
работает отлично, но есть маленькая загвоздка,
при отправке через свой SMTP нужна авторизация не только
по юзеру, но и по паролю...
т.е. в UserID:=mail@mail.ru
необходим пароль, как мне его задать???
может есть в SMTP подобие авторизации, как на фтп одной
строкой...

← →
none (2005-10-04 17:39) [1]

Работает на Delphi6 + Indy8

SmtpServerName:="smtp.mail.ru";
SmtpServerPort:=2525; {у маил.ру порт 2525, а не 25}
SmtpServerUser:="UserLogin";
SmtpServerPassword:="password";
UserEmail:="UserLogin@mail.ru";

IdMessage:=TIdMessage.create(nil);
IdSmtp:=TIdSMTP.create(nil);

{}
with IdMessage do
begin
body.text:="Text...";
From.Text := UserEmail;
Recipients.EMailAddresses := "Adres_komu_posilaes@mail.ru";
Subject :="Zagolovok";
Priority := TIdMessagePriority(3);
CCList.EMailAddresses := "";
BccList.EMailAddresses := "";

IdSMTP.AuthenticationType := atLogin; {Dlya Avtorizazii}

IdSMTP.UserID :=SmtpServerUser;
IdSMTP.Password :=SmtpServerPassword;
IdSMTP.Host := SmtpServerName;
IdSMTP.Port := SmtpServerPort;

try IdSMTP.Connect;
IdSMTP.Send(IdMessage);
IdSMTP.Disconnect; except writeln("Error"); end;

end;

← →
Pete (2005-10-05 13:36) [2]

сенкс, попробую....

> {у маил.ру порт 2525, а не 25}

Странно я к чему подключаюсь??? Там оба порта

Авторизация TNMSMTP Найти похожие ветки