相对用第三方控件，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'+'';              //加号前面为发件人显示名称，加号后面为发件人邮箱；

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