delphi有一個idsmtp和和idsmtpServer不知要用那一個? 我的需求是:收件人的MAILADDRESS都已存在資料庫中 每一天都要發信給其中某幾個人, 我個公司有架一台NOTES的MAILSERVER 是要透過這一個SERVER發信嗎 新竹的小凱

------
Number One

感謝terrychen的提供的程式碼 以的問題有了初步的解答, 要用一個idsmtp和一個idmessage idsmtp是幫我們連接MAILSERVER和發信發MAILSERVER的物件 idmessage則是幫我們 1.寄信人的位址 2.收信人的位址 3.主旨 procedure TInfoback.Sendmail; Var SADir,MDir,EDir,SBDir,SIDir:String; begin SADir:= Infilename '/Sale/SA' Edit4.text '.DTG'; if FileExists(SADir) then begin TIdAttachment.Create(IdMsgSend.MessageParts, SADir); //欲附之加檔案 MDir:= Infilename '/Member/M' Edit4.text '.DTG'; if FileExists(MDir) then TIdAttachment.Create(IdMsgSend.MessageParts, MDir); EDir:= Infilename '/Employee/E' Edit4.text '.DTG'; if FileExists(EDir) then TIdAttachment.Create(IdMsgSend.MessageParts, EDir); SBDir:= Infilename '/Saleback/SB' Edit4.text '.DTG'; if FileExists(SBDir) then TIdAttachment.Create(IdMsgSend.MessageParts, SBDir); SIDir:= Infilename '/SaleInfo/SI' Edit4.text '.DTG'; if FileExists(SIDir) then TIdAttachment.Create(IdMsgSend.MessageParts, SIDir); //=========== with IdMsgSend do begin From.Text := 'kaisheng_chang@pchome.com.tw'; Recipients.EMailAddresses := Edit3.Text; { To: header } Subject := Edit2.Text; { Subject: header } end; {authentication settings} SMTP.AuthenticationType := atLogin; SMTP.UserID := Trim(Edit7.Text); //帳號 SMTP.Password := Trim(Edit8.Text); //密碼 {General setup} SMTP.Host := 'mail.tiw.com.tw'; SMTP.Port := 25; {now we send the message} SMTP.Connect; try SMTP.Send(IdMsgSend); Showmessage('寄件成功'); finally SMTP.Disconnect; end; end else Showmessage('本日無銷售資料'); end; 新竹的小凱

------
Number One

您好： 這有ㄍ缺點就是所附加的檔案 檔案名稱會被串上『檔案的路徑』 這我也不知道如何解決，希望站上的高手能指點

修改 TIdAttachment.FileName 當你使用 TIdAttachment.Create來加入檔案的時候 傳入的第二個參數(也就是檔案),會自動填入TIdAttachment.FileName 也就是出現的檔案名稱

SADir:= Infilename '/Sale/SA' Edit4.text '.DTG';
aAttachment = TIdAttachment.Create(IdMsgSend.MessageParts, SADir);
aAttachment.FileName = Edit4.text '.DTG'

這樣就可以改檔案名稱了 ps. 我對Delphi不熟, 如果語法有誤請見諒

有誰可以舉一個發Emil我需要能attach File?

------
Number One

//Drop a IdSMTP, a IdMessage 
//example code:
procedure TForm1.Button1Click(Sender: TObject);
begin
//SMTP server 認證的方式
//IdSMTP1.AuthenticationType := atNone; //不需認證方式
IDSMTP1.AuthenticationType := atLogin; {Simple Login}
IdSMTP1.UserId := 'christie'; //認證帳號
IdSMTP1.Password := 'xxxxxx'; //認證密碼
IdSMTP1.Host := 'XXX03'; //送信主機 XXX03
IdSMTP1.Port := 25; //送信主機PORT
IdSMTP1.Connect; //網路連結smtp主機
try
IdSMTP1.Authenticate;
ShowMessage('login OK'); //顯示成功
IdSMTP1.Disconnect;
except
on e : exception do //例外處理的
begin
ShowMessage( 'login error' ); //錯誤訊息顯示
IdSMTP1.Disconnect; //關閉網路連結
end;
end;
with IdMessage1 do //Mail內容
begin
Clear; // 清除前一次產生的 body & headerm, 以免第二次按時重複
Body.Add(' Restart'); //內容1
Body.Add(' OK'); //內容2
Body.Add(' ! ' datetimetostr(now)); //內容3
From.Text := 'christie@xxx.com.tw'; //寄件者(的Mail) vrSender

Recipients.EMailAddresses := 'mary.ya@xxx.net';
TIdAttachment.Create(MessageParts, 'w:\patholo\data\tfras400\1004.tfd');
Subject :='Mail_test'; //信件標題
end;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
caption:='msg_send_ok';
end;

===================引 用 kaisheng 文 章===================
有誰可以舉一個發Emil我需要能attach File?

------
What do we live for if not to make life less difficult for each other?