用idmessage提交邮件问题
我在用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;