RSS订阅 | 匿名投稿
您的位置:网站首页 > 网络 > 正文

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

作者:admin 来源: 日期:2018/1/28 19:07:45 人气: 标签:

相对用第三方控件,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邮箱生成授权码,然后把发信邮件密码改成授权码就能正常发送邮件了。

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料