Domino 9 und frühere Versionen > Administration & Userprobleme

persönliche Ordner konvertieren

(1/1)

ofshore:
Hallo,

ich habe trotz Suche nichts gefunden, also hier die Frage, ist es möglich persönliche Ordner ins gemeinsame zu konvertieren oder muß man wirklich die Ordner neuerstellen, die Mails verschieben und danach den Ordner umbenennen und den privaten löschen?

Gruß
           Ofshore

TMC:
Da ich das selber auch brauchte, hab ich mir schnell eine Function geschrieben.

Den Sandbox-Code  hab ich mir angesehen, erscheint mir aber nicht sehr modern (noch nie was von NotesViewEntryCollection gehört etc.), es sind u.a. auch nicht alle Variablen deklariert, kein Errorhandling etc.


--- Code: ---Function ConvertPrivateFolderToPublic(strPrivateViewName As String) As String
   '===========================================================================================
   'Purpose:
   'Converts a private folder to a shared folder.
   '-------------------------------------------------------------------------------------------
   'Arguments:            Description:
   'strPrivateViewName   Name of the private folder you want to convert
      '-------------------------------------------------------------------------------------------
   'Return:
   'String. "Success" if everything was OK, an error message if an error occured.
   '-------------------------------------------------------------------------------------------
   'Revision date:      Programmer:         Changes:
   '02. Jun 2004      Matthias TMC         New
   '===========================================================================================
   On Error Goto ERRORHANDLER
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim folderSource As NotesView
   Dim folderTemp As NotesView
   Dim folderTarget As NotesView
   Dim vcSource As NotesViewEntryCollection
   Dim vcTemp As NotesViewEntryCollection
   
   Set db = session.CurrentDatabase
   Set folderSource = db.GetView(strPrivateViewName)
   '---> some errorhandling
   If folderSource Is Nothing Then
      ConvertPrivateFolderToPublic = "Error: Provided folder does not exist!"
      Exit Function
   End If
   If Not folderSource.isFolder Then
      ConvertPrivateFolderToPublic = "Error: Provided view is not a folder!"
      Exit Function
   End If  
   If Not folderSource.IsPrivate Then
      ConvertPrivateFolderToPublic = "Error: Provided folder is not private!"
      Exit Function
   End If
   '<---
   
   '----> We create a temporary folder
   Call db.EnableFolder( "folderTemporary" )
   Set folderTemp = db.GetView( "folderTemporary" )
   '<----
   '----> Put all source documents in the temp folder
   Set vcSource = folderSource.AllEntries  
   Call vcSource.PutAllInFolder("folderTemporary")  
   '<----
   '----> delete the source folder
   If Not folderSource Is Nothing Then Call folderSource.Remove
   '<----
      '----> We create a new folder
   Call db.EnableFolder( strPrivateViewName )
   Set folderTarget = db.GetView( strPrivateViewName )
   '<----
   '---> Put temp folder documents into the new folder
   Set vcTemp = folderTemp.AllEntries  
   Call vcTemp.PutAllInFolder(strPrivateViewName)  
   '<----
   '----> delete the temp folder
   If Not folderTemp Is Nothing Then Call folderTemp.Remove
   '<----
   ConvertPrivateFolderToPublic = "Success"
   
EXIT_SCRIPT:
   Exit Function
   
ERRORHANDLER:
   ConvertPrivateFolderToPublic = "Error: " & Err & " - " & Error$
   Resume EXIT_SCRIPT
   
End Function
--- Ende Code ---

Kann sein dass ich noch nicht alles berücksichtigt habe hier. Bitte um Feedback wie das Ding läuft.

Jens_1:

--- Zitat von: TMC am 02.06.04 - 21:58:45 ---Da ich das selber auch brauchte, hab ich mir schnell eine Function geschrieben.

[...]

Kann sein dass ich noch nicht alles berücksichtigt habe hier. Bitte um Feedback wie das Ding läuft.

--- Ende Zitat ---

Moin!

Ich habe das Skript mit einem Client 7.0.3 und einer Datenbank mit der DWA7 auf einen Button gelegt und es funktioniert soweit ich das erkennen kann ganz wunderbar  :)

Gruß
 Jens

Navigation

[0] Themen-Index