Indy發信利用Idmessage如何 使收信那一端 不顯示 寄件人address |
|
答題得分者是：pcboy
|
|
MidasFan
一般會員   發表：41 回覆：22 積分：12 註冊：2004-06-03 發送簡訊給我 |
各位先進好：
我利用Indy的元件 IdSMTP及IdMessage去發Mail 因為是大批發送，所以在收件人收信後，會在她們 的郵件上看到其他收件人的Address，請問如何不 顯示，因為我有去參考一般大型企業他們在收件人 那一欄不會顯示其他的寄件人，而是顯示undisclosee-recioients 這一個字串，請問要怎麼做到、要去哪設定呢..謝謝喔 |
|
pcboy
版主   發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
|
|
MidasFan
一般會員 發表：41 回覆：22 積分：12 註冊：2004-06-03 發送簡訊給我 |
|
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
"不顯示 寄件人address" <== 您的標題
好久前寫的程式, 擷取片段給您 <textarea class="delphi" rows="10" cols="60" name="code"> // 寄出掃描結果 IdSMTP1.Host := '127.0.0.1'; // 請在本機架設 Mail Server, http://www.argosoft.com/ 有免費的 IdSMTP1.Username := 'epaper'; // 請在 mail Server 上建立此帳號 IdMessage1.From.Name := 'XXX系統'; IdMessage1.From.Address := 'xxx@ms1.url.com.tw'; // 處理收件者名單 s:=''; IdMessage1.Recipients.Clear; for j := 0 to Memo4.Lines.Count-1 do begin with IdMessage1.Recipients.Add do begin Name := Memo4.Lines[j]; Address := Memo4.Lines[j]; end; end; s:=IdMessage1.Recipients.EmailAddresses; Memo5.Lines.Add('寄通知信給 : ' s); IdMessage1.Subject := '通知信 ' DateToStr(Date) ' ' TimeToStr(Time); IdMessage1.Body.Clear; IdMessage1.Body := Memo6.Lines; try if not IdSMTP1.Connected then IdSMTP1.Connect; IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect; except MessageDlg('寄信失敗 (請架設 Local Mail Server 和帳號 epaper)', mtWarning, [mbOK], 0) end; </textarea>
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
MidasFan
一般會員 發表：41 回覆：22 積分：12 註冊：2004-06-03 發送簡訊給我 |
發表時間：2007-04-25 15:51:03
IP:61.222.xxx.xxx 訂閱
附加檔案：
系統時間：2024-11-23 6:44:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |