本文整理自网络，侵删。
相对用第三方控件，CDO发送邮件还是很简洁方便的注：CDONTS为CDO的子集，仅支持WinNT/Win2K，WinXP以上请用CDO; 单元引用ComObj; procedure TForm1.Button1Click(Sender: TObject);varVCDOMessage: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邮箱生成授权码，然后把发信邮件密码改成授权码就能正常发送邮件了。 相关阅读 >>
Delphi firemonkey中listboxaccessory图标切换
Delphi 莫名奇妙的错误 Delphi is not a valid integer value
更多相关阅读请进入《Delphi》频道 >>
