Простейшая процедура для отправки на мыло

[Alex88888]

всем привет. я уже как то спрашивал компонент для работы с майлом на дельфи. мне дали ссылки на некоторые. но во всех из них очень много наворотов, а я пока не слишком хорошо разбираюсь в этом. и мне не удается отладить программу... мне бы самую простую процедуру в которой нет ничего лишнего... и укажите пожалуйста где переменная в которой адрес мыла получателя, и переменная для текста сообщения. очень нужно. причем мне нужно написать программку в кратчайший срок. время вникать во все от и до сейчас нету. заранее ОГРОМНОЕ СПАСИБО )))

[Terran]

Вот простой вариантик. Киньте на форму компоненты IdSMTP и IdMessage. Компоненты стандартные. Вы их сможете найти на вкладках Indy Clients и Indy Misc. Потом напишите следующий код:

Procedure TForm1.XPButton1Click(Sender: TObject);
Var
M: TIdMessage;
Begin
Try
M:=TIdMessage.Create(Form1);
M.Body.Add('Первая строчка сообщения');
M.Body.Add('Вторая строчка сообщения');
M.From.Text:='<VVV@mail.ru>'; //Отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text:='<Vip@mail.ru>'; //Получатель
M.Subject:='Прива!'; //Тема письма
IdSMTP1.AuthenticationType:=AtLogin;
IdSMTP1.Host:='smtp.mail.ru'; //Хост
IdSMTP1.Username:='VVV@mail.ru'; //Логин вашей почты
IdSMTP1.Password:='123456789'; //Пароль
IdSMTP1.Connect();
If IdSMTP1.Connected Then
Begin
IdSMTP1.Send(M);
End;
IdSMTP1.Disconnect;
Except
End;
End;

[Alex88888]

ух ты ! супер! спасибо огромное... прям даж не знаю как отблагодарить

[kosko]

Классс!!!!!!

[kosko]

А как с помощью API реализовать эту прогу, оч нужно. Спасибо!

[Anatrop]

скопировал код полностью, ввел свои данные и добавил пару строк которые будут отправляться на мой Ящик, но работать не хочет нивкакую, чу делать?, выдает странную ошибку через некоторое время после тыкания кнопки, и главно не чего не отправляет

procedure TForm1.Button1Click(Sender: TObject);
Var
M: TIdMessage;
Begin
Try
M:=TIdMessage.Create(Form1);
M.Body.Add(edit1.Text);
M.Body.Add( edit2.Text);
If RadioButton1.Checked then
M.Body.Add('AxesasPW');
If RadioButton2.Checked then                       <===Что выделенно красным написал сам
M.Body.Add('Diamond');
If RadioButton3.Checked then
M.Body.Add('Lafnian');
M.From.Text:='xxx@mail.ru>'; {ТУТ Я ВВОЖУ МЭЙЛ ЯЩИКА С КОТОРОГО БУДЕТ ОТПРАВЛЯТЬСЯ}
M.Recipients.Add;
M.Recipients.Items[0].Text:='<YYY@mail.ru>'; {Тут свой Мэйл, на который должно прийти письмо с Инфой}
M.Subject:='AxesasPW';  {Заголовок ПИСЬМА}
IdSMTP1.AuthenticationType:=AtLogin;
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Username:='xxx@mail.ru'; {ТУТ Я ВВОЖУ МЭЙЛ ЯЩИКА С КОТОРОГО БУДЕТ ОТПРАВЛЯТЬСЯ}
IdSMTP1.Password:='xxx'; {ТУТ Я ВВОЖУ ПАРОЛЬ ОТ ЯЩИКА С КОТОРОГО БУДЕТ ОТПРАВЛЯТЬСЯ}
IdSMTP1.Connect();
If IdSMTP1.Connected Then
Begin
IdSMTP1.Send(M);
End;
IdSMTP1.Disconnect;
Except
End;

[nXs]

Я делал так:

ShellExecute (Form1.Handle, nil, 'mailto:bla@blal.ru', nil, nil, SW_RESTORE);

. Отправляет через Outlook.

[Anatrop]

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

Я делал так:

ShellExecute (Form1.Handle, nil, 'mailto:bla@blal.ru', nil, nil, SW_RESTORE);

. Отправляет через Outlook.

Мне то нужен именно тот код который написан в начале

[FantasyDD]

транспорт не работает smtp.mail.ru
поищи нормальные smtp сервера (это и за спамеров большая редкость)