DelPhi下用CDO发送邮箱实例(授权码CDO发送邮箱的解决办法)

最新推荐文章于 2023-03-08 18:27:07 发布

fj218

最新推荐文章于 2023-03-08 18:27:07 发布

阅读量2.9k

点赞数

CC 4.0 BY-SA版权

文章标签： delphi 测试

本文链接：https://blog.youkuaiyun.com/fj218/article/details/5561760

本文介绍了如何在Delphi环境下使用CDO组件发送电子邮件，特别是针对WinXP及以上系统。通过创建 OleVariant 对象并设置各种配置字段，包括发件人、收件人、主题、正文和附件。当使用如QQ邮箱或163邮箱等需要授权码的邮箱时，需要将发信密码替换为授权码，以此解决发送邮件的问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

相对用第三方控件，CDO发送邮件还是很简洁方便的

注：CDONTS为CDO的子集，仅支持WinNT/Win2K，WinXP以上请用CDO;

单元引用ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
vCDOMessage:=CreateOleObject('CDO.Message');
vcdomessage.from:='MR.F'+'<XXXX@163.com>';             //加号前面为发件人显示名称，加号后面为发件人邮箱；
vcdomessage.to:='XXXX@qq.com';                    //收信人的邮箱
vcdomessage.Subject:='测试';
vcdomessage.TextBody:='发送成功';
vcdomessage.addAttachment('XXXX');              //附件，引号内为附件路径名
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/sendusing'):=2;
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/smtpserver'):='smtp.163.com'; //修改相应发送邮箱的smtp
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/smtpserverport'):=25;
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate'):=1;
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/sendusername'):='XXXX';//发信邮箱的用户名

vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/sendpassword'):='XXXX';//发信邮箱的密码，现在要用授权码
vcdomessage.Configuration.Fields.update;
VCDOmessage.send;

end;

目前，很多邮箱都采用了第三方登录必须使用授权码，比如QQ邮箱，163邮箱，按照以往密码是无法正常发送邮件。

解决方式：先登录QQ邮箱和163邮箱生成授权码，然后把发信邮件密码改成授权码就能正常发送邮件了。