Randomname
Ученик
- Регистрация
- 17 Июн 2011
- Сообщения
- 3
- Реакции
- 0
- Баллы
- 0
Отправка письма на mail.ru через Delphi 7
Не хрена не получается отправить письмо!!! :tehnari_ru_281:
Сначала ввёл порт "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.
Не хрена не получается отправить письмо!!! :tehnari_ru_281:
Сначала ввёл порт "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.
