отправка данных с edit'a на e-mail

[фЁдОр]

Здравствуйте, уважаемые программисты!

Подскажите, пожалуйста, каким образом можно отправить данные с эдита на эл. почту?
В какую сторону мне нужно смотреть. Я просто, пока, вообще не могу представить как это можно реализовать.

[Карась]

В соответсвующем разделе я встречал как минимум три темы где это обсуждали....

Самая вроде свежая http://programmersforum.ru/showthread.php?t=12034

[ben95]

Отправка одного письма:

procedure TForm1.Button4Click(Sender: TObject);
begin
SMTP.Host:='mail.58r.ru'; // адрес почтового сервера
SMTP.Port:=25; // порт по которому будет осуществляться подключение
SMTP.Username:='test+58r.ru'; // логин пользователя
SMTP.Password:='12345666'; // пароль пользователя
SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией
with IdMessage do
begin
Body.Assign(Memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки
From.Text := 'test@58r.ru'; // майл отправителя письма
Recipients.EMailAddresses := 'test@58r.ru'; // майл получателя письма
Subject := 'Programmersclub.ru'; // тема письма

end;

SMTP.Connect; // соединение с почтовым сервером
try
showmessage('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу
SMTP.Send(IdMessage); // отправка письма на сервер
finally
SMTP.Disconnect; // разрыв соединения
end; end;

[фЁдОр]

Карась - я смотрел эту тему, но там речь об контроли(управлении) эл. ящиком. У меня же стоит другая задача: допустим моё приложение попадает какому-либо пользователю, а в моем приложение есть формачка, в которой данный пользователь может оставить информацию о себе, т.е. эта формачка состоит из нескольких эдитов, в которые пользователь вводит свою контакную информацию(Ф.И.О., адрес, телефон и т.д.), так вот, я и хочу бы эта информация приходила ко мне на почту.

[ben95]

Сообщение от фЁдОр

Карась - я смотрел эту тему, но там речь об контроли(управлении) эл. ящиком. У меня же стоит другая задача: допустим моё приложение попадает какому-либо пользователю, а в моем приложение есть формачка, в которой данный пользователь может оставить информацию о себе, т.е. эта формачка состоит из нескольких эдитов, в которые пользователь вводит свою контакную информацию(Ф.И.О., адрес, телефон и т.д.), так вот, я и хочу бы эта информация приходила ко мне на почту.

я токо что отправел себе месагу самому себеб на майл(кстати с эдитом это чтото вроде угона пароля?))

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdMessage;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   SMTP.Host:='mail.58r.ru'; // àäðåñ ïî÷òîâîãî ñåðâåðà
   SMTP.Port:=25; // ïîðò ïî êîòîðîìó áóäåò îñóùåñòâëÿòüñÿ ïîäêëþ÷åíèå
   SMTP.Username:='test+58r.ru'; // ëîãèí ïîëüçîâàòåëÿ
   SMTP.Password:='12345666'; // ïàðîëü ïîëüçîâàòåëÿ
   SMTP.AuthenticationType:=atLogin; // òèï ïîäêëþ÷åíèÿ ê ñåðâåðó - ñ àâòîðèçàöèåé
   with IdMessage.
      begin
        Body.Assign(Memo1.Lines); // ïåðåäà÷à äàííûõ èç memo â êîìïîíåíò IdMessage, äëÿ ïîñëåäóþùåé îòïðàâêè
        From.Text := 'test@58r.ru'; // ìàéë îòïðàâèòåëÿ ïèñüìà
        Recipients.EMailAddresses := 'test@58r.ru'; // ìàéë ïîëó÷àòåëÿ ïèñüìà
        Subject := 'Programmersclub.ru'; // òåìà ïèñüìà

        end;

      SMTP.Connect; // ñîåäèíåíèå ñ ïî÷òîâûì ñåðâåðîì
         try
      showmessage('Ïðîèçîøëî ïîäêëþ÷åíèå ê ñåðâåðó'); // ñîîáùåíèå î óäà÷íîì ïîäêëþ÷åíèè ê ñåðâåðó
      SMTP.Send(IdMessage); // îòïðàâêà ïèñüìà íà ñåðâåð
         finally
           SMTP.Disconnect; // ðàçðûâ ñîåäèíåíèÿ
         end; end;

end.

[Карась]

Сообщение от фЁдОр

Карась - я смотрел эту тему, но там речь об контроли(управлении) эл. ящиком. У меня же стоит другая задача: допустим моё приложение попадает какому-либо пользователю, а в моем приложение есть формачка, в которой данный пользователь может оставить информацию о себе, т.е. эта формачка состоит из нескольких эдитов, в которые пользователь вводит свою контакную информацию(Ф.И.О., адрес, телефон и т.д.), так вот, я и хочу бы эта информация приходила ко мне на почту.

Дык ты по ссылке ходил? Там во втором посте есть ссылка где рассматривают отправку письма.

http://programmersclub.ru/alar-pochovik

[фЁдОр]

Ребят, что-то я не могу разобраться, ходил я и по ссылке и даже внизу исходник скачал (я там изменил свой емаил, порт, логин и пароль), но так и не смог отправить сообщение:

procedure TForm1.Button1Click(Sender: TObject);
 begin
 POP3.Host:='пишу свой емаил'; // адресс почтового сервера
 POP3.Port:=пишу свой порт;           // порт по которому будет осуществляться подключение
 POP3.Username:='пишу свой логин'; // Логин пользователя
 POP3.Password:='пишу свой пароль';   // пароль пользователя
 IdMessage.Clear; // очистка буфера для сообщения
 POP3.Connect; // подключение по протоколу POP3, по настрокам в компоненте IdPOP3, с именем POP3
 Memo1.Clear;   // очистка компонента memo для отображения текста письма.
 POP3.Retrieve(1,IdMessage);  // получение одного сообщения
 Memo1.Lines.AddStrings(IdMessage.Body); // передача сообщения из компонента IdMessage в memo
 POP3.Delete(1); // удаление с сервера, полученного сообщения
 POP3.Disconnect;   // разрыв связи
end;

поправьте, пожалуйста, что может быть не так?

[eldar]

POP3 это протокол входящей почты
SMTP это протокол исходящей почты
если вам требуеться отправить письмо вам надо использовать протокол smtp

фЁдОр
ben95 правильно вам написал только одно не правильно надо не SMTP.Host:='mail.58r.ru';
а IdSMTP1.Host :=( 'mail.58r.ru');

Вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdMessage;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    Button1: TButton;
    Edit1: TEdit;
    IdMessage1: TIdMessage;
    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host := edit1.Text; // àäðåñ ïî÷òîâîãî ñåðâåðà
 idSMTP1.Port:=(25); // ïîðò ïî êîòîðîìó áóäåò îñóùåñòâëÿòüñÿ ïîäêëþ÷åíèå
idSMTP1.Username:=('test+58r.ru'); // ëîãèí ïîëüçîâàòåëÿ
idSMTP1.Password:=('12345666'); // ïàðîëü ïîëüçîâàòåëÿ
idSMTP1.AuthenticationType:=atLogin; // òèï ïîäêëþ÷åíèÿ ê ñåðâåðó - ñ àâòîðèçàöèåé
with IdMessage1 do
begin
Body.Assign(Memo1.Lines); // ïåðåäà÷à äàííûõ èç memo â êîìïîíåíò IdMessage, äëÿ ïîñëåäóþùåé îòïðàâêè
From.Text := 'test@58r.ru'; // ìàéë îòïðàâèòåëÿ ïèñüìà
Recipients.EMailAddresses := 'test@58r.ru'; // ìàéë ïîëó÷àòåëÿ ïèñüìà
Subject := 'Programmersclub.ru'; // òåìà ïèñüìà

end;

idSMTP1.Connect; // ñîåäèíåíèå ñ ïî÷òîâûì ñåðâåðîì
try
showmessage('Ïðîèçîøëî ïîäêëþ÷åíèå ê ñåðâåðó'); // ñîîáùåíèå î óäà÷íîì ïîäêëþ÷åíèè ê ñåðâåðó
idSMTP1.Send(IdMessage1); // îòïðàâêà ïèñüìà íà ñåðâåð
finally
idSMTP1.Disconnect; // ðàçðûâ ñîåäèíåíèÿ
end; end;


end.

[yulia]

А у меня данный код вообще никаких дествий не выполняет.. (( Не подскажите почему ...

idSMTP1.AuthenticationType:= atLogin;

  IdSMTP1.Host:=('smtp.rambler.ru'); // адресс почтового сервера
  IdSMTP1.Port:=(25);    // порт по которому будет осуществляться подключение
  IdSMTP1.Username:=('мой логин);  // свой логин на xxx@mail.ru
  IdSMTP1.Password:=('мой пароль');     // свой пароль на xxx@mail.ru
// IdSMTP1.AuthType:=atLogin;
  with IdMessage1 do
      begin
      Body.Add('У вас задолженность в библиотеке');  // Отправляем текст из TMemo
      From.Name:='Библиотека'; // Своё имя
      From.Address:= 'мой адрес@rambler.ru'; // От кого письмо
      Recipients.EMailAddresses :='кому@inbox.ru'; // адрес кому отправляем
      Subject := 'Задолженность'; // тема письма
      end;
         try
      IdSMTP1.Connect;
       except
     ShowMessage('Невозможно подключится ');


   try
   IdSMTP1.Send(IdMessage1);
   finally
      IdSMTP1.Disconnect;
   showmessage('Данные отправленны .');
   end;
end;

Точнее он работает, но только при нажатии на кнопку, а при FormCreate не хочет....

[ufo2117]

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


idsmtp1.host:='smtp.yandex.ru';
idsmtp1.Port:=25;
idsmtp1.username:='uffo21';
idsmtp1.Password:='пароль от почты';
idmessage1.body.text:='test pismo';
idmessage1.From.Text:='uffo21@yande x.ru';
idmessage1.recipients.EMailAddresse s:='CB.ololo@yandex.ru';
idmassege{здесь выдает ошибку}1.subject:='tema';

idsmtp1.Connect();
idsmtp1.send(idmessage1);
idsmtp1.Disconnect;