使用系統預設郵件軟體發信物件 (TExMAPI) |
|
jeff377
初階會員 發表:9 回覆:60 積分:33 註冊:2004-08-10 發送簡訊給我 |
使用系統預設郵件軟體發信物件 (TExMAPI) 使用MAPI呼叫系統預設郵件軟體發信,將此發件動作封包成一個類別,
簡化MAPI相關函數的操作。可透過TExMAPI類別指定主旨、內容、收件
者、副本、密件副本、附件..等屬性,輕易完成發信動作。 以下為使用TExMAPI發信的範例
var ExMAPI: TExMAPI; begin ExMAPI:= TExMAPI.Create(nil); try ExMAPI.ShowUI:= True; ExMAPI.Subject:= '主旨'; ExMAPI.Body:= '內文'; ExMAPI.ToList.Add('test1@hotmail.com'); ExMAPI.ToList.Add('test2@hotmail.com'); ExMAPI.CCList.Add('test3@hotmail.com'); ExMAPI.CCList.Add('test4@hotmail.com'); ExMAPI.BCCList.Add('test5@hotmail.com'); ExMAPI.BCCList.Add('test6@hotmail.com'); ExMAPI.AttachFiles.Add('C:\Data.txt'); ExMAPI.SendMail; finally FreeAndNil(ExMAPI); end; end;發表人 - jeff377 於 2005/08/03 20:33:12
附加檔案:76128_ExMAPI.pas
|
thomas0728
中階會員 發表:112 回覆:260 積分:89 註冊:2002-03-12 發送簡訊給我 |
jeff377大大:
我測試了一下,發現
for N1:= 0 to High(Recip) do begin if Assigned(Recip[N1].lpszName) then StrDispose(Recip[N1].lpszName); if Assigned(Recip[N1].lpszAddress) then StrDispose(Recip[N1].lpszAddress); end; for N1:= 0 to High(Attachment) do begin if Assigned(Attachment[N1].lpszPathName) then StrDispose(Attachment[N1].lpszPathName); end;會出現錯誤,如果我把他改為 for N1:= 0 to High(Recip)-1 do begin if Assigned(Recip[N1].lpszName) then StrDispose(Recip[N1].lpszName); if Assigned(Recip[N1].lpszAddress) then StrDispose(Recip[N1].lpszAddress); end; //2005/08/15 Modif by thomas for N1:= 0 to High(Attachment)-1 do begin if Assigned(Attachment[N1].lpszPathName) then StrDispose(Attachment[N1].lpszPathName); end;則不會 二.另外我發現,程式是順利執行了,但郵件並沒有寄出去,還要開啟系統預設的郵件軟體傳送,信件才會真的寄出去 三,另外在 OUTLOOK 會出現 一個應用程式嘗試要代表妳自動傳送電子郵件.....的對話框,是否可以關閉此對話框 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou
------
Thomas Chiou |
jeff377
初階會員 發表:9 回覆:60 積分:33 註冊:2004-08-10 發送簡訊給我 |
問題一: 程式碼錯誤問題
Ans. 謝謝你的指正,我已重新修正程式,並上傳了,你可以試試新的程式碼。 問題二.另外我發現,程式是順利執行了,但郵件並沒有寄出去,還要開啟系統預設的郵件軟體傳送,信件才會真的寄出去
Ans. 它是使用預設郵件寄送郵件,我是以Outlook Express測試正常,未使用其他預設郵件軟體測試。 問題三,另外在 OUTLOOK 會出現
一個應用程式嘗試要代表妳自動傳送電子郵件.....的對話框,是否可以關閉此對話框
Ans. 我使用Outlook Express測試時也有發現此問題,不過在功能表的「選項」中,「安全性」的頁籤中可以設定,如下圖。
如果愛情也有味覺
那麼 有沒有ㄧ種愛
微微泛酸 不太苦澀 有點甜密
嚐起來的滋味讓人想起幸福
Thomas Chiou
[/quote]
|
ykh8569
一般會員 發表:7 回覆:10 積分:3 註冊:2005-08-30 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |