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

如何藉由Outlook夾帶檔案寄信且不用打開Outlook

答題得分者是:hagar
godspeedx10
一般會員


發表:9
回覆:25
積分:6
註冊:2002-04-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-03-14 10:21:18 IP:211.21.xxx.xxx 未訂閱
我在深度論壇找到一篇藉由Outlook夾帶檔案寄信且不用打開Outlook的文章,照著做,但在try裏出現 '無效的類別字串' 的錯誤,不知哪裏出問題,請前輩們指點,謝謝! 環境:Delphi6 , Win2000 , Outlook Express6    uses Comobj,Variants      
 const
  olMailItem = 0;
var
  Outlook, MailItem: OLEVariant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application'); // 無效的類別字串
  except
    Outlook := CreateOleObject('Outlook.Application');// 無效的類別字串      end;      MailItem := Outlook.CreateItem(olMailItem);
  MailItem.Recipients.Add('mshkolnik@scalabium.com');
  MailItem.Subject := 'your subject';
  MailItem.Body := 'Welcome to my homepage: http://www.scalabium.com';
  MailItem.Attachments.Add('C:\Windows\Win.ini');
  MailItem.Send;      Outlook := Unassigned;
end;    
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-03-14 10:34:04 IP:202.39.xxx.xxx 未訂閱
在 regedit 下, 用 Outlook.Application 當搜尋字串 看結果是什麼,  其 Key 是 \HKEY_CLASSES_ROOT\CLSID\....\ProgID 像小弟的是 Outlook.Application.9 那就把 Outlook := GetActiveOleObject('Outlook.Application'); 這行改成 Outlook := GetActiveOleObject('Outlook.Application.9'); 試試. --- Have you ever wondered what it would be like? 發表人 - hagar 於 2003/03/14 10:37:08
godspeedx10
一般會員


發表:9
回覆:25
積分:6
註冊:2002-04-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-03-14 15:08:51 IP:211.21.xxx.xxx 未訂閱
但我只找到OutlookExpress,並無Outlook.Application,我沒有安裝Win Office,螢幕左下角Icon按下便是OutlookExpress,OutlookExpress <> Outlook嗎? 我剛剛用Indy SMPT試了一下(也是抄前輩們的),可以送信了, 非常感謝!    
引言: 在 regedit 下, 用 Outlook.Application 當搜尋字串 看結果是什麼, 其 Key 是 \HKEY_CLASSES_ROOT\CLSID\....\ProgID 像小弟的是 Outlook.Application.9 那就把 Outlook := GetActiveOleObject('Outlook.Application'); 這行改成 Outlook := GetActiveOleObject('Outlook.Application.9'); 試試. --- Have you ever wondered what it would be like? 發表人 - hagar 於 2003/03/14 10:37:08
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-03-14 18:07:00 IP:202.39.xxx.xxx 未訂閱
小弟在網路上找了一下, 找了一段如下: You can't because Outlook Express does not support OLE automatization. Using OLE you can work with MS Outlook only. To access the MS Outlook Express you may use MAPI. 所以無法用 Outlook := GetActiveOleObject('Outlook.Application'); 這樣的方式來使用 Outlook Express 吧! --- Have you ever wondered what it would be like?
godspeedx10
一般會員


發表:9
回覆:25
積分:6
註冊:2002-04-22

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-03-15 21:10:51 IP:61.219.xxx.xxx 未訂閱
非常感謝!還費心幫忙找答案,實在令人感動,再次謝謝!
引言: 小弟在網路上找了一下, 找了一段如下: You can't because Outlook Express does not support OLE automatization. Using OLE you can work with MS Outlook only. To access the MS Outlook Express you may use MAPI. 所以無法用 Outlook := GetActiveOleObject('Outlook.Application'); 這樣的方式來使用 Outlook Express 吧! --- Have you ever wondered what it would be like?
系統時間:2024-11-23 2:22:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!