全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2543
推到 Plurk!
推到 Facebook!

如何直接傳送郵件???

答題得分者是:artist1002
takdick
一般會員


發表:50
回覆:63
積分:22
註冊:2002-08-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-08-27 10:40:22 IP:203.198.xxx.xxx 未訂閱
我想用idsmtp寫一程序直接發送郵件到對方的郵箱,也就是不通過網絡上的smtp server轉送,而把自己的pc當作smtp直接送達. 我要寄往的郵箱只有固定一個如:me@yahoo.com,能否不必加入DNSresolver這控件,而自己填上主機地址,省卻域名查詢這一步驟. 我的想法不知能否實現? 具體怎麼做,還請指教.
天外來客
初階會員


發表:22
回覆:199
積分:44
註冊:2001-11-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-08-28 19:18:52 IP:210.208.xxx.xxx 未訂閱
1.自己的 PC 要架 SMTP SERVER 2.不能直接連對方SERVER再寄給對方 , 因為這就是所謂的 Mail Relay , 為防止害客 , 很多 mail server 都已將 RELAY 關掉了 3.若計件者跟收件者同 DOMAIN (如計件者也是 YAHOO.COM)就可以把 YAHOO.COM 當自己的 SMTP by bruce0211
takdick
一般會員


發表:50
回覆:63
積分:22
註冊:2002-08-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-08-28 20:08:04 IP:203.198.xxx.xxx 未訂閱
有篇文章介紹Foxmail在其最新的4.0版本有個功能叫'特快郵件專遞',也就是可以不經smtp的轉送,并貼出源碼,只用到TIdDNSResolver、TIdAntiFreeze、TIdSMTP、TIdMessage幾個控件,這又是什麼原理呢??
artist1002
高階會員


發表:2
回覆:155
積分:151
註冊:2002-09-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-09 00:49:36 IP:211.76.xxx.xxx 未訂閱
特快郵件專遞 中的元件用途 TIdDNSResolver 查詢信箱的郵件主機, 也就是向DNS Server 查詢 MX 紀錄 TIdAntiFreeze 因為沒有使用多執行緒, 使用這個元件來避免Indy元件讓程式停止回應 TIdSMTP 寄信的元件 TIdMessage 信件內容的元件 原理 先使用TIdDNSResolver 來查詢信箱的MX紀錄, 如 yahoo.com 可查到MX為mx1.mail.yahoo.com 再把信件內容寫到 TIdMessage裡面 透過TIdSMTP 把 Host 填入之前查到的MX紀錄, 如 mx1.mail.yahoo.com 在使用TIdSMTP將TIdMessage寄出
KFC
一般會員


發表:43
回覆:73
積分:23
註冊:2003-03-27

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-04-15 00:33:01 IP:210.77.xxx.xxx 未訂閱
请问在程序中怎样莸得域服务器的地址?
artist1002
高階會員


發表:2
回覆:155
積分:151
註冊:2002-09-26

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-04-15 15:22:48 IP:211.76.xxx.xxx 未訂閱
引言: 请问在程序中怎样莸得域服务器的地址?
我把我的程式節錄出來給你參考 //使用元件 Indy 9.0.11 //函式名稱 GetMXRecord //用途:向 DNS Server 詢問 MX 紀錄 //使用語言:BCB AnsiString GetMXRecord(AnsiString Query) //回傳MX紀錄,失敗則回傳空字串 { int i; AnsiString MX=""; TIdDNSResolver *IdDNSResolver1; IdDNSResolver1 = new TIdDNSResolver(NULL) IdDNSResolver1->QueryRecords<Active=true; IdDNSResolver1->Resolve(Edit1->Text); IdDNSResolver1->Active=false; } catch (...) { delete IdDNSResolver1; return ""; } for (i=0;iQueryResult->Count;i ) { if (IdDNSResolver1->QueryResult->Items[i]->RecType==qtMX) MX=ynamic_cast(IdDNSResolver1->QueryResult->Items[i])->ExchangeServer); } delete IdDNSResolver1; return MX; }
系統時間:2024-06-26 23:36:28
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!