Hallo liebe Gemeinde,
ich möchte gern aus "AllDocuments" alles Mails rausfiltern ab dem 01.01.2015 und dann in einen bestimmten Ordner verschieben ... nur habe ich gerade keine Vorstellung :-/
Habt ihr Hinweise bitte
Quellcode:
Option Public
Option Declare
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim subject As String
Set db = session.CurrentDatabase
Set view = db.Getview("($All)")
Set doc = view.Getfirstdocument()
While Not (doc Is Nothing)
If Not doc.GetFirstItem("Subject") Is Nothing Then
subject = doc.GetItemValue("Subject")(0)
If InStr(subject,"[FR") Then
End If
End If
Set doc = view.GetNextDocument(doc)
Wend
End Sub