Delphi 發送郵件 通過Office Outlook

       網上搜到的Delphi郵件發送系統，絕大多數是使用SMTP協定來發送。

但是事實上它們已經過時了，大多數郵件伺服器已經屏蔽了Delphi Indy的郵件發送，進而導緻Delphi發送不成功。

事實上，讓Delphi通過Outlook.Application來發送郵件，也是非常友善的，而且沒有那麼多的限制。

以下是我目前使用的，我把它寫成了個函數，使用的時候調用一下即可。

不過，使用的前提是，你得現在在本地Outlook上配置好一個賬戶。

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1 . SendOutlookMail( const Recipient,Title,Body,Attachment: string ); const olMailItem =  ; var Outlook: OleVariant; vMailItem: variant; begin try Outlook := GetActiveOleObject("Outlook . Application"); except Outlook := CreateOleObject("Outlook . Application"); end ; vMailItem := Outlook . CreateItem(olMailItem); vMailItem . Recipients . Add(Recipient); vMailItem . Subject := Title; vMailItem . Body := Body; if Attachment <>""  then vMailItem . Attachments . Add(Attachment); vMailItem . Send; VarClear(Outlook);