VPF::проблема с отправкой письма TidSMTP

Stakanych

Дата 30.1.2006, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 30.1.2006

Репутация: нет
Всего: нет

Простейший код отправки простейшего письма. Подскажите, пожалуйста, почему при попытке соединения с сервером (мэйлрушным) выдается ошибка "Connection Gracefully Closed". После просмотра похожих тем на форуме вставил в код соединение с поп3 сервером, с ним соединение проходит. Смтп - нет.

Код


procedure TForm2.Button1Click(Sender: TObject);
begin
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Port:=25;
idSMTP1.Password:='1111';
idSMTP1.Username:='olga_*****';
Form1.idPOP31.Username:=Form1.Edit1.Text; //îïðåäåëÿåì èìÿ ïëîüçîâàòåëÿ
Form1.idPOP31.Password:=Form1.Edit2.Text; //îïðåäåëÿåì ïàðîëü
Form1.idPOP31.Host:=Form1.Edit3.Text;//àäðåñ ê ñåðâåðó
Form1.idPOP31.Connect();
Form1.idPOP31.CheckMessages;

idSMTP1.Connect();

idMessage1.From.Text:='[email protected]';
idMessage1.Recipients.EMailAddresses:=Edit1.Text;
idMessage1.Subject:=Edit2.Text;
idMessage1.Body.Text:=Memo1.Text;

try
idSMTP1.Send(idMessage1);
except
ShowMessage('Îøèáêà, ïèñüìî íå îòïðàâëåíî');
end;
idSMTP1.Disconnect;
Form1.idPOP31.Disconnect;

end;

Stakanych

Дата 30.1.2006, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 30.1.2006

Репутация: нет
Всего: нет

люди, горю просто! подскажите плз в чем может быть проблема

Snowy

Дата 30.1.2006, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Код рабочий. Проблема в mail.ru
Там очень строгие правила с отправкой.

Girder

Дата 2.2.2006, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 4
Всего: 155

http://forum.vingrad.ru/index.php?showtopi...23&view=all

--------------------

Как слышим, так и пишим.
Истина где-то там...

CaNIBaLchik

Дата 9.2.2006, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 8.2.2006
Где: Томск

Репутация: нет
Всего: нет

проверяй на аунтификацию перед отправкой

nekras

Дата 9.2.2006, 18:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 9.2.2006

Репутация: нет
Всего: нет

У меня такая же беда, выдает ошибку "Socket Error # 10060 Connection timed out"

Код


...
idSMTP1.Host:='smtp.rambler.ru';    
idSMTP1.Port:=25;    
idSMTP1.Username:='_mik_';    
idSMTP1.Password:='*********';    
idSMTP1.Connect();    
...

не может быть на Рамблёре ограничений?
не в Username ли дело?
может ИСЧО какая корявка?
Подскажите, век помнить буду smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »