我用 IDMessage+IdSMTP 撰寫系統自動發出Infomail 的procedure 供其他procedure 需要時呼叫運用... 
程式設定Timer 正常Run一段時間後(幾天不一定)... 會發出沒有內文的郵件！？(其他資料都有，就差郵件沒內文)
必須再關閉重開程式才會正常。是否有大大遇過相同的問題呢？亦或有大大知道怎麼處理嗎？

ps. 我確定我傳入的tBody 是有內容的！

[code delphi]
procedure TForm1.SendInfoMail(tRecipients, tFrom, tSubject, tBody, tAttach: string);
Var Attach : TIdAttachment;
begin
try
IDMessage.From.Name := tFrom;
IDMessage.From.Address := tFrom;
IDMessage.Subject := tSubject;
IDMessage.Body.Text := tBody;
if Trim(tAttach)<>'' then
Attach:=Tidattachment.create(IDMessage.MessageParts, TFileName(tAttach));
IDMessage.Recipients.EMailAddresses := tRecipients
MsgIdSMTP.connect;
MsgIdSMTP.Send(IdMessage);
MsgIdSMTP.Disconnect;
except
on xErr: Exception do
begin
if MsgIdSMTP.connected then try MsgIdSMTP.disconnect; except end;
MessageDlg('Info mail send Failed !!!', mtError, [mbOk], 0);
end;
end;
IDMessage.Recipients.EMailAddresses := '';
IDMessage.CCList.EMailAddresses := '';
IDMessage.BCCList.EMailAddresses := '';
if Assigned(Attach) then
Attach.Free; // 釋放Create附加檔案
end;
[/code]

編輯記錄

只是一個小建議，在還沒有找到真正的問題之前，可以參考看看=>TIdMessage 用動態 Create 的方式，要用的時候才 Create，用完了就 Free

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

大大這個建議好欸..........
我先改用動態Create TIDMessage 給它run一陣子看看.......

謝謝您囉.....