邮件发送（方法一）

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 .

转载于:https://www.cnblogs.com/safezone/articles/1260849.html