Как отправить на почтовый яшик введеные даные

[}{oт@бь)ч]

Здраствуйте вообшем интересует!
Как отправить на почтовый яшик введеные даные
в програме и файл по нажатию button
p.s Пишу на delphi7!!!
)))
Заранее благодарен!
Жду!

[xakkkkker]

С начала попробуй сделать поиск по сайту со словами "отправить почту".............

вот здесь обсуждалась такая тема http://programmersforum.ru/showthread.php?t=21638

[Terran]

Посмотрите эти ссылки, может помогут:

http://www.delphisources.ru/pages/fa...end_email.html
http://www.delphisources.ru/pages/fa...end_email.html

[}{oт@бь)ч]

Дело в том что пробывал уже эти скрипты неотправляет например

procedure TForm1.hg(Sender: TObject);
begin
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := 'diman19911';
IdSMTP1.Password := '123456';
IdMessage1.From.Address:='marik@bk. ru'; вот тут красная строка мигает!
IdMessage1.Subject := 'Test';
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := klon@list.ru';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;


end;


и интерисует именно
Отправка email с вложением файла

[mihali4]

Сообщение от }{oт@бь)ч

интерисует именно
Отправка email с вложением файла

А это что???
http://www.programmersforum.ru/showthread.php?t=27696

[}{oт@бь)ч]

Блин народ вы такие страные вы думаете я знаю куда этот код вставлять я начинаюший только мне нужно пояснить куда вставить и где вообше
TIdMessage
я работаю на дельфи 7
)))

Вот код

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.dfgh(Sender: TObject);
var
M:TIdMessage;
sm:tidsmtp;
att:tidattachment;

begin
m:=TIdMessage.create(form1);
m.From.Text:='program@yandex.ru';//от кого
m.Recipients.Add;
m.Recipients.Items[0].Text:='<po@yandex.ru>';//кому
m.Subject:='fd';// тема
m.Body.Text:='fd';// текст
sm:=tidsmtp.Create(form1);
sm.AuthenticationType := atLogin;
sm.Host:='smtp.yandex.ru'; //smtp-адрес
sm.Username:='program';//логин отправителя
sm.Password:='***'; //пароль отправителя
sm.Connect(); {отправка}
if sm.Connected then
begin
sm.Send(M);
end;


and. на этом анд красная полоска выскакивает

[Квэнди]

пишите ошибки, тексты ошибок.
Не рановато вы начинаете работать с почтой ?

[}{oт@бь)ч]

3дня только учусь ошибка только осталасья
в конце
and.
на ней красная полоса

[Titan123]

не надо никого and, нало писать end;

[}{oт@бь)ч]

Вродебы разобрался но при нажатии на кнопку
сообшение не отправляет и выскакивает вот эта табличка

Народ помогите в чом проблема?