各位大德,我有參考討論區中的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;

附加檔案：4846534cefc95_96-10~12月_一日陽光行列表.htm