网站地图 | RSS订阅 老铁博客 - 上海SEO优化|上海网站建设|蜘蛛池出租|站群代搭建
你的位置:首页 » delphi 发邮件
前端脚本

delphi 简单的发送邮件

delphi 简单的发送邮件

delphi编程用outlook发送邮件的方法,以下是关键代码:
// uses ComObj,Dialogs
function TForm1.SendMailWithAttachments(Email, Subject : string; Body : Widestring ; Filename : string): boolean;
var
   outlook : variant;
   item : variant;

发布时间:2018年7月6日 | 评论:0 | 浏览: | 标签:delphi 发邮件  

前端脚本

delphi 发邮件

delphi 发邮件

用DELPHI发邮件
      
控件
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
代码
    IdSMTP1.Host:='smtp.163.com';
    IdSMTP1.Port:=25;
    IdSMTP1.Username:='发信人名称;
    IdSMTP1.Password:='发信人邮箱密码';
    IdSMTP1.Connect();
    IdMessage1.Body.Clear;
    IdMessage1.Body.Add(信的内容);
    IdMessage1.From.Text:='从哪发的,应该可以邮箱欺骗';
    IdMessage1.Recipients.EMailAddresses:='发到哪个邮箱';
    IdMessage1.Subject:='邮件题目';
    IdSMTP1.AuthenticationType := atLogin;
    IdSMTP1.Authenticate;
    IdSMTP1.Send(IdMessage1);
    IdSMTP1.Disconnect;
end;
重点来了,有朋友试验这个代码说不好用,刚开始我测试也不行,在csdn上用了几百分也没弄明白是怎么回事,
后来一个偶然的机会发现,用新注册的邮箱用这个代码是发不了了,用用过一段时间的邮箱就可以发,新注册用户只能通过web方式发邮件,
估计与在论坛注册的新用户在某个设定时间内发不了帖子是一个道理。

发布时间:2018年7月6日 | 评论:0 | 浏览: | 标签:delphi 发邮件  

«1»
,