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

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);

...全文
68 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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控件

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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