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

[spamer]

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

Да, пробывал БАТ - все норм.

Блин действительно странно.((((((

[psycho-coder]

А может TimeOut маленький стоит в компоненте?

[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 := 'denispam@mail.ru';
    Recipients.EMailAddresses := 'denispam@mail.ru';
    Subject := 'Какая то тема письма';
  end;

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

Надо было написать в свойство From.Text вот это denispam@mail.ru , вместо people@mail.ru

Цитата с http://mail.ru/pages/help/79.html

SMTP-авторизация: если в настройках почтовой программы указан почтовый ящик mailname@mail.ru ( listname@list.ru, bkname@bk.ru или inboxname@inbox.ru), то именно это имя почтового ящика должно указываться в поле From:.

З.Ы. Да странное все же это как то.

Всем спасибо кто откликнулся.

[Life9]

пожалуй подниму тему,
ругается на

  IdSMTP1.Host:='smtp.mail.ru';

[MalCer]

Life9, код рабочий!!! Давай подробнее

[Вавел из ГМТУ]

В самом низу окна кода должно быть ещё одно окошко, где ведётся лог всех ошибок и сообщений компилятора.

Что там написано?

[Life9]

я верю, что рабочий.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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:='логин';
  IdSMTP1.Password:='пароль';

with mes do
  begin
    Body.Add('Ýòî íîâîå ñîîáùåíèå');
    From.Text := 'мыло@mail.ru';
    Recipients.EMailAddresses := 'мыло@mail.ru';
    Subject := 'Êàêàÿ òî òåìà ïèñüìà';
  end;

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


end.

[spamer]

Life9 , ошибку в студию?

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(или другими словами - ваш  E-mail)';
  IdSMTP1.Password:='my_password';

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

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

P.S. Опоздал крапаль)))

[Вавел из ГМТУ]

Дык компилятору не нравиться отсутствие обьекта idSMPT. Для него это неопознаное.

[spamer]

Сообщение от Вавел из ГМТУ

Дык компилятору не нравиться отсутствие обьекта idSMPT. Для него это неопознаное.

Life9 , а Вы кинули на форму idSMPT, вкладка Indy Clients?