Create Notes Folder via VBA

[ingrf]

Hallo,
Dieses Problem wurde schon mal gestellt aber es wurde damals keine Lösung gegeben,
ich habe das gleiche Problem weiß vielleicht jetzt einer eine Lösung


ich erstelle einen Folder via Visual Basic (VBA), -in meiner Notes DB. Der Folder ist aber erst nach Schließen und Wieder-Öffnen der DB sichtbar.
Wie kann das per Code tun ?

Code:

Sub mkLNOrdner()
   Const ord = "Test"
   Set session = GetObject("", "Notes.NotesSession")
   If session Is Nothing Then Set session = CreateObject("Notes.NotesSession")
   Set LNdb = session.GETDATABASE("", "")
   If LNdb.ISOPEN = False Then LNdb.OPENMAIL
   Set LNdoc = LNdb.CREATEDOCUMENT
   With LNdoc
       Call .PUTINFOLDER(ord)
       Call .Save(True, True)
   End With
End Sub

[just.do.it]

Hallo,

wäre das denn anders, wenn du den Folder per zweitem Notes-Client erstellst? Also mit einem Client schaust du auf die DB während in einem anderen Client der Folder hinzugefügt wird?

Gruß
Dirk