我想用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來寄,或是有別的方式可以寄信不會被擋掉的方式也可以),謝謝啦..

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

唉,沒人有興趣只好結案了

http://www.138soft.com/htm/AuthorArt/delphiemail1.htm 冷静的思考问题 充满激情的工作

引言: http://www.138soft.com/htm/AuthorArt/delphiemail1.htm 冷静的思考问题 充满激情的工作

真感動結案還有人回....馬上試試...3q..

引言: 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....所以也就無法繼續下去....