E-mail и делфи. Выскакивает ошибка.

[spamer]

По нажатию кнопки просто хочу отправить сообщение на свой мейл. Поискал по форуму, что да как.......написал вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  mes: TIdMessage;
begin
  mes:=TIdMessage.Create(Form1);
  IdSMTP1.Host:='smtp.mail.ru';
  IdSMTP1.Port:=25;
  IdSMTP1.AuthenticationType:=atLogin;
  IdSMTP1.Username:='my_username';
  IdSMTP1.Password:='my_password';

with mes do
  begin
    Body.Add('Это новое сообщение');
    From.Text := 'people@mail.ru';
    Recipients.EMailAddresses := 'denispam@mail.ru';
    Subject := 'Какая то тема письма';
  end;

  IdSMTP1.Connect;
  If IdSMTP1.Connected Then IdSMTP1.Send(mes);
  IdSMTP1.Disconnect;
end;

Вроде написал все так как надо, но при запуске, прога секунд 10 думает, а потом просто виснет и делфи бросает вот такую ошибку


Я не пойму, что я не так сделал, подскажите.

[goblinyara]

ошибка 10060 из-за отсутсвия связи с инетом, насколько я знаю... так что копайте в сторону провайдера

[spamer]

Эээ так инет есть. А насчет провайдера, он что ли блокировать соединение моей проги может или что?

[MalCer]

Ник соответствует теме!
Ну а вот что я нашел
http://programmersforum.ru/showthread.php?t=17625
прикрепляю исходник, может поможет

[goblinyara]

ага, сидит, и раздумывает - "дай-ка я залочю инет проге чувака,который её ещё даж не написал" шутко нет, конечно...

а вот в этом месте покопайтесь:

  IdSMTP1.Connect;
  If IdSMTP1.Connected Then IdSMTP1.Send(mes);

я с инди не сильно знаком, но имхо - вы два раза подключаетесь.... ибо у всех компонентов работы с сетью,что я встречал, connect и connected - одно и то же.... только первое - процедура, а второе - функция,чтоб можно было ещё и узнать,точно ли подключились или нет... попробуйте IdSMTP1.Connect; убрать и запустить

[spamer]

Ник соответствует теме!
Ну а вот что я нашел
http://programmersforum.ru/showthread.php?t=17625
прикрепляю исходник, может поможет

Вылетает таже самая ошибка.(((((


goblinyara, попробывал убрать эту строку, ошибка перестала вылетать, но и сообщение не отправляется.

P.S. MalCer не вам решать какой мене выбирать ник.

[MalCer]

OFF
spamer это шутка такая, извини если обидел!

procedure TForm1.Button1Click(Sender: TObject);
   begin
    POP3.Host:='mail.58r.ru'; // адрес почтового сервера
    POP3.Port:=110; // порт по которому будет осуществляться подключение
    POP3.Username:='test+58r.ru'; // Логин пользователя
    POP3.Password:='12345666'; // пароль пользователя
    IdMessage.Clear; // очистка буфера для сообщения
    POP3.Connect; // подключение по протоколу POP3, по настройкам в компоненте IdPOP3, с именем POP3
    Memo1.Clear; // очистка компонента memo для отображения текста письма.
    POP3.Retrieve(1,IdMessage); // получение одного сообщения
    Memo1.Lines.AddStrings(IdMessage.Body); // передача сообщения из компонента IdMessage в memo
    POP3.Delete(1); // удаление с сервера, полученного сообщения
    POP3.Disconnect; // разрыв связи
end;

[goblinyara]

хммм.... странно... у меня код отлично работает.... значит, что-то с интернетом... попробуйте может файерволл вырубить, если стоит....

[spamer]

OFF
spamer это шутка такая, извини если обидел!

Ладно проехали

procedure TForm1.Button1Click(Sender: TObject);
   begin
    POP3.Host:='mail.58r.ru'; // адрес почтового сервера
    POP3.Port:=110; // порт по которому будет осуществляться подключение
    POP3.Username:='test+58r.ru'; // Логин пользователя
    POP3.Password:='12345666'; // пароль пользователя
    IdMessage.Clear; // очистка буфера для сообщения
    POP3.Connect; // подключение по протоколу POP3, по настройкам в компоненте IdPOP3, с именем POP3
    Memo1.Clear; // очистка компонента memo для отображения текста письма.
    POP3.Retrieve(1,IdMessage); // получение одного сообщения
    Memo1.Lines.AddStrings(IdMessage.Body); // передача сообщения из компонента IdMessage в memo
    POP3.Delete(1); // удаление с сервера, полученного сообщения
    POP3.Disconnect; // разрыв связи
end;

А на это делфи еще сильнее ругается.

хммм.... странно... у меня код отлично работает.... значит, что-то с интернетом... попробуйте может файерволл вырубить, если стоит....

А Вы мой код точь в точь скопировали, нечего не исправляли?

[goblinyara]

Сообщение от spamer

А Вы мой код точь в точь скопировали, нечего не исправляли?

ну только вставил свои логин, пароль и адрес... ну а вообще - реально что-то странное.... а любая почтовая программа(аутглюк, бат) отсылает сообщения?