导航
  • 主页
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

发送邮件的错误,谁帮忙看看?

huche 2002-09-15 12:02:32
发送邮件时出错信息如下:
Invalid Text count. TIdText must be greater than 1:

对应的代码如下:

with TIdText.Create(IdMsgSend.MessageParts, Memo1.Lines) do
begin
ContentType := 'text/html';
ContentTransfer := 'base64';
end;
.
.
.
.
IdMsgSend.Body.Assign(Memo1.Lines);

...全文
18 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
僵哥 2002-09-15
IdMsgSend是个什么控件?
回复
hjd_cw 2002-09-15
是不是
IdMsgSend.Body.Assign(Memo1.Lines);
没有成功?
回复
huche 2002-09-15
to knock(天天睡觉)
这样肯定是不行的,参数类型都不对啊。
回复
knock 2002-09-15
这样试试:

with TIdText.Create(IdMsgSend.MessageParts, Memo1.text) do
begin
ContentType := 'text/html';
ContentTransfer := 'base64';
end;
.
.
.
.
IdMsgSend.Body.Assign(Memo1.text);

回复
huche 2002-09-15
to hjd_cw
应该不是,因为如果我把前面的代码去除,邮件能发出去,但是邮件内容显示的是base64码,头信息也没有包含html格式信息,所以也不能按html页察看邮件。
错误信息是TIdSMTP发送的时候返回的.
谢谢!!

to unsigned
IdMsgSend 是 TIdMessage控件
回复
huche 2002-09-15
to hjd_cw
应该不是,因为如果我把前面的代码去础信息能发出去,但是显示的是base64码,头信息也没有包含html信息所以也不能按html页察看邮件。
错误信息是TIdSMTP发送的时候返回的.
谢谢!!

to unsigned
IdMsgSend 是 TIdMessage控件
回复
发动态
发帖子
Delphi
创建于2007-08-02

4808

社区成员

Delphi 开发及应用
申请成为版主
社区公告
暂无公告