Domino怎么读取自己的邮件

Domino如何读取自己的邮件
需求操作是，点击一个按钮，然后读取出自己12月份的所有邮件 放到一个视图里面去！
请问，这个操作用lotus script如何写呢，涉及到哪些domino类，用到它们的哪些对象。
如果有些代码更好了！ 谢谢各位
------解决方案--------------------
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim folder As NotesView
Dim dc As NotesDocumentCollection
Dim strSearchFormula As String
Dim strFolder As String

strFolder="Current Month Mail"
strSearchFormula={ (PostedDate != "" & $MessageType = "" & IsMailStationery != 1 & (Form = "Memo" 
------解决方案--------------------
 Form = "Reply" 
------解决方案--------------------
 Form = "" 
------解决方案--------------------
 Form = "NonDelivery Report" 
------解决方案--------------------
 Form = "Bookmark") )  &  @Month(@If(DeliveredDate != ""; DeliveredDate; PostedDate != ""; PostedDate; @Created) )=@Month(@Now)}

Set db = session.CurrentDatabase
Set dc=db.Search(strSearchFormula,Nothing,0)
If dc.Count>0 Then
Call dc.PutAllInFolder(strFolder)
End If


End Sub
------解决方案--------------------
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim folder As NotesView
Dim dc As NotesDocumentCollection
Dim strSearchFormula As String
Dim strFolder As String

strFolder="Current Month Mail"
strSearchFormula={ (PostedDate != "" & $MessageType = "" & IsMailStationery != 1 & (Form = "Memo" 
------解决方案--------------------
 Form = "Reply" 
------解决方案--------------------
 Form = "" 
------解决方案--------------------
 Form = "NonDelivery Report" 
------解决方案--------------------
 Form = "Bookmark") )  &  @Month(@If(DeliveredDate != ""; DeliveredDate; PostedDate != ""; PostedDate; @Created) )=@Month(@Now)}

Set db = session.CurrentDatabase
Set dc=db.Search(strSearchFormula,Nothing,0)
If dc.Count>0 Then
Call dc.PutAllInFolder(strFolder)
End If


End Sub