![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
||||
|
||||
|
Народ, кто нить подскажет? Сделал вроде все как указано в данном мануале: http://svdpro.info/page.php?id=32
Но у меня выскакивает такая ошибка: Цитата:
перевод ошибки мне вполне понятен. Но я не понимаю смысл.. ))) То есть вроде все поля я заполнил и вроде правильно. В общем кто нить ткните носом в ошибку! Пожалуйста ![]() |
|
#2
|
||||
|
||||
|
Код:
begin
SMTP.Host := 'smtp.mail.ru'; // испытанно на: yandex'e, mail'e
SMTP.Port:=25;
SMTP.Username:='________'; // логин
SMTP.Password:='____'; // пароль
SMTP.AuthenticationType:=atLogin;
with IdMessage do
begin
Body.Assign(Memo1.Lines); // Текст из Memo
From.Text := '_______'; // от кого
Recipients.EMailAddresses := '_____'; //кому
Subject := '';
end;
SMTP.Connect;
try
showmessage('подключение произведено успешно');
SMTP.Send(IdMessage);
finally
SMTP.Disconnect;
end;
end; |
|
#3
|
||||
|
||||
|
Затем тупо перекатал с вышеуказаной странички:
Код:
IdSMTP1.Connect(10000);
Msg.Subject:='тема сообщения';
Msg.Recipients.EMailAddresses:='XXX';
Msg.From.Address:='XXX';
Msg.Body.Text:='текст сообщения';
Msg.Date:=StrToDate('01.12.2004');
Msg.From.Address:='XXX';
Msg.From.Name:='XXX';
If IdSMTP1.Connected = true then IdSMTP1.Send(Msg);
IdSMTP1.Disconnect;
end;Спасибо за отзыв, сейчас попробую сделать как Вы. B действительно все получилось! Спасибо ещё раз за помощь! =) Последний раз редактировалось XIO, 09.01.2008 в 06:47. |