用indy 寄 HTML+圖片 為何圖片會在 附加檔案及內文區出現? |
缺席
|
joana
一般會員 發表:35 回覆:70 積分:21 註冊:2005-09-02 發送簡訊給我 |
各位大德,我有參考討論區中的indy寄信程式,其中我有用
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59328 的例子,是可以發 html格式郵件 但不曉得為何,收到的郵件卻把圖片顯示在內文區的最下面,連附加檔案也有圖片檔,我的程式碼 如下,發送的html檔如附件,請各位有經驗之大德,幫幫忙! 謝謝! procedure generate_mail; var i: integer; txtpart: Tidtext; htmpart: tidtext; bmppart: TIdAttachment; begin for i:= 0 to memo2.lines.count - 1 do begin html.add(parseline(memo2.Lines.Strings[i])); end; email:= TIdMessage.Create(nil); email.From.Text:= edit4.text; email.Subject := edit1.text; email.ContentType := 'multipart/mixed'; email.Body.Assign(html); txtpart:= TIdText.Create(email.MessageParts); txtpart.ContentType := 'text/plain'; txtpart.Body.Text := '123發憤圖強'; --->在郵件內文為何看不到這幾個字串? htmpart := TIdText.Create(email.MessageParts, html); htmpart.ContentType := 'text/html'; htmpart.ContentTransfer := '8bit'; for i:= 0 to piclist.Count - 1 do begin bmppart:= TIdAttachment.Create(email.MessageParts, piclist.Strings[i]); bmppart.ContentType := 'image/jpeg'; bmppart.ContentDisposition := 'inline'; bmppart.ExtraHeaders.Values['content-id']:= piclist.Strings[i]; bmppart.DisplayName := piclist.Strings[i]; end; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |