如何將HTML MAIL出去? |
尚未結案
|
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
|
syc0121
一般會員 發表:6 回覆:12 積分:3 註冊:2003-01-15 發送簡訊給我 |
寄送郵件可以用 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
|
chris_shieh
高階會員 發表:46 回覆:308 積分:240 註冊:2004-04-26 發送簡訊給我 |
【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
|
liorex
初階會員 發表:19 回覆:60 積分:32 註冊:2002-08-20 發送簡訊給我 |
以下是我大概想一下 的做法用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---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ---------------------- |
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
|
chris_shieh
高階會員 發表:46 回覆:308 積分:240 註冊:2004-04-26 發送簡訊給我 |
|
lukyshu
中階會員 發表:16 回覆:120 積分:93 註冊:2002-04-19 發送簡訊給我 |
小弟這邊有提供一個範例,使用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 SQL2000http://delphi.ktop.com.tw/link.asp?TOPIC_ID=63232 台灣 Delphi 俱樂部 PostgreSQL、FastReport專業討論區 http://www.delphi.club.tw 發表人 - lukyshu 於 2005/01/14 09:22:31
------
台灣 Delphi 俱樂部 PostgreSQL、FastReport專業討論區 http://www.delphi.club.tw |
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |