使用系統預設郵件軟體發信物件 (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

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

問題一: 程式碼錯誤問題 Ans. 謝謝你的指正，我已重新修正程式，並上傳了，你可以試試新的程式碼。    問題二.另外我發現,程式是順利執行了,但郵件並沒有寄出去,還要開啟系統預設的郵件軟體傳送,信件才會真的寄出去 Ans. 它是使用預設郵件寄送郵件，我是以Outlook Express測試正常，未使用其他預設郵件軟體測試。    問題三,另外在 OUTLOOK 會出現     一個應用程式嘗試要代表妳自動傳送電子郵件.....的對話框,是否可以關閉此對話框 Ans. 我使用Outlook Express測試時也有發現此問題，不過在功能表的「選項」中，「安全性」的頁籤中可以設定，如下圖。 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou [/quote]

請要問如何把 HTML 格式加入"內容"