งงนิดหน่อยนะค่ะ ไม่รู้ว่าทำถูกหรือเปล่า เลยมาลอง step ง่ายๆ
1. สร้าง ฟอร์มมาหนึ่งฟอร์ม เพื่อรับค่า
[img]http://www.9notes.net/download.nsf/0/FCC681A28FC976F7472573EB001B0E5D/$file/1.GIF[/img]
ฟอร์มนี้ ชื่อ search ถูกไหมค่ะ แล้วก็เอาค่าต่างๆมาใส่ไว้ในช่องสี่เหลี่ยมด้านล่าง
[img]http://www.9notes.net/download.nsf/0/8C0B1D46663BC4DB472573EB001B16A7/$file/1_1.GIF[/img]
ใส่ในสองอันนี้ ถูกไหมค่ะ
[img]http://www.9notes.net/download.nsf/0/76F600EBAD7F2C2C472573EB001B18D6/$file/1_2.GIF[/img]
ตรง QueryClose ให้ใส่ค่า @Environment("EnvSubject"; Subject)
ตรง Initialize ใส่โดตามที่พี่สอน
.....
Dbname = PathName & "ชื่อฐานข้อมูล.nsf" ใส่ชื่อฐานข้อมูลที่เราจะหาใช่ไหมค่ะ
...
Flag = Workspace.DialogBox ( "Search", True, True, False, True, True, False, "ส่งเมลล์" ) ชื่อ ฟอร์มอันนี้ก็ต้องตรงกับที่สร้างอันแรกใช่ไหมค่ะ search
...
Subject = Cstr(Session.GetEnvironmentString("EnvSubject")) นี่คือรับค่ามากจาก Dialogue
...
ตรงนี้ต้องเปลี่ยน ตามชื่อ Form ไหมค่ะ
SearchFormula$ = "Form = ""FormName""" + "&" + TmpSubject$
'SearchFormula$ = "Form = ""Search""" + "&" + TmpSubject$
...
แล้วค่านี้ ใช่ไม่ได้อ่ะค่ะ ติดเออเรอ
For i = 1 To Collection.Count
Set doc = db.GetNthDocument(i) ' ค่านี้ติดเออเรอ
Call doc.PutInFolder( "FolderTemp" )
Next
"FolderTemp" อันนี้จะขึ้นมาให้อัตโนมัติหรอค่ะ
|