学步园

用indy9.0.18元件发送电子邮件很简单，一般这样就可以：

procedure SendAMail(AFromAddress,AToAddress:string;ASubject:string;<br /> ABody:string;AttachmentFileNames:array of string; ASMTP:string;ASMTPUserName:string;ASMTPPassword:string;ASMTPNeeddLogin:Boolean);<br /> var<br /> vMS:TidMessage;<br /> vSMTP:TidSMTP;<br /> i:integer;<br /> begin<br /> vMS:=TidMessage.Create(nil);<br /> vSMTP:=TidSMTP.Create(nil);<br /> try<br /> vMS.From.Address:=AFromAddress;<br /> vMS.From.Name:=ASMTPUserName;<br /> vMS.Recipients.Add.Address:=AToAddress;<br /> vMS.Subject:=ASubject;<br /> vMS.Body.Text:=ABody;<br /> for i:=0 to High(AttachmentFileNames) do<br /> begin<br /> TidAttachment.Create(vMS.MessageParts,AttachmentFileNames[i]);<br /> end;</p> <p> vSMTP.Host:=ASMTP;<br /> vSMTP.Username:=ASMTPUserName;<br /> vSMTP.Password:=ASMTPPassword;<br /> if ASMTPNeeddLogin then vSMTP.AuthenticationType:=atlogin;<br /> vSMTP.Connect;<br /> vSMTP.Authenticate;//xxx@qq.com不需要这句也可以，xxx@163.com必须要这句<br /> vSMTP.Send(vMS);<br /> finally<br /> vSMTP.Free;<br /> vMS.Free;<br /> end;<br /> end;

如果发送时需要登录，就传ASMTPNeedLogin为true，ASMTP使用外部服务商提供的地址，或者在局域网内使用你的Exchanged Server的地址。需要注意的是：

1、对xxx@qq.com，需要登录http://mail.qq.com，在你的邮箱设置中去开通“允许pop3/smtp收发邮件”；

2、ASMTPUserName你要注意邮件服务商如何规定的，对xxx@qq.com，只需要且只能输入前面的xxx就可以了，而对于xxx@163.com，则只输入xxx或者全部输xxx@163.com都可以。

3、在代码上，“vSMTP.Authenticate;”这句，xxx@qq.com不需要这句也可以，xxx@163.com必须要这句，否则出现“bad sequence of commands”错误。