delphi 用TIdSMIP和TIdMessage发送邮件-木庄网络博客

本文整理自网络，侵删。
 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为控件名，
  //可自己更改为与上面的一样的名字。  
  //格式为：
  //<TIdSMIP控件名>.<属性>:=<自己的信息>  
  //------------------------------------
  ZkyIdSMTP.AuthenticationType := atLogin;//设置登录类型，一般不变动  
  ZkyIdSMTP.Host := 'mail.qq.com';   //设置SMTP地址
  ZkyIdSMTP.UserId := '1111@qq.com';   //设置登录账号
  ZkyIdSMTP.Password := '1111';      //设置登录密码
  ZkyIdSMTP.Port := 25;                   //设置端口，必须要整形型
  try
    ZkyIdSMTP.Connect;                    //连接服务器
  except                               //如果连接失败，提示并退出程序  
    ShowMessage('连接服务器失败');  
    Exit;
  end;
  ShowMessage('成功连接服务器。'+#10#13+'点击确认后准备发邮件。');  
  
  
  //------------------------------------
  //配置发送的内容，格式为：
  //<TIdMessage的控件名> . <属性>:=  
  //------------------------------------
  ZkyIdMessage.From.name := '1111@qq.com';//设置发件人姓名
  ZkyIdmessage.Recipients.EMailAddresses:='2222@qq.com';//设置收件人邮箱地址（此为单发邮件的语句，群发时需去掉）
  Zkyidmessage.Subject := '这是邮件的主题'; //设置邮件主题
  Zkyidmessage.body.text := '这是邮件的内容';//设置邮件内容  
  
  
  //------------------------------------  
  //群发邮件：
  //ZkyIdMessage.Recipients.add.Text:='<收件人邮箱>';
  //ZkyIdMessage.BCCList.Add.Address := '<抄送人邮箱>' ;
  //ZkyIdMessage.CCList.Add.Address := '<密送人邮箱>' ;
  //发送给多人的时候，多打几遍语句。
  //------------------------------------
  
  
  try  //发邮件
    ZkyIdSMTP.Send(ZkyIdMessage);
    Showmessage('邮件发送成功!');  
  except
    Showmessage('邮件发送失败!');
  end;
 
 
end;
  
 
end.

来源：https://blog.csdn.net/zhouky1993/article/details/60953892
delphi 用TIdSMIP和TIdMessage发送邮件

相关推荐

评论
