Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Авторизация TNMSMTP [D6, Win2k, WinXP]

Pete © (2005-10-04 14:31:00)
Добрый день...
есть готовый моудль по отправке почты....
работает отлично, но есть маленькая загвоздка,
при отправке через свой SMTP нужна авторизация не только
по юзеру, но и по паролю...
т.е. в UserID:=mail@mail.ru
необходим пароль, как мне его задать???
может есть в SMTP подобие авторизации, как на фтп одной
строкой...

denissoft (2005-10-31 22:54:00) [1]

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

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

Pete (2005-10-05 13:36:00) [2]
сенкс, попробую....

none (2005-10-04 17:39:00) [3]
Работает на 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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »