delphi 用TIdSMIP和TIdMessage发送邮件,可群发。
2017-03-09 09:02
369 查看
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.
就可以发送邮件啦。
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.
就可以发送邮件啦。
相关文章推荐
- python实现自动发送邮件发送多人、群发、多附件的示例
- 关于Delphi2010使用Indy发送邮件乱码问题的解决
- javaMail Java实现邮件发送,群发功能,java发送邮件
- delphi-icv 邮件发送 -所用控件(HtmlSmtpCli)
- 发送邮件,支持群发
- 发送邮件,支持群发,非常好用
- delphi 7邮件发送程序编写(转)
- delphi2010发送邮件—中文显示为乱码解决
- C#发送邮件小程序(支持群发,附件)
- delphi工作笔记利用indy10发送邮件
- javaMail发送邮件(支持单发、群发)
- Delphi发送邮件
- java STMP协议群发邮件时有无效地址导致发送邮件失败
- 用Delphi编写SMTP邮件发送程序
- java mail发送邮件(单发和群发)
- delphi 7邮件发送程序编写
- delphi2010发送邮件—中文显示为乱码解决
- delphi发送邮件
- 实现邮箱自动发送邮件功能(群发,单独邮箱发)
- delphi工作笔记利用indy10发送邮件