Как отправить скажем все формы на имейл на дельфи

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Adekvatnyj, 10 Dec 2009.

  1. Adekvatnyj

    Adekvatnyj Member

    Joined:
    28 Oct 2009
    Messages:
    18
    Likes Received:
    25
    Reputations:
    -3
    Code:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Edit2: TEdit;
        Label4: TLabel;
        Edit3: TEdit;
        Edit5: TEdit;
        Label5: TLabel;
        Label7: TLabel;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        Label6: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    
    end;
    
    end.
    что то типа того, вот тут я не силен совсем.
    надо отправить все поля Edit при нажатие кнопки баттон1 клик
    как это сделать
     
  2. Linkus

    Linkus Member

    Joined:
    20 Dec 2008
    Messages:
    168
    Likes Received:
    15
    Reputations:
    -1
    через Indy -компоненты можно. Вот пример

    wm-help.net/articles/article/03.03.20069183-30.html

    p.s. use gooooooogle
     
  3. DeaD_MoroZ

    DeaD_MoroZ Banned

    Joined:
    3 Nov 2009
    Messages:
    102
    Likes Received:
    7
    Reputations:
    0
    Code:
    var
    Msg: TIdMessage;
    begin
    Msg.Subject:='тема сообщения';              
    Msg.Recipients.EMailAddresses:='[email protected]';
    Msg.From.Adress:='[email protected]';          //автор письма
    Msg.Body.Text:=edit1.text+edit2.text;           
    Msg.Date:=StrToDate('01.12.2004');//дата отправки письма может быть любой
    end;   
    
    
    IdSMTP1.Port:=25;
    IdSMTP1.Host := 'smtp.mail.ru';
    IdSMTP1.Connect(5000);
    IdSMTP1.AuthenticationType:=atLogin;
    IdSMTP1.Username:='test';
    IdSMTP1.Password:='test';
    if Connected=True then IdSMTP1.Send(Msg);