delphi⽤TIdSMIP和TIdMessage发送邮件，可发。
1、拖⼀个TIdSMTP控件，命名为：ZkyIdSMTP
2、拖⼀个IdMessage控件，命名为：ZkyIdMessage
3d电视机排行榜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'; //设置SMTP地址
ZkyIdSMTP.UserId := '1111@qq'; //设置登录账号
陵ZkyIdSMTP.Password := '1111'; //设置登录密码
ZkyIdSMTP.Port := 25; //设置端⼝，必须要整形型
try
ZkyIdSMTP.Connect; //连接服务器
except //如果连接失败，提⽰并退出程序
ShowMessage('连接服务器失败');
Exit;
end;
ShowMessage('成功连接服务器。'+#10#13+'点击确认后准备发邮件。');
ShowMessage('成功连接服务器。'+#10#13+'点击确认后准备发邮件。');怎么开网店详细步骤
//------------------------------------
battle tag//配置发送的内容，格式为：
//<TIdMessage的控件名> . <；属性>:=
//------------------------------------
ZkyIdMessage.From.name := '1111@qq';//设置发件⼈姓名
ZkyIdmessage.Recipients.EMailAddresses:='2222@qq';//设置收件⼈邮箱地址（此为单发邮件的语句，发时需去掉） Zkyidmessage.Subject := '这是邮件的主题'; //设置邮件主题
:= '这是邮件的内容';//设置邮件内容
//------------------------------------
//发邮件：
//ZkyIdMessage.Recipients.add.Text:='<；收件⼈邮箱>';
//ZkyIdMessage.BCCList.Add.Address := '<；抄送⼈邮箱>' ;
//ZkyIdMessage.CCList.Add.Address := '<；密送⼈邮箱>' ;
//发送给多⼈的时候，多打⼏遍语句。
奥力给 的意思//------------------------------------
抗击疫情感人故事try //发邮件
ZkyIdSMTP.Send(ZkyIdMessage);
Showmessage('邮件发送成功!');
except
Showmessage('邮件发送失败!');
end;
end;
end.
就可以发送邮件啦。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论