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'+'<[email protected]>';              //加号前面为发件人显示名称，加号后面为发件人邮箱；
  vcdomessage.to:='[email protected]';                    //收信人的邮箱
  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'):='