Отправка письма

@Denis3 · Регистрация: 14.03.2013

Author24 — интернет-сервис помощи студентам

Добрый день,

У меня такая проблема: я пытаюсь отправить письмо, но мне выдаёт ошибку.

На форме находятся IdSMTP1 и IdMessage1

Код:

Delphi

procedure TForm8.Button1Click(Sender: TObject);
var Msg: TIdMessage;
begin
  IdSMTP1.Host:='smtp.gmail.com';
  IdSMTP1.AuthenticationType:=atLogin;
  IdSMTP1.Username:='name';
  IdSMTP1.Password:='password';
  if IdSMTP1.Connected=true then ShowMessage('connected')
    else ShowMessage('failed');
  Msg.Subject:='Test';
  Msg.Recipients.EMailAddresses:='mail@mail.ru';
  Msg.From.Address:='mail@gmail.com';
  Msg.Body.Text:='Test message' ;
  Msg.From.Name:='Mail';
  IdSMTP1.connect;
  IdSMTP1.Send(Msg);
  IdSMTP1.Disconnect;
end;

Вообщем при нажатии на кнопку происходит следующее: он выдаёт сообщение failed и ошибку

Насколько я понимаю он даже подключиться не может.

@zlodey4ik · 28.03.2013, 23:15

Неуказан порт соединения

Idsmtp1.Port:=какой там порт у гугла;

@Denis3 · 28.03.2013, 23:55 **[ТС]**

Добавил порт Idsmtp1.Port:=25, всё равно тоже самое.

@kwinto · 29.03.2013, 00:07

Или бросьте на форму компонент класса TIdMessage или создавайте его сами:

Delphi

  Msg:=TIdMessage.Create(nil);
  try
    ...
  finally
    msg.Free;
  end

@Denis3 · 29.03.2013, 00:15 **[ТС]**

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

Или бросьте на форму компонент класса TIdMessage или создавайте его сами:

Delphi

  Msg:=TIdMessage.Create(nil);
  try
    ...
  finally
    msg.Free;
  end

На форме находятся IdSMTP1 и IdMessage1

@kwinto · 29.03.2013, 00:20

Зачем тогда объявляли var Msg: TIdMessage;
Тогда используйте IdMessage1 вместо Msg

@Denis3 · 29.03.2013, 00:29 **[ТС]**

Теперь выскакивает такая ошибка

@Denis3 · 29.03.2013, 01:19 **[ТС]**

Всё проблему решил

Delphi

procedure TForm8.Button1Click(Sender: TObject);
begin
  IdSMTP1.Port:=25;
  IdSMTP1.Host:='smtp.mail.ru';
  IdSMTP1.Connect(5000);
  IdSMTP1.AuthenticationType:=atLogin;
  IdSMTP1.Username:='name';
  IdSMTP1.Password:='password';
  if IdSMTP1.Connected=true then
    begin
      ShowMessage('connected');
      IdMessage1.Clear;
      IdMessage1.Subject:='Test';
      IdMessage1.Recipients.EMailAddresses:='mail@mail.ru';
      IdMessage1.From.Address:='name@mail.ru';
      IdMessage1.Body.Text:='Test message' ;
      IdMessage1.From.Name:='Mail';
      IdSMTP1.Send(IdMessage1);
    end;
  IdSMTP1.Disconnect;
end;

@zlodey4ik 0 / 0 / 1 Регистрация: 06.03.2013 Сообщений: 139
	28.03.2013, 23:15	2
	Неуказан порт соединения Idsmtp1.Port:=какой там порт у гугла; 0

@Denis3 0 / 0 / 2 Регистрация: 14.03.2013 Сообщений: 43
	28.03.2013, 23:55 [ТС]	3
	Добавил порт Idsmtp1.Port:=25, всё равно тоже самое. 0

@kwinto 86 / 86 / 24 Регистрация: 27.02.2010 Сообщений: 397
	29.03.2013, 00:20	6
	Зачем тогда объявляли var Msg: TIdMessage; Тогда используйте IdMessage1 вместо Msg 0

@Denis3 0 / 0 / 2 Регистрация: 14.03.2013 Сообщений: 43
	29.03.2013, 00:29 [ТС]	7
	Теперь выскакивает такая ошибка Миниатюры 0

	29.03.2013, 01:19