Alle UserID - Dateien exportieren

    Hi,


    Du wirst das Problem haben, daß alle IDs "User.id" heißen... Per Scriptagent müsstest Du Dir eine Routine programmieren, die Dir die angehängte Datei umbenennt und dann auf Dateiebene ablöst.


    Ich gehe davon aus, daß die IDs im DD liegen?


    Sascha

    Der exportscript könnte wie folgt aussehen (hier ist es eine funktion):


    Sub ExportMedia( doc As NotesDocument, pfad As String)

    Dim rtitem As Variant
    Dim session As New NotesSession
    Dim db As NotesDatabase


    Set db = session.CurrentDatabase

    Set rtitem = doc.GetFirstItem( "Body" )
    Forall o In rtitem.EmbeddedObjects
    If o.Type = EMBED_ATTACHMENT Then
    Call o.ExtractFile( pfad & o.Source)
    End If
    End Forall
    End Sub


    Durch folgende Zeile fängst du dann ab, dass die exportierten IDs nicht überschrieben werden, weil alle notesids standardmäßig user.id heissen:
    Statt
    Call o.ExtractFile( pfad & o.Source)
    folgendes:
    Call o.ExtractFile( pfad & o.Source & "-" & doc.UserName(0))
    Eine somit exportierte Datei heisst dann:
    C:\notesids\user.id-hansmustermann


    Wenn du nun die Zeile einwenig umstellst (mit Left, Right u. a. rumspielst), kannst du dann eindeutige Namen für die IDs generieren.



    Und der Aufruf würde dann in deinem Hauptprogramm ungefähr so ablaufen:


    Call Exportmedia(doc, "C:\notesids\")



    lg,
    ghostxxl