Mailablage in zentraler Datenbank

    Nein, aber umgekehrt:


    Du hast einen Formelagenten, in dem du die Ordnerauswahl vornimmst, dann schreibst du den gewählten Ordner weg (z.B. per @Environment) und rufst den Script Agenten auf, der den gespeicherten Wert wieder ausliest und den Rest macht

    Hi taurec


    Vielen Dank für deine Hilfe. Du wirst es nicht glauben, aber ich hab's pünktlich vor dem Wochenende geschafft, dass die ganze Sache genau so läuft, wie ich das mir vorgestellt habe (ausser dem Schönheitsfehler, dass die Ordner im Auswahl-Dialog alle aufgeklappt sind).


    Zuerst wird ein Formel-Befehl aufgerufen, der die Ordnerauswahl einer Umgebungsvariablen weitergibt:


    *******************
    [color=0033FF]@Environment("Ordner";@PickList([Folders];"omg-srv-01":"mail/Objekte.nsf"));
    @Command([ToolsRunMacro];"Mails archivieren")[/color]
    ******************


    Mit dem letzten Befehl wird der Agent gestartet, der die Mails in die zentrale Datenbank kopiert und danach aus der aktuellen Ansicht löscht:


    *******************
    [color=0000FF]Sub Initialize
    Dim S As New NotesSession
    Dim DB As NotesDatabase
    Dim Doc As NotesDocument
    Dim col As NotesDocumentCollection
    Dim strArchivDB As String
    Dim strArchivPfad As String
    Dim DestinationDoc As NotesDocument
    Dim DestinationFolder As String
    DestinationFolder = S.GetEnvironmentString( "Ordner" )


    Set DB = S.CurrentDatabase
    Set col = DB.UnprocessedDocuments
    Set Doc = DB.GetProfileDocument("(DBProfil)")
    strArchivDB = "omg-srv-01"
    strArchivPfad = "mail/Objekte.nsf"
    Dim ArchivDB As New NotesDatabase(strArchivDB,strArchivPfad)


    Set Doc = col.GetFirstDocument()
    Do Until Doc Is Nothing
    Set DestinationDoc = Doc.CopyToDatabase(ArchivDB)
    Call DestinationDoc.PutInFolder(DestinationFolder)
    Set Doc = col.GetNextDocument(Doc)
    Loop
    Call Col.RemoveAll(True)
    Dim workspace As New NotesUIWorkspace
    Call workspace.ViewRefresh
    End Sub[/color]
    *******************


    Schönes Wochenende.
    Gruss
    Tombac