怎么发邮件时内容有延迟啊?求救!!

[suns02]

我在用idmessage时,出现第一次提交时邮件没有内容,第二次提交时邮件内容为第一次提交的内容,以此类推,请高手看一下是什么问题.
idmessage1.NoDecode := False;
idmessage1.NoEncode := False;
idmessage1.ContentType := 'multipart/mixed';
idmessage1.Encoding := meMIME;
idmessage1.From.Address:=;
idmessage1.From.Name:=;
idmessage1.Recipients.EMailAddresses:=;
idsmtp1.Host:='smtp.163.com';
idsmtp1.Username:=;
idsmtp1.Password:=;

idmessage1.Subject:='用订单提交';
IdHTML := TIdText.Create(idmessage1.MessageParts);
IdHTML.ContentType := 'text/html; charset=GB2312';
IdHTML.ContentTransfer := '7bit';
IdHTML.Body.Add(memo1.text);

idsmtp1.AuthenticationType:=atlogin;

try
try
idSMTP1.Connect();
idSMTP1.Send(idmessage1);
showmessage('订单提交及发送邮件成功!');
except
showmessage('订单提交及发送邮件失败!');
end;
finally
if idSMTP1.Connected then
idSMTP1.Disconnect;
end;

[beyondtkl]

没用过此控件 友情UP

[mingday]

的确比较慢