使用Indy和ContentType ='multipart / mixed'发送的电子邮件存在问题

Question

我使用下面的代码使用Indy从Delphi应用程序发送电子邮件。

我刚刚离开了例程的核心部分：

MailMessage.From.Name:= UserName;
MailMessage.Encoding := meDefault;
MailMessage.Subject := MessageObject;
with TIdText.Create(MailMessage.MessageParts, nil) do begin
  ContentType := 'multipart/alternative';
end;
with TIdText.Create(MailMessage.MessageParts, nil) do
begin
  Body.Text:= MessageText; // MessageText could be eithr HTML or TEXT
  ContentType := 'text/html';
end;
// recipients lists are populated
PrepareToList;
PrepareccList;
PrepareBccList;
// attachments are added to the MailMessage
AddAttachments;
MailMessage.ContentType :=  'multipart/mixed';
//usage of TIdSMTP to send mail
SMTP.Connect;
SMTP.Send(MailMessage);

上面的代码以某种方式起作用 对于大多数SMTP服务器，Outlook中收到的消息如下：

...但是当我使用特定的“问题” SMTP服务器时，我看到：

第一种情况还可以，第二种情况很奇怪。

奇怪的是，当使用特定的SMTP服务器时，我会重现此问题，其他所有问题都很好。

能不能给我一些提示，以进一步了解发生了什么？