如題，如何要將以個現有的HTML檔案，當成MAIL的內容發送出去呢？（不適當成附檔喔），有辦法做到嗎？ 例如，於有一個檔案 c:\a.html 要如何於執行中或DOS模式上，鍵入指令讓預設的郵件軟體將該檔開啟，讓使用者填入收件人就可以發送呢？？ ======================== 使用DELPHI7 MS SQL2000

寄送郵件可以用 CDONTS.NewMail 來做. 提供一個Sample如下,請參考    var     CDO:OleVariant;     BodyFormat,MailFormat,Importance:Integer; begin     try         BodyFormat:=0;  //0:HTML;1:Text         MailFormat:=0;  //0:MIME;1:Text         Importance:=1;  //0:Low;1:Normail;2:High            CDO:=CreateOleObject('CDONTS.NewMail');         CDO.BodyFormat:=BodyFormat;         CDO.MailFormat:=MailFormat;         CDO.Importance:=Importance;         CDO.From:="arsene"; CDO.To:="Name1,Name2,..."; CDO.CC:=""; CDO.BCC:=""; CDO.Subject:="測試信"; CDO.Body:="可用Memo.Lines.LoadFromFile讀取一個HTML"; CDO.Send; except on E:Exception do begin ShowMessage(E.Message); end; end; VarClear(CDO); end;

【Delphi】【發表】發html mail  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59185 如何開啟預設的收發信件軟體,並填入附加檔案?? http://delphi.ktop.com.tw/forum.asp?method2=mygood&forum_id=69 【C#Net】【發表】寄信程式 .NET版 http://delphi.ktop.com.tw/topic.php?topic_id=54041 發表人 - chris_shieh 於 2004/12/30 15:46:25

以下是我大概想一下 的做法用Indy作的可以試試看  

 
------------------------------------------
procedure MakeIDMessage(htmls:string): TIdMessage ;
  Result:= TIdMessage.Create(self);
  with TIdText.Create(Result.MessageParts, nil) do
  begin
    ContentType :='text/html' ;
    Body.Text := htmls; //Strings load from HTML file
    ContentTransfer :='quoted-printable';
  end;
--------------------------------------------
mIdMessage :=MakeIDMessage(htmls);//htmls 是用Tstringlist load from HTML File
mIdMessage.From.Address := XXX;//寄件來源
mIdMessage.Subject := XXX ;   //mail 主旨          mIdMessage.ContentType := 'multipart/related';  //mail 格式
mIdMessage.Recipients.EMailAddresses := XXX ;  //目的mail box
 mSMTP.Send(mIdMessage) ;//mSMTP 是TSMTP

---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

多謝各位大哥的回覆，其實小弟只是要開啟預設的郵件軟體，並將程式轉出的HTML直接當成MAIL的內容，讓使用者自行填收件者和主旨等資料，不之是否可以做到呢？？ ======================== 使用DELPHI7 MS SQL2000

補充一點 開啟預設的收發信件軟體, ShellExecute(0, nil,'mailto:test@ms5.hinet.net?Subject=Hello&body=How are you', nil , nil,SW_SHOW); mailto Body要多行以 分隔開來 但是無法放html

小弟這邊有提供一個範例，使用Indy的元件，不但可以將HTML直接 當成mail的內容，還可以包含圖片聲音等等，另外，也可以由程式 直接填入收件者及主旨等資料，不必由使用者再填，當然，範例中 也還有可以不用透過預設的郵件軟體就可以直接送出喔！  請笑納！ http://www.delphi.club.tw/viewtopic.php?t=692 喔！ 對了！ 您還欠我兩個主題還沒回覆喔！ 如果覺得回答不滿意，也要說喔！ 不知道這提已經結案了，得分者從缺，不知道還能不能再給分啊！ http://delphi.ktop.com.tw/link.asp?TOPIC_ID=63232 http://delphi.ktop.com.tw/link.asp?TOPIC_ID=62498

引言: 多謝各位大哥的回覆，其實小弟只是要開啟預設的郵件軟體，並將程式轉出的HTML直接當成MAIL的內容，讓使用者自行填收件者和主旨等資料，不之是否可以做到呢？？ ======================== 使用DELPHI7 MS SQL2000

http://delphi.ktop.com.tw/link.asp?TOPIC_ID=63232 台灣 Delphi 俱樂部
PostgreSQL、FastReport專業討論區
http://www.delphi.club.tw

發表人 - lukyshu 於 2005/01/14 09:22:31

多謝 lukyshu大哥的幫忙，看來分數不給是不行了喔！！ 以上的方法雖然不是我要的，因為我是想將報價單之類報表可以在預覽後不用列印而直接MAIL出去，此時開啟預設的郵件軟體然後將報表當成附件，使用者才可在編輯一些備註是項，應該會方便一點，且使用者還可以挑選發信的帳號，所以雖然各位大個非常踴躍的幫助，但是我的萬題還是沒有解決，小弟會在測試看看！謝謝！！ ======================== 使用DELPHI7 MS SQL2000