要寫自動發信程式用那一個元件比較好用 |
答題得分者是:christie
|
kaisheng
一般會員 發表:26 回覆:47 積分:14 註冊:2003-11-17 發送簡訊給我 |
|
kaisheng
一般會員 發表:26 回覆:47 積分:14 註冊:2003-11-17 發送簡訊給我 |
感謝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 |
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
|
artist1002
高階會員 發表:2 回覆:155 積分:151 註冊:2002-09-26 發送簡訊給我 |
修改 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不熟, 如果語法有誤請見諒 |
kaisheng
一般會員 發表:26 回覆:47 積分:14 註冊:2003-11-17 發送簡訊給我 |
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
//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? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |