邮件发送(方法一)

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

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值