mainform.pas.~9~

来自「Delphi 2005程序设计教程_实例源文件和教学课件」· ~9~ 代码 · 共 93 行

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.ComCtrls, Borland.Vcl.StdCtrls, System.ComponentModel,
  IdMessage, IdSMTPBase, IdSMTP, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdPOP3;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    IdPOP31: TIdPOP3;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses sendMail;

{$R *.nfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  IdPOP31.Host := edit1.Text;
  IdPOP31.Username := edit2.Text;
  IdPOP31.Password := edit3.Text;
  try
    IdPOP31.Connect;
    for i := 1 to IdPOP31.CheckMessages do begin
      IdPOP31.RetrieveHeader(i, IdMessage1);
      with ListView1.Items.Add do begin
        Caption := IdMessage1.From.Text;
        SubItems.Add(IdMessage1.Recipients.EMailAddresses);
        SubItems.Add(IdMessage1.Subject);
        SubItems.Add(DateToStr(IdMessage1.Date));
       end;
     end;
   finally
     IdPOP31.Disconnect;
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Form2.showModal=mrOK then
  begin
    IdSMTP1.Host:=Form2.edit1.Text;
    IdSMTP1.Username:=IdPOP31.Username;
    IdSMTP1.Password:=IdPOP31.Password;
    try
      IdSMTP1.Connect;
      IdMessage1.Subject:=Form2.Edit3.Text;
      IdMessage1.From.Text:=Edit1.text;
      IdMessage1.Recipients.EMailAddresses:=Form2.Edit2.Text;
      IdMessage1.Date :=TDateTime.Now;
      IdMessage1.Body :=Form2.Memo1.Lines;
      IdSMTP1.Send(IdMessage1);
    finally
      IdSMTP1.Disconnect;
    end;
  end;
end;

end.