IdSMTP发邮件

jinjintalk 2005-06-14 11:50:24
有两个问题求助高手:
问题1:
代码如下:
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='m';
IdSMTP1.Password:='1';
IdMessage1.From.Text := 'm@163.com';
IdMessage1.Recipients.EMailAddresses := 'f@tom.com';
IdMessage1.Subject := '测试发送';
IdMessage1.Body.Text := '邮件正文';
IdSMTP1.Host:='smtp.163.com';
IdSMTP1.Port:=25;
try
IdSMTP1.Connect(1000);
IdSMTP1.Send(IdMessage1);
except
exit;
end;
运行提示socket error #10053错误,请高手帮忙解决,谢谢
问题2:
如何用delphi7的IdSMTP1直接对lotus notes 发送邮件,为了安全lotus notes的smtp监听已经关闭,谢谢
...全文
1138 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
jinjintalk 2005-07-01
  • 打赏
  • 举报
回复
谢谢大家的热情,问题就这样吧,看来是没有人来讨论了,分就平分了
jtg98g3 2005-06-17
  • 打赏
  • 举报
回复
谢谢大家,运行提示socket error #10053错误的问题已经解决,原因是我用的杀毒软件把25端口关闭了,现在还请大家能继续讨论问题2:
如何用delphi7的IdSMTP1直接对lotus notes 发送邮件,为了安全lotus notes的smtp监听已经

我想这个问题是很有代表性的,因为很多客户内部都使用lotus notes发送邮件
=======================================================================
首先,得搞清楚lotus notes收发邮件的协议是什么,用tidsmtp能否适用它。

问个问题,如何发送网页邮件?就是对方收到后,看到是网页形式的内容。
不知道问题说清楚了吗?

jinjintalk 2005-06-17
  • 打赏
  • 举报
回复
多谢大家,不过还是很遗憾,问题2没有解决
201fgq 2005-06-15
  • 打赏
  • 举报
回复
你把IdSMTP1.Connect(1000)删掉试下!
lovend 2005-06-14
  • 打赏
  • 举报
回复
幫你頂
jinjintalk 2005-06-14
  • 打赏
  • 举报
回复
谢谢大家,运行提示socket error #10053错误的问题已经解决,原因是我用的杀毒软件把25端口关闭了,现在还请大家能继续讨论问题2:
如何用delphi7的IdSMTP1直接对lotus notes 发送邮件,为了安全lotus notes的smtp监听已经

我想这个问题是很有代表性的,因为很多客户内部都使用lotus notes发送邮件
qiujsh 2005-06-14
  • 打赏
  • 举报
回复
网络连接有没有问题,网络连接有问题的情况,会出那个错
duanhai 2005-06-14
  • 打赏
  • 举报
回复
是不是你的郵箱的問題呀?
TechnoFantasy 2005-06-14
  • 打赏
  • 举报
回复
try this:



procedure TForm1.Button2Click(Sender: TObject);
begin
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.UserId := 'xxx@netease.com';
IdSMTP1.Password := 'cxxxx';
IdMessage1.From.Text := 'xxxx@netease.com';
IdMessage1.Recipients.EMailAddresses := 'bbbb@applevb.com';
IdMessage1.Subject := '测试发送';
IdMessage1.Body.Text := '邮件正文';
IdSMTP1.Host:='smtp.netease.com';
IdSMTP1.Port:=25;
try
IdSMTP1.Connect;
except
exit;
end;

end;

procedure TForm1.IdSMTP1Connected(Sender: TObject);
begin
IdSMTP1.Send(IdMessage1);
end;

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧