我已經實作了 DELPHI呼叫OUTLOOK發送郵件,但是現在客戶機又沒有OUTLOOK了,所以所有的鏈接都要在DELPHI里做,我看到SERVER面板有OUTLOOKAPPLICATION,但是不知道怎么做,有哪位大大給點思路,感激不盡~~~
uj5u.com熱心網友回復:
需要裝outlook,outlookapplication也只是對outlook ocx組件的包裝uj5u.com熱心網友回復:
使用Delphi的Indy中的控制元件,就可以直接發EMail。通常使用這三個控制元件 TIdPOP3, TIdMessage, TIdSMTP即可。

上圖就是相關的界面,僅供參考。
uj5u.com熱心網友回復:
是的 SMTP可以實作郵件的發送, 但是現在環境是公司內部EXCHANGE,使用郵箱也是內部郵箱,這就是頭疼的問題,EXCHANGE的SMTP都不知道是啥~~。。。。這才是關鍵
uj5u.com熱心網友回復:
請教大蝦 那OUTLOOKAPPLIACTION是不是不需要打開OUTLOOK就可以傳輸郵件,所有用戶的賬戶密碼都是在軟體里保存的
uj5u.com熱心網友回復:
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
IdSMTP1.AuthenticationType := atNone;
IdSMTP1.Host := mhost;
IdSMTP1.HeloName := mhost;
IdSMTP1.Port := 25;
IdSMTP1.Connect;
try
bodylist.Clear;
bodylist.Add(mbody);
IdHTML := TIdText.Create(IdMessage1.MessageParts, bodylist);
IdHTML.ContentType := 'text/html';
IdHTML.ContentTransfer := '8bit'; // 8bit
with IdMessage1 do
begin
From.Text := mfrom;
Recipients.EMailAddresses := mto;
CCList.EMailAddresses := mcc;
BccList.EMailAddresses := mbcc ;
Subject := msub ;
ReceiptRecipient.Text := '';
if priorityhigh = 'H' then
Priority := mpHighest else
Priority := mpNormal;
end;
IdSMTP1.Send(IdMessage1);
except
end;
你要有域的可以發郵件的帳號就可以了.
uj5u.com熱心網友回復:
謝謝大俠,系統會提示error connect with ssl,好像是通過不了SSL驗證?uj5u.com熱心網友回復:
需要先安裝,但用的時候不需要打開outlook。
uj5u.com熱心網友回復:
你的電腦用瀏覽器能登陸到你的exchange郵箱不?uj5u.com熱心網友回復:
你的電腦用瀏覽器能登陸到你的exchange郵箱不?
可以得,可以OWA直接登陸,但是用SMTP連接就報錯,不知道為啥
OWA登陸是 域名\用戶名 也要這么寫?
uj5u.com熱心網友回復:
請教大蝦 那OUTLOOKAPPLIACTION是不是不需要打開OUTLOOK就可以傳輸郵件,所有用戶的賬戶密碼都是在軟體里保存的
需要先安裝,但用的時候不需要打開outlook。
需要裝outlook,outlookapplication也只是對outlook ocx組件的包裝
請教大蝦 那OUTLOOKAPPLIACTION是不是不需要打開OUTLOOK就可以傳輸郵件,所有用戶的賬戶密碼都是在軟體里保存的
需要先安裝,但用的時候不需要打開outlook。
uj5u.com熱心網友回復:
你只要裝了outlook就行了(成功安裝后會自動注冊相應的ocx組件),發郵件時不需要啟動outlook,只是跑你自己的程式就行了。uj5u.com熱心網友回復:
如果僅僅是收發郵件,配置EXCHANGE的POP和SMTP服務即可,DELPHI這方面的控制元件很多,如果需要操作outlook 就需要安裝OFFICE,通過ACTIVEX方式呼叫轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/82114.html
標籤:VCL組件開發及應用
上一篇:尋找Delphi下可用的超市收銀系統帶條碼槍和打票支持
下一篇:動態添加圖片,完成編號
