Отправка почты с Delphi 7

[Квэнди]

версия Indy ?

[StartMis]

версия Indy ?

Да я да же незнаю и как можно посмотреть?

[Noor]

вот ссылка на исходник почтовика, может что полезное найдешь
http://www.delphisources.ru/pages/so...et/e-mail.html

[StartMis]

Unit1 in 'Unit1.pas' {Form1},
adress in 'adress.pas' {Form2},
em in 'em.pas' {Form3};
Выдоет ошибку в этом месте почему?

[L3zh1Y]

Я вот не понял, в коде указан компонент smpt, в описании idSMTP, где взять компонент smtp??? весь делфи облазил, нет его.

[progma]

Здравствуйте!
Не могли бы вы подсказать в чем моя ошибка в программе отправки почты.
Вот её полный тестовый код:
Всем привет!
Не могу реализовать программу отправки почты без авторизации на сервере.
Вот полный тестовый код программы на Delphi 7:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, IdMessage, IdPOP3;
type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
Button1: TButton;
IdMessage1: TIdMessage;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host := 'imap.mail.ru'; // URL smtp
IdSMTP1.Port:=25;
IdMessage1.Body.Text := 'Проверка прохождения почты'; // отправляемый текст
IdMessage1.From.Text := 'mail@mail.ru'; // EMail отправителя
//idMessage1.MessageParts.Clear;
IdMessage1.Recipients.EMailAddresses := 'cont_test@mail.ru'; // адрес получателя
IdMessage1.Subject := 'Проверка почты'; // тема сообщения
//TIdAttachment.Create(IdMessage1.MessageParts,'c:\. txt'); //вложение 
IdMessage1.From.Name:='Макс'; //имя отправителя
IdMessage1.Body.Text:='Запуск сделан'; //текст сообщения
//IdMessage1.Date:=StrToDate('17.05.2014'); //дата отправки
IdMessage1.Date:=Now; //текущая дата отправк
IdSMTP1.Connect(); //запуск соединения
if idSMTP1.Connected=true then
begin
IdSMTP1.Send(IdMessage1); //отправка сообщения
showmessage('Сообщение успешно отправлено');
end
else showmessage('Соединение не произошло. Повторите');
IdSMTP1.Disconnect; //Разрыв соединения
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;
end.

Соединение устанавливается.
На строке отправка выдает ошибку:

Подскажите, в чем моя ошибка.
Спасибо

[progma]

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

http://programmersclub.ru/alar-pochovik/

Все в программе соответствует ссылке на пример.
Соединение устанавливается, а отправка не проходит и выводится окно:

Я уже не знаю, что делать.

[progma]

порт 25.
Соединение устанавливается, а отправка не срабатывает и выдает сообщение:

[Stilet]

Ну так у тебя авторизация по паролю должна проходить. А в твоем коде я пароля не вижу.

Да и еще: Не лезь в чужую тему - создавай свою.

[progma]

Пароля нет т.к. сервер без авторизации.
В вашу тем я влез случайно, щелкнув не на той кнопке.
Изивините.