我做了一個郵件輔助處理工具,從業務公共郵箱接收郵件,保存在資料庫,用戶可以選擇快速回復內容,比如“已處理完畢” “已轉發給XXX進行處理”等。我是通過呼叫Outlook來撰寫回復郵件,打開編輯視窗,用戶編輯完郵件后點擊發送即可。但是我希望將用戶最終發送的內容記錄在資料庫,以便登記往來郵件內容。
try
Outlook.Connect;
Item:=Outlook.CreateItem(olMailItem) as _MailItem;
Item.GetInspector;
//處理收件人
Item.To_:=lbSENDER.Caption;
if lbCC.Caption<>'' then
Item.CC:=lbCC.Caption;
//處理標題 :如果不包含RE和答復,則加上RE;
S:=lbTITLE.Caption;
if (Pos('RE:',UpperCase(S))<>1)and(Pos('答復:',UpperCase(S))<>1)and(Pos('答復:',UpperCase(S))<>1) then
S:='RE: ' + S;
Item.Subject:=S;
Item.HTMLBody:=Content.Text;
Item.Display(False); //在這里打開Outlook寫郵件視窗,內容為Content.Text
Outlook.Disconnect;
except
on E:System.Sysutils.Exception do
begin
Msgbox('錯誤:呼叫Outlook時發生錯誤:' + E.Message, 0);
end;
end;
但是問題來了:這里呼叫Outlook打開了寫郵件視窗,但是用戶對內容可以進行編輯,編輯完后再點發送,我如何能夠獲取到最終發送的內容呢?(不能設定為只讀或直接發送,因為有些內容是需要手工錄入和確認的)
uj5u.com熱心網友回復:
有人幫忙看看嘛?頂上去……轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/41250.html
標籤:VCL組件開發及應用
