TIdSMTP的问题。怎样主动设置邮件体的格式?

[孩皮妞野]

没有加附件的时候，当成html, 换行，空格全乱了；加了附件后，又当成纯文本了。

示例代码：

void __fastcall TForm2::Button2Click(TObject *Sender)
{
if(!IdSMTP1->Connected())
IdSMTP1->Connect();
IdMessage1->Body->Assign(Memo1->Lines);
IdMessage1->ContentType = "text/html";
//TIdAttachment * att = new TIdAttachment(IdMessage1->MessageParts,
// "c:\\blabla.txt");
IdSMTP1->Send(IdMessage1);
//delete att;
}


怎样在没有附件的时候以纯文本发送？
怎样在有附件时以HTML发送？

[rh]

真的不可以

我试验了一下
先设置ContentType为HTML
然后加附件
此时确实不可以以html方式显示

但加附件之后再次设置ContentType，就可以了

[wjzhuang]

Can we just set the ContentType for TEXT format?

The other possible solution, don't use the Memo component.
Probably it will format your file.

[孩皮妞野]

都不行啊。

谢谢。

[孩皮妞野]

rh, 你能来太好了。

我试一试先。

[孩皮妞野]

呵呵，解决了。

rh， 你的办法果然有效！谢谢了。

[wjzhuang]

Great. I am glad to see you solve this problem.