使用indy发送电子邮件的注意点

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

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