access中sendobject如何送EMAIL給不同人?

Question

如果我有一份資料庫如下:B_BNO姓名E-MAILB_ANOB_CNO借書日到期日N769140林慧n76914@mail1420032M17-Mar-0530-Mar-05N769140林慧n76914@mail1158134M17-Mar-0530-Mar-05N769140林慧n76914@mail1434444M17-Mar-0530-Mar-05N769140林慧n76914@mail1150949M17-Mar-0530-Mar-05N769140林慧n76914@mail980601M17-Mar-0530-Mar-05N769140林慧n76914@mail1186667M17-Mar-0530-Mar-05N769341江瑞n76934@mail1122975M22-Mar-0529-Mar-05N769341江瑞n76934@mail1184268M24-Mar-0531-Mar-05N769341江瑞n76934@mail1248525　01-Mar-0531-Mar-05N769341劉映n76934@mail986667M24-Mar-0531-Mar-05N769341劉映n76934@mail1272782M24-Mar-0531-Mar-05N769341劉映n76934@mail1148202M24-Mar-0531-Mar-05N769341劉映n76934@mail1096996M24-Mar-0531-Mar-05E749050梁建e74905@mail1432647M17-Mar-0531-Mar-05如何用access中sendobject指令以標題為:"訊息通知"送n76914@mail給林慧，內容為:B_BNO姓名E-MAILB_ANOB_CNO借書日到期日N769140林慧n76914@mail1420032M17-Mar-0530-Mar-05N769140林慧n76914@mail1158134M17-Mar-0530-Mar-05N769140林慧n76914@mail1434444M17-Mar-0530-Mar-05N769140林慧n76914@mail1150949M17-Mar-0530-Mar-05N769140林慧n76914@mail980601M17-Mar-0530-Mar-05N769140林慧n76914@mail1186667M17-Mar-0530-Mar-05送n76934@mail給江瑞，內容為:B_BNO姓名E-MAILB_ANOB_CNO借書日到期日N769341江瑞n76934@mail1122975M22-Mar-0529-Mar-05N769341江瑞n76934@mail1184268M24-Mar-0531-Mar-05N769341江瑞n76934@mail1248525　1-Mar-0531-Mar-05送n76934@mail給劉映，內容為: B_BNO姓名E-MAILB_ANOB_CNO借書日到期日N769341劉映n76934@mail986667M24-Mar-0531-Mar-05N769341劉映n76934@mail1272782M24-Mar-0531-Mar-05N769341劉映n76934@mail1148202M24-Mar-0531-Mar-05N769341劉映n76934@mail1096996M24-Mar-0531-Mar-05....共有N人均為不同的內容! 目前我有3個瓶頸:1.不知如何自動傳送?2.不知是否需要做成多份個人的資料。3.要如何自動做成多份個人的資料，因為每天的資料是不一樣的。

這個問題是我工作需要，每天發送E-MAIL提醒讀者書到期，我由ACCESS將那個DBASE寫的借書系統檔案整理成這種資料表。但是還要一筆一筆貼到outlook送信，每天要晚半小時到一小時才能下班，所以評估起來是值得做!
資料庫的 talbe(A) 內的 B_BNO 讀出來，另建一個 table(B) 暫存 B_BNO ，可以設B_BNO的群組，做個產生資料表查詢，就得到了!但是在 迴圈(A) 裡 讀出 B_BNO然後在 把有關所有 跟 B_BNO 有關的資料都搜索出來利用副程式
然後把相關的值 帶進副程式做比對不知是要放在那裡?巨集或模組?...其他。需要用到那些指令?謝謝!

Answer 1

抱歉，不小心在另外一題把這一題也答完了。我在這邊再補強一下好了。老牡羊已經有三年沒有寫過大型的ACCESS案子了，因此腦袋轉不太過來，不小心就花掉6個小時 > <~~正在想明天要怎麼去上班~~假設你的資料表是 Table_A要使用sendobject的話：你必須要自已建一個"email表單"，它就是你要傳送出去的表單內容。只要把你要的欄位建進去就可以了。=========================================================執行下面程式，會自動發出email Public Sub SendEmail()    Dim rstName As Recordset '用來放人名及email        Set rstName = CurrentDb.OpenRecordset( _      "select distinct 姓名,[e-mail] from Table_A")         DoCmd.OpenForm "email表單", acFormDS '準備好表單底稿    Do While Not rstName.EOF '迴圈對不同的人各做一次        Forms("email表單").RecordSource = _          "select * from table_a where 姓名='" & _          rstName!姓名 & "'"          Forms("email表單").Form.Requery '現在表單只包含個人的資料了        DoCmd.SendObject acSendForm, "email表單", _          acFormatHTML, rstName![e-mail], , , _          "這是主旨", "這是內容", False  '發!!!        rstName.MoveNext    Loop    DoCmd.Close acForm, "email表單"End Sub

Answer 2

怎麼覺得這好像是你的作業@@
看你類似問題問好幾次@@

2005-04-12 12:33:26 補充：
1.
先寫一個 你這個資料庫的 talbe(A) 做成一個迴圈(A)
重點是把你的 B_BNO 讀出來
在另建一個 table(B) 暫存 B_BNO 到時要做比對


在 迴圈(A) 裡 因為你會讀出 B_BNO
然後在 把有關所有 跟 B_BNO 有關的資料
都搜索出來

利用副程式
(自動發信的語法~~請先自動架設好MAIL SERVER等相關工具)
然後把相關的值 帶進副程式

這樣 就送出一封信了


因為你寫迴圈

所以他會在傳到 迴圈最上端

記得在加上判斷 B_BNO 不是空值在執行以下程式碼

就是把 B_BNO 值去搜索 table(B) 是否已有此值
如果有就跳過換一下個 B_BNO 值
逐一做比對


(這個寫起來不算短)
我想這是你的作業
不要直接告訴你怎麼寫比較好@@

你練習寫寫看吧
不會可在問我
我幫的上我會的我們交流流



2.要看你希望做到什麼樣的效果
在評估有沒有必要做
一般是沒人這樣做的


3.你自己在寫一個時間變數
時間到讓他自動執行
如果 1. 部分你也好
你只是 時間到 在CALL 1. 寫好的 程式碼也是可以



忠心建議
多用副程式^^"~~~方便管理