Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.05;
Скачать: 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 вся ветка

Текущий архив: 2006.02.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
2-1137477099
pathfinder
2006-01-17 08:51
2006.02.05
Подскажите пожалуйста в чем отличие следующих кодов?


2-1137858839
Змей
2006-01-21 18:53
2006.02.05
Пустой edit.text


15-1137490813
zorik
2006-01-17 12:40
2006.02.05
Как запустить dos програму в ХР sp2?


1-1136582035
Dunpeal
2006-01-07 00:13
2006.02.05
Картинки в RxRichEdit (не добавление)


6-1125862612
bogdan
2005-09-04 23:36
2006.02.05
Как установить сеть через телефонную линию