全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1401
推到 Plurk!
推到 Facebook!

透過MSOutlook傳送可附件檔案的Mail

 
李國維
高階會員


發表:42
回覆:287
積分:235
註冊:2003-02-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-03-11 17:21:13 IP:59.120.xxx.xxx 訂閱
站內蒐尋過相關資料,但是好像BCB的討論很少.
小弟參考了一下國外網站,實作後發現可行.
在這邊進行分享
~

[code cpp]
Variant MSOutlook;
Variant MailMessage;
Variant Attach;
MSOutlook = CreateOleObject("Outlook.Application") ;
MailMessage = MSOutlook.OleFunction("CreateItem" , (Variant)0) ;
MailMessage.OlePropertySet("TO" ,"mail@domain.com.tw" ) ;
MailMessage.OlePropertySet("Subject" , "Testing Mail!!!") ;
MailMessage.OlePropertySet("Body" , "The test is successful :)" ) ;
MailMessage.OleProcedure("Save");
Attach = MailMessage.OlePropertyGet("Attachments");
for (int i =0 ; i < 2 ; i )
Attach.OleFunction("Add", WideString("C:\\" IntToStr(i) ".txt"));
MailMessage.OleFunction("Send");//直接傳送
//MailMessage.OleProcedure("Display"); //顯示不傳送
[/code]
編輯記錄
李國維 重新編輯於 2011-03-11 02:22:44, 註解 無‧
李國維 重新編輯於 2011-03-11 02:23:08, 註解 無‧
shchen
一般會員


發表:12
回覆:26
積分:7
註冊:2003-08-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-04-02 11:13:30 IP:116.6.xxx.xxx 訂閱
很有用的範例,感謝分享.
系統時間:2017-10-19 13:29:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!