delphi 用TIdSMIP和TIdMessage发送邮件，可群发。

最新推荐文章于 2017-03-14 11:05:19 发布

VIP文章我欲混吃与等死

最新推荐文章于 2017-03-14 11:05:19 发布

阅读量2k

点赞数

分类专栏： delphi 文章标签： delphi TIdMessage TIdSMTP

本文链接：https://blog.csdn.net/zhouky1993/article/details/60953892

版权

1、拖一个TIdSMTP控件，命名为：ZkyIdSMTP
2、拖一个IdMessage控件，命名为：ZkyIdMessage

3、拖一个按钮控件，双击进去后写代码。如下：


 unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient,
  IdSMTP, IdBaseComponent, IdMessage;

  
type
  TForm1 = class(TForm)  
    ZkyIdMessage: TIdMessage;      //注意看这里两个控件的名字，下面会用到的
    ZkyIdSMTP: TIdSMTP;             //注意看这里两个控件的名字，下面会用到的  
    btnSendMail: TButton;
    procedure btnSendMailClick(Sender: TObject);  
  private  
    { Private declarations }  
  public
    { Public declarations }
  end;  
  
  
var
  Form1: TForm1;  
  
  
implementation


{$R *.dfm}


procedure TForm1.btnSendMailClick(Sender: TObject);
begin
  //------------------------------------
  //设置登录信息
  //ZkyIdSMTP为控件名，
  //可自己更改为与上面的一样的名字。  
  //格式为