发送邮件的错误，谁帮忙看看？

[huche]

发送邮件时出错信息如下：
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);

[huche]

to hjd_cw
应该不是，因为如果我把前面的代码去础信息能发出去，但是显示的是base64码，头信息也没有包含html信息所以也不能按html页察看邮件。
错误信息是TIdSMTP发送的时候返回的.
谢谢！！

to unsigned
IdMsgSend 是 TIdMessage控件

[huche]

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

to unsigned
IdMsgSend 是 TIdMessage控件

[knock]

这样试试：

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

[huche]

to knock(天天睡觉)
这样肯定是不行的，参数类型都不对啊。

[hjd_cw]

是不是
IdMsgSend.Body.Assign(Memo1.Lines);
没有成功？

[僵哥]

IdMsgSend是个什么控件？