Script para excluir do modo de exibição Enviado Lotus Notes por data

0

Alguém sabe como modificar o script abaixo para excluir da exibição enviada pela data especificada. Abaixo está o script padrão do iBM, que precisa ser modificado para excluir por data e não por dias. Basicamente, eu preciso de um script que apague todos os e-mails enviados antes de uma data específica. Qualquer ajuda seria apreciada.

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
    
por Thierry 07.06.2017 / 16:09

1 resposta

0

algo como isso deve funcionar

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
    
por 27.02.2018 / 15:57