title image


Smiley ich habe das kürzlich programmiert...
...Du kannst das ziemlich einfach "im nachhinein" füllen...

ich hoffe, Du weisst zu schätzen, dass ich den Code jetzt hier poste... schliesslich kostet es normalerweise Kohle, wenn ich so was programmiere, und auch wenn der Code jetzt nur wenige Zeilen umfasst, so war doch einiges an Test- Arbeit und vor allem erst mal eine passende Idee nötig, um das umzusetzen...



Hier also der Code...



Dim ws As New NotesUIWorkspace

Dim ok As Variant

Dim ses As New NotesSession

Dim db As NotesDatabase

Dim folderName As String

Set db = ses.CurrentDatabase

ok = ws.Prompt( PROMPT_YESNO, "ACHTUNG" , "Die Aktivierung der Folder- References kann einige Zeit dauern" _

& Chr$( 10 ) & "und wird in dieser Zeit Ihr Lotus Notes blockieren (je nach der Anzahl Ihrer Mails bis zu 10 Minuten oder länger)" _

& Chr$( 10 ) & "Wollen Sie diesen Vorgang jetzt wirklich starten ?" )

If ok 1 Then Exit Sub

Forall nv In db.Views

On Error 4005 Goto PrivateOnFirstUse

'Error 4005 will occur when accessing the "Shared, Private on First use" design element

' stub. The above On Error call causes this element to be skipped

If nv.IsFolder Then

On Error 4005 Goto 0

folderName = nv.Name

Call nv.AllEntries.PutAllInFolder( folderName )

End If

PrivateOnFirstUse:

End Forall





HTH

Tode



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: