用httpmail.asp寄信 |
缺席
|
shinhrn
中階會員 發表:54 回覆:165 積分:83 註冊:2002-06-05 發送簡訊給我 |
我想用delphi寫一支用
http://services.msn.com/svcs/hotmail/httpmail.asp
來寄信的程式 可是我只找到一支c的程式
http://www.devarticles.com/c/a/C-Sharp/Hotmail-using-C-sharp-A-HTTPMail-client-under-.NET/ 其中的 SendMail 有用到 xmlHttp的元件,不知道delphi要用拿個元件?
(ps:如果有人可以把它轉成delphi就更好了!!!)
(其實本來我是用smtp寄信的,可是我發現在網咖的機器上有isp好像把smtp擋掉ㄝ.因為我用smtp主機上的帳號自己寄自己不行,所以我才想用web來寄,或是有別的方式可以寄信不會被擋掉的方式也可以),謝謝啦..
|
shinhrn
中階會員 發表:54 回覆:165 積分:83 註冊:2002-06-05 發送簡訊給我 |
http://www.delphipages.com/news/detaildocs.cfm?ID=89
依照以上程式,試驗 裝了 Microsoft, XML (version 3.0), uses MSXML2_TLB
在d7.0 執行到send時就會show 存取被拒
有人可以幫忙一下嗎???? procedure TForm4.Button2Click(Sender: TObject);
var quote,timeStamp,postBody,fromaddr,toaddr,FHotmailURL,FQUERYFOLDERS,FGETFOLDERINFO:string;
OxmlHttp:TXMLHTTP;
begin
FHotmailURL := 'http://services.msn.com/svcs/hotmail/httpmail.asp'; FQUERYFOLDERS := '.....'; FGETFOLDERINFO := '...'; quote := chr(22); timeStamp := datetimetostr(now); fromaddr:='xx@hotmail.com'; toaddr:=fromaddr; postBody :=''; postBody := 'MAIL FROM:<' fromaddr '>#10#13'; postBody := 'RCPT TO:<' toaddr '>#10#13'; postBody := '#10#13'; postBody := 'From: <' fromaddr '>#10#13'; postBody := 'To: <' toaddr '>#10#13'; postBody := 'Subject: ' 'subject' '#10#13'; postBody := 'Date: ' timeStamp ' -0000'; postBody := '#10#13'; postBody := 'body'; OxmlHttp:=TXMLHTTP.Create(Self); try // OxmlHttp.open('PROPFIND', HotmailURL,false, 'username','password'); // 會 show ole error 800c0008 // OxmlHttp.open('get', HotmailURL,false, 'username','password'); // 會show 存取被拒 OxmlHttp.open('post', HotmailURL,false, 'username','password'); // 會show 存取被拒 OxmlHttp.setRequestHeader('PROPFIND', FQUERYFOLDERS); OxmlHttp.setRequestHeader('User-Agent', 'Outlook Express/5.0 (MSIE 5.0; Windows 98; DigExt; MSNIA)'); OxmlHttp.send; finally OxmlHttp.Free; end; end;發表人 - shinhrn 於 2004/03/18 10:38:49 發表人 - shinhrn 於 2004/03/18 11:47:42 發表人 - shinhrn 於 2004/03/18 11:59:27 |
shinhrn
中階會員 發表:54 回覆:165 積分:83 註冊:2002-06-05 發送簡訊給我 |
|
lovejingtao
一般會員 發表:10 回覆:33 積分:13 註冊:2003-04-16 發送簡訊給我 |
|
shinhrn
中階會員 發表:54 回覆:165 積分:83 註冊:2002-06-05 發送簡訊給我 |
|
shinhrn
中階會員 發表:54 回覆:165 積分:83 註冊:2002-06-05 發送簡訊給我 |
引言: http://www.138soft.com/htm/AuthorArt/delphiemail1.htm 冷静的思考问题 充满激情的工作lovejingtao大大我試完了..... http://services.msn.com/svcs/hotmail/httpmail.asp好像用了m$自己的遊戲規則所以 FTResult := HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_LENGTH,Buf, dwBufLen, dwIndex); 就只會傳回false....所以也就無法繼續下去.... |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |