发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: delphi6下编写需要认证的发送邮件程序
发信站: 哈工大紫丁香 (2002年01月19日15:53:15 星期六), 站内信件

摘　要：编写需要认证的发送邮件程序
关键字：SMTP ,AUTHORITY
类　别：网络
CoDelphi.com版权所有，未经允许，不得进行任何形式转载
    最近在delphi5下编写一个数据库的程序，其中有一个功能就是能够自己发送email
，本来我想偷懒让sql server自己发送，看了半天联机帮助不知所以然，于是发狠上网
去找控件乐，（delphi5自带的不支持认证）找到一套叫做indy的控件，可以发送需要S
MTP认证的邮件，我把控件导入delphi5，就去喝可乐乐，呵呵，回来迷茫的看着机器，
突然发现，这几个控件好面熟，噢，呵呵，原来是delphi6里面的东东哦，(台下观众开
始毫不留情的扔石头了)
    现在我就贴出来，大家看看，嘻嘻
    首先 在indy clients 页上 摘取一个TidSMTP控件（就是那个蓝颜色的柜子啦），
然后 在indy misc 页上 摘取一个TIdMessage控件（象一个信笺的东东）。呵呵，我们
给他们取名为SMTP和IdMsgSend 。
然后开始自己的如下代码
procedure Tform1.SendAlarmEmail;
begin
if SMTPAuthority then //SMTPAuthority 是 表示这个SMTP服务器是否需要认证的boo
lean
      SMTP.AuthenticationType := atLogin
        else SMTP.AuthenticationType := atNone;
SMTP.UserID := myzerg@263.net;//帐户
SMTP.Password := **********;//密码
{General setup}
SMTP.Host := SMTP.263.net;
SMTP.Port := 25;
  try
   SMTP.Connect;
   except
    Showmessage('连接SMTP服务器失败!');
    Exit;
    end;
 try
   with IdMsgSend do
    begin
     body.Clear;
     Body.Add('hello world');//内容
     From.Text := 'myzerg@263.net';
     Recipients.EMailAddresses :='zyx_chz@263.net'//收件人
     Subject:='老友,哈喽'//主题
   end;
  SMTP.Send(IdMsgSend);
  finally
  SMTP.Disconnect;
  end;
end;
因为是从代码里面改来的,(因为源码里面还有别的功能),原理就是这样了，其他的功能
( 附件,转交,信件的格式mime等等都可以设置的)，有兴趣的朋友亦可以看看rfc0822。


--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]