Скачать: CL | DM;

Авторизация 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]

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

---

← →
denissoft ©   (2005-10-31 22:54) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c