Отправка письма на mail.ru через Delphi 7

Randomname · 29.06.2011, 21:58

Не хрена не получается отправить письмо!!!

Сначала ввёл порт "25", пишет - "Socket Error #10060 Connection timed out". Поставил "2525" - подключение произведено успешно, но теперь новое говно случилось, стало писать - "Syntactically invalid EHLO argument(s). Значит дело в неправильно указанных портах и хостах? Вот моя программа:

procedure TForm1.Button1Click(Sender: TObject);
begin
idsmtp1.Host:='smtp.mail.ru';
idsmtp1.Port:=2525;
idsmtp1.Username:='petr-off_87';
idsmtp1.Password:='f********';
idsmtp1.AuthenticationType:=atLogin;
with IdMessage1 do
begin
Body.Assign(Memo1.Lines);
From.Text:= 'От рабочего компьютера';
Recipients.EMailAddresses:='petr-off_87@mail.ru';
Subject:='Проверка';
end;
idsmtp1.Connect;
try
showmessage('подключение произведено успешно');
idsmtp1.Send(Idmessage1);
finally
idsmtp1.Disconnect;
end;
end;
end.

AlexZir · 01.07.2011, 08:29

настройки брандмауэра позволяют вам программно работать с этим портом?

Alive_UA · 11.07.2011, 23:34

Telnet-ом письма отправляются?

29.06.2011, 21:58	#1 (permalink)
Randomname Новичок Регистрация: 17.06.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Отправка письма на mail.ru через Delphi 7 Не хрена не получается отправить письмо!!! Сначала ввёл порт "25", пишет - "Socket Error #10060 Connection timed out". Поставил "2525" - подключение произведено успешно, но теперь новое говно случилось, стало писать - "Syntactically invalid EHLO argument(s). Значит дело в неправильно указанных портах и хостах? Вот моя программа: procedure TForm1.Button1Click(Sender: TObject); begin idsmtp1.Host:='smtp.mail.ru'; idsmtp1.Port:=2525; idsmtp1.Username:='petr-off_87'; idsmtp1.Password:='f********'; idsmtp1.AuthenticationType:=atLogin; with IdMessage1 do begin Body.Assign(Memo1.Lines); From.Text:= 'От рабочего компьютера'; Recipients.EMailAddresses:='petr-off_87@mail.ru'; Subject:='Проверка'; end; idsmtp1.Connect; try showmessage('подключение произведено успешно'); idsmtp1.Send(Idmessage1); finally idsmtp1.Disconnect; end; end; end.

01.07.2011, 08:29	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	настройки брандмауэра позволяют вам программно работать с этим портом? __________________ Убить всех человеков!

29.06.2011, 21:58
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Эти топики созданы ранее, по этому в них может быть решение вашего вопроса Не работает включение ссылки из письма Отправка через интернет больших файлов Exchange 2007 письма размер Отправка ММС с компьютера.

11.07.2011, 23:34	#3 (permalink)
Alive_UA Member Регистрация: 01.06.2008 Сообщений: 305 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 886	Telnet-ом письма отправляются?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070