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
