有關NMSMTP元件的發送問題!? |
|
缺席
|
|
新手上路
一般會員   發表：17 回覆：7 積分：4 註冊：2002-11-19 發送簡訊給我 |
|
|
terrychen
尊榮會員  發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
|
|
新手上路
一般會員 發表：17 回覆：7 積分：4 註冊：2002-11-19 發送簡訊給我 |
Sorry!程式碼如下:
procedure TSendMail.Button3Click(Sender: TObject);
var i:integer;
begin
//SMTP1.Connect;
query1.close;
if (not query1.prepared) then query1.prepare;
query1.open;
query1.first;
while (not query1.eof) do
begin
query2.close;
if (not query2.prepared) then query2.prepare;
query2.parambyname('temp1').asstring:=query1.FieldValues['billtokey'];
query2.open;
if query2.RecordCount>0
then
begin
SMTP1.Connect;
query2.first;
while (not query2.eof) do
begin
list1.Items.add(query2.FieldValues['email']);
query2.next;
end;
query3.close;
if (not query3.prepared) then query3.prepare;
query3.parambyname('temp1').asstring:=query1.FieldValues['billtokey'];
query3.open;
query3.first;
while (not query3.eof) do
begin
memo1.Lines.Add(query3.FieldValues['externorderkey'] ' ' datetostr(query3.FieldValues['adddate']) ' ' query3.FieldValues['billtokey'] ' ' query3.FieldValues['c_company'] ' ' query3.FieldValues['shipmethoddescr'] ' ' '已確認');
query3.next;
end;
//發送該部門單據mail
smtp1.PostMessage.Body.Clear;
smtp1.PostMessage.Body.Add('敬啟者:');
smtp1.PostMessage.Body.Add('單據一覽表:');
smtp1.PostMessage.Body.Add('');
smtp1.PostMessage.Body.Add('單據號碼 單據日期 所屬部門 客戶名稱 配送方式 單據狀態');
FOR I:=0 TO list1.ItemS.Count-1 DO
begin
smtp1.PostMessage.ToAddress.Add(list1.Items[i]);
end;
smtp1.PostMessage.Body.Add(memo1.lines.text);
smtp1.PostMessage.Body.Add('資料來源 );
smtp1.PostMessage.Body.Add('製作');
smtp1.PostMessage.Body.Add('若有任何問題,請與窗口聯繫!');
smtp1.PostMessage.Body.Add('#615);
smtp1.SendMail;
smtp1.PostMessage.ToAddress.Clear;
list1.Clear;
memo1.Clear;
//發送完成
smtp1.Disconnect;
query1.next;
end
else
begin
list1.Clear;
memo1.Clear;
query1.next;
end;
end;
//smtp1.Disconnect;
showmessage('郵件傳送完畢!');
query1.close;
query2.close;
query3.close;
//sendmail.close;
end; 發表人 - 新手上路 於 2004/02/25 16:13:22
|
發表時間：2004-02-25 14:39:12
IP:211.23.xxx.xxx 未訂閱
系統時間：2024-05-15 12:57:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |