發送可認證郵件

delphi6下编写需要认证的发送邮件程序(比如263)
最近在delphi5下编写一个数据库的程序,其中有一个功能就是能够自己发送email,本
来我想偷懒让sql server自己发送,看了半天联机帮助不知所以然,于是发狠上网去找
控件乐,(delphi5自带的不支持认证)找到一套叫做indy的控件,可以发送需要SMTP认
证的邮件,我把控件导入delphi5,就去喝可乐乐,呵呵,回来迷茫的看着机器,突然发
现,这几个控件好面熟,噢,呵呵,原来是delphi6里面的东东哦,(台下观众开始毫不
留情的扔石头了)
现在我就贴出来,大家看看,嘻嘻
首先 在indy clients 页上 摘取一个TidSMTP控件(就是那个蓝颜色的柜子啦)
然后 在indy misc  页上 摘取一个TIdMessage控件(象一个信笺的东东)
呵呵,我们给他们取名为SMTP和IdMsgSend
然后开始自己的如下代码
procedure Tform1.SendAlarmEmail;
begin
if SMTPAuthority then  //SMTPAuthority 是 表示这个SMTP服务器是否需要认证的bo
olean
      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等等都可以设置的)

posted on 2006-09-11 10:12 青蛙學堂 阅读(238) 评论(0)  编辑 收藏 引用 所属分类: 軟件布袋

只有注册用户登录后才能发表评论。
<2006年9月>
272829303112
3456789
10111213141516
17181920212223
24252627282930
1234567

导航

统计

常用链接

留言簿(7)

随笔分类

随笔档案

收藏夹

青蛙学堂

最新评论

阅读排行榜

评论排行榜