透過MSOutlook傳送可附件檔案的Mail |
|
李國維
高階會員 發表:42 回覆:287 積分:235 註冊:2003-02-07 發送簡訊給我 |
站內蒐尋過相關資料,但是好像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] |
shchen
一般會員 發表:12 回覆:27 積分:7 註冊:2003-08-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |