邮件发送（方法一）

unit yourpost;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Psock, NMsmtp, ImgList,
  OleCtrls, SHDocVw, Buttons, NMURL,shellapi;

type
  TForm1 = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    NMSMTP1: TNMSMTP;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ImageList1: TImageList;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Panel2: TPanel;
    WebBrowser1: TWebBrowser;
    Label7: TLabel;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    NMURL1: TNMURL;
    memo1: TMemo;
    procedure ToolButton1Click(Sender: TObject);
    procedure NMSMTP1SendStart(Sender: TObject);
    procedure NMSMTP1Success(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure nmurl1Error(Sender: TObject; Operation, ErrMsg: String);
    procedure BitBtn1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
with NMSMTP1 do
begin
if connected then disconnect;
host:=edit1.Text ;//smtp服务器地址
port:=strtoint(edit2.Text );
userID:=edit3.Text ;
try
    connect;
    except
      begin
      showmessage('连接不到服务器!');
      exit;
      end;
      end;

      postmessage.FromAddress :=edit6.Text ;
      postmessage.FromName :=edit7.Text ;
      postmessage.Subject :=edit5.Text ;
      postmessage.ToAddress.Add(edit4.Text );
      postmessage.Body.Assign(memo1.Lines);
      try
         try
         sendmail;
         finally
         disconnect;
         end;
         except
         begin
         showmessage('邮件发送失败!');
         exit;
         end;
         end;
         end;
         end;


procedure TForm1.NMSMTP1SendStart(Sender: TObject);
begin
nmsmtp1.FinalHeader.Clear ;//删除头部信息。
end;

procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
showmessage('邮件发送成功！');

end;

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

procedure TForm1.FormCreate(Sender: TObject);
var
URL: OleVariant;
begin
URL := ExtractFilePath(Application.EXEName) + 'fla.htm';
  Webbrowser1.Navigate2(URL);
 //memo1.Text :='';
end;

procedure TForm1.nmurl1Error(Sender: TObject; Operation, ErrMsg: String);
begin
showmessage(errmsg);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
NMURL1.InputString :=memo1.Text ;
memo1.Text :='';
memo1.Text :=nmurl1.Encode ;
bitbtn1.Enabled :=false;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
memo1.Text :=nmurl1.Decode ;
bitbtn1.Enabled :=true;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://go.163.com/delphimyself'),nil,nil,sw_shownormal);
end;

end.