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

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

联系电话：

020-00000000

联系电话：

020-00000000

联系电话：

020-12345678