以下是前輩寫的程式 ~ 想請問如果要加上USE VOTING BUTTON 該怎麼做呢? begin   try     Outlooker := GetActiveOleObject('Outlook.Application');   except     Outlooker := CreateOleObject('Outlook.Application');   end;   MailItem := Outlooker.CreateItem(olMailItem);   MailItem.Display;   MailItem.Recipients.Add('xxx@hotmail.com');   MailItem.Subject := 'Subject-TEST' ;   MailItem.Importance := olImportanceHigh;   MailItem.Body := 'Body-TEST';   Outlooker := Unassigned; end; 打開outlook會連續出現兩次警告訊息 如下圖 要如何避免?

Outlook Service Pack2以上應該是避不掉這問題，因為他為了防範病毒去自動發信，因此有做防堵的動作，如果可以的話，恭喜～你又找到微軟的漏洞了。 參考以下方試看看 uses shellapi; ShellExecute(0,nil,'mailto:abc@aaa.com.tw?subject=主題&body=內文',nil,nil,sw_showdefault); http://delphi.ktop.com.tw/topic.php?topic_id=42523 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22807 不過附加檔案似乎會有問題。

可使用 ClickYes (Freeware) http://www.contextmagic.com/express-clickyes/ 或者使用 Outlook Security Manager (要$$) http://www.add-in-express.com/outlook-security/ Regards, Allan

http://cc.codegear.com/Item/24052
Disable Outlook Security Dialog by Francisco Morales
利用FindWindow找到Yes按鈕的handle
再呼叫mouse_event送出滑鼠左鍵的訊息(MOUSEEVENTF_LEFTDOWN)

另一個BCB的範例
http://cc.codegear.com/Item/23039
Auto Outlook, Avoid Security on Outlook 2003, Send email by Claudio yoyo

相同問題
http://delphi.ktop.com.tw/board.php?cid=168&fid=923&tid=86150