| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отправка почты. Через NMSMTP. [D5, XP]
Новочеркасский Волк © (2006-02-23 09:54:00)Здравствуйте. Я пытаюсь отправить почту через (Delphi 5) компонет NMSMTP. Пробовал так:
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := 'www.mail.ru';
NMSMTP1.Connect;
with NMSMTP1.PostMessage do
begin
FromAddress := 'bilbo@baggins.com';
ToAddress.Add('gandolf@baggins.corn') ;
Subject := 'Test';
Body.Add('This is a test');
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
end;
Но он выдаёт ошибку Connection Failed. Просто заполнил все поля. На кнопке было только сконектиться и отправить. Таже самая ошибка. Почему так??? Подкиньте пожалуйсто рабочий код через который вы отправляете почту. Или покажите где ошибка.
--------------------------
Заранее всем спасибо!!!
Новочеркасский Волк (2006-02-24 16:46:00) [21]Всмысле прямой? Обычный карточный, модемный DialUp. И что такое файервол???
umbra (2006-02-24 09:58:00) [22]а у вас прямой доступ в интренет? нет ли файервола?
Новочеркасский Волк (2006-02-24 09:31:00) [23]Ладно мне пофигу на Inbox и на Mail.ru ине просто надо, чтоб у меня или у того человека который будит пользовать мою прогу. По нажатию Buttion1 отправлялось письмо на майл вписанным из Edit1. И всё!!!
------------------------------------------------------------------
http://rost-on-don.net.ru/forumdisplay.php?f=28
palva (2006-02-23 16:06:00) [24]> Попробуйте пожалуйсто этот код у себя получиться ли у вас???
Не могу, у меня Delphi 7. Кроме того у меня нет регистрации на inbox, я даже не могу зайти в хелп по подключению к inbox.
Новочеркасский Волк (2006-02-23 15:18:00) [25]Ну сделал я код таким:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
NMSMTP1.Host := 'smtp.inbox.ru';
NMSMTP1.Connect;
with NMSMTP1.PostMessage do
begin
FromAddress := 'suport_service@inbox.ru';
ToAddress.Add('odinokiy_volk@inbox.ru') ;
Subject:='Test';
Body.Add('This is a test');
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
end;
Порт сделал 25. И таже ошибка. Попробуйте пожалуйсто этот код у себя получиться ли у вас???
palva (2006-02-23 10:20:00) [26]> NMSMTP1.Host := 'www.mail.ru';
NMSMTP1.Host := 'smtp.mail.ru';
http://www.mail.ru/pages/help/79.html
umbra (2006-02-23 10:00:00) [27]а на mail.ru есть smtp-сервер, который работает на порте 25? сам код правильный, а сообщение об ошибке говорит, что к серверу невозможно законнектиться.
| |
Страницы: 