Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

Отправка сообщений на почтовый сервер   Найти похожие ветки 

 
=Teddy=   (2007-02-01 15:09) [0]

Не подскажите, как отправить сообщение на почтовый сервер типа mail.ru и т.д.


 
Сергей М. ©   (2007-02-01 15:10) [1]

с помощью протокола smtp


 
=Teddy=   (2007-02-01 15:23) [2]

Я это понимаю,мне хочется сделать с помощью INDY,а вот как надо я не знаю!


 
Neket   (2007-02-01 15:32) [3]


var
Msg: TIdMessage;
....................
form1.IdMessage1.Subject:="";                      //Тема сообщения
form1.IdMessage1.Recipients.EMailAddresses:=mas[u];// Массив адресов для рассылки
Form1.IdMessage1.From.Address:="";// адрес отправителя
form1.IdMessage1.Body.Text:=text;              //Текст сообщения
form1.IdMessage1.Date:=StrToDate("01.12.2004");          //Дата отправки
form1.IdSMTP1.Port:=25;
form1.IdSMTP1.Host := "";// Здесь адрес почтового сервера
form1.IdSMTP1.AuthenticationType:=atLogin;
form1.IdSMTP1.Username:="";// то чо идет перед @mail.ru
form1.IdSMTP1.Password:="";// Здесь пароль на ящик с которого ты типа будеш отправлять
form1.IdSMTP1.Connect(1000);
if form1.IdSMTP1.Connected=True then
form1.IdSMTP1.Send(form1.IdMessage1)
else showmessage("HerVam");
form1.IdSMTP1.Disconnect;


Помоему как-то так......


 
Neket   (2007-02-01 15:35) [4]

А вообще читай здесь
http://www.delphimaster.ru/articles/smtp/index.html


 
Сергей М. ©   (2007-02-01 16:11) [5]


> =Teddy=   (01.02.07 15:23) [2]


> Я это понимаю,мне хочется сделать с помощью INDY


И мы тут все как один, судя по твоему вопросу, разумеется прямо-таки с разбегу понимаем, что ты то самое "это" хочешь сделать "с помощью INDY"

Не пора ли репу свою почесать насчет постановки вопроса, а ?



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

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

Наверх




Память: 0.47 MB
Время: 0.035 c
1-1166759833
firebird
2006-12-22 06:57
2007.02.18
Delphi не запускается?


15-1169595782
SkySpeed
2007-01-24 02:43
2007.02.18
Хочу в качестве проводника сделать Total Commander


15-1169657987
Rouse_
2007-01-24 19:59
2007.02.18
Мини ММП в пятницу


15-1169800996
alexsis
2007-01-26 11:43
2007.02.18
Система интерактивного голосования Verdict


9-1144169967
Pa5ha
2006-04-04 20:59
2007.02.18
Эффекты на OpenGL