보낸 날짜 별 Lotus Notes에서 날짜별로 삭제하기위한 스크립트

누구든지 지정된 날짜별로 보낸보기에서 삭제하기 위해 아래 스크립트를 수정하는 방법을 알고 있습니다. 다음은 iBM 표준 스크립트이며 날짜가 아닌 날짜별로 삭제되도록 수정해야합니다. 기본적으로 지정된 날짜 전에 보낸 모든 메일을 삭제하는 스크립트가 필요합니다. 도움을 주시면 감사하겠습니다.

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument
    Dim nextdoc As NotesDocument
    Dim lastmodifieddate As New NotesDateTime("")
    Dim modifieddate As Variant
    Dim days As Integer

    Set db = s.CurrentDatabase
    Set view = db.GetView("$Sent")
    Set doc = view.GetFirstDocument

    While Not ( doc Is Nothing )
        Set nextdoc = view.getnextdocument(doc)
        modifieddate=Evaluate("@Modified", doc)
        lastmodifieddate.lslocaltime= CDat(modifieddate(0))
        days = CInt( Date - lastmodifieddate.lslocaltime )
        'Change the number of days from 30 below as desired
        If days > 30 Then 
            Call doc.Remove(True)
            'In Notes 6.0 and later you can use the below instead of the above 
            'if you want to hard delete the document
            'Call doc.RemovePermanently(True)
        End If 
        Set doc = nextdoc 
    Wend 
End Sub

lotus-notes sent-items

— 티에리
소스

이런 식으로 작동해야합니다

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument
    Dim nextdoc As NotesDocument
    Dim lastmodifieddate As New NotesDateTime("")
    Dim modifieddate As Variant
    Dim days As Integer

    Dim checkdate as Variant

    Set db = s.CurrentDatabase
    Set view = db.GetView("$Sent")
    Set doc = view.GetFirstDocument

    checkdate = DateNumber(2018, 02, 25)

    While Not ( doc Is Nothing )
        Set nextdoc = view.getnextdocument(doc)
        modifieddate=Evaluate("@Modified", doc)

        If  modifieddate < checkdate Then 
            Call doc.Remove(True)
            'In Notes 6.0 and later you can use the below instead of the above 
            'if you want to hard delete the document
            'Call doc.RemovePermanently(True)
        End If 
        Set doc = nextdoc 
    Wend 
End Sub

— 버디
소스