請問各位大大~ 因為有些mail server有AUTH的功能 小弟使用NMSMTP皆無法傳送,但如果碰到mail server不需要驗證 PASSWORD皆可正常使用 因為為了解決這個問題 小弟現在想要用bcb的TidMessage TidSMTP來傳送郵件~~ 不過~~參考了線上大大門的一些提供後 自己一直試還是都不行 請各位大大能幫我看看嘛?謝謝
我已經參考了 BCB6中Indy9發送郵件 http://delphi.ktop.com.tw/board.php?cid=168&fid=920&tid=26417 [VCL Howto 投稿] Indy 9.0.10 TIdSMTP & TIdMessage http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=20961 如何寄e-mail可以不會讓程式被咬住 http://delphi.ktop.com.tw/board.php?cid=168&fid=913&tid=58601
ps...請問 Indy E_mail小精靈程式部分 http://delphi.ktop.com.tw/board.php?cid=169&fid=943&tid=21398 此程式有人下載過嘛?可以寄給我嘛?謝謝~因為目前似乎不能下載了
我使用到1個button1,5個Edit,1個TidMessage,1個TidSMTP
(附上錯誤的圖~)
void __fastcall TEdit1::Button1Click(TObject *Sender) { IdSMTP1->Host=Edit1->Text; IdSMTP1->Port=25; //IdSMTP1->AuthenticationType=atLogin; IdSMTP1->AuthenticationType=atNone;
IdSMTP1->Username=Edit2->Text; IdSMTP1->Password=Edit3->Text;
IdMessage1->Clear(); IdMessage1->From->Address=Edit4->Text; IdMessage1->From->Name="test";
//正本收信者 IdMessage1->Recipients->Clear(); TIdEMailAddressItem *NewItem=IdMessage1->Recipients->Add(); NewItem->Address=Edit5->Text;
IdMessage1->Subject="寄信測試"; //設定寄信主旨 IdMessage1->Body->Add("Line1");
IdMessage1->UseNowForDate=true; IdMessage1->CharSet="big5";
//要傳送的檔案名稱(附件) IdMessage1->MessageParts->Clear(); IdMessage1->MessageParts->Add(); //new TIdAttachment(IdMessage1->MessageParts,附加檔案路徑名稱);
IdSMTP1->Connect(1); IdSMTP1->Send(IdMessage1); IdSMTP1->Disconnect(); }
|