agent til arkivering i fælles base

Hvor omfattende?
Skal agenten lægges ind mail.templaten, eller vil du have den i fællesarkivet.

Skal den ligge i mailtemplaten er det bare at benytte

notesDocument.CopyTo(NotesDatabase), når den bliver lagt i folderen

Hvis den skal ligge i fællesarkivet bliver det lige lidt mere omfattende, for så skal vi jo igennem alle brugeres mail-databaser og checke for tidligere udgaver m.m.m.

hth
jes

Hej roenving

Det var tanken at lægge den i mailtemplaten, så brugerne har adgang til den fra \"actions\" menuen, det er jo så tanken at man et par gange om dagen, markerer de dokumenter der skal kopieres/ offentliggøres og så kører den, det fedeste ville være hvis man kunne få den til at synkronisere lokale mapper med mapperne i fællesarkivet...men det er intet must.

tsk tsk....her sidder man på en fredag og roder med notes templates...ak sikken en sørgelig tilværelse *LOL*

Så bare lige den generelle advarsel om mail-templaten:
Hver gang du opgraderer vil Domino forvente at den skal rette template-navnet i hver enkelt mail-database, så det kræver *meget* ekstra opmærksomhed, når man retter i den,

men OK, jeg sætter lige designeren i gang !!

jes

Sådan:

Opret en agent i mailtemplaten, kald den f.eks. \'Kopier til fællesarkiv\' (husk at gøre den shared)

Sæt dens properties til default-værdierne: Manually from actions menu og Selected Documents.

Kopier dette ind (uden start- og slut-linien -- \'Sub Initialize\' og \'End Sub\')

Sub Initialize
    Dim ws As New NotesUIWorkspace
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim col As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim newdoc As NotesDocument
   
    Set db = s.CurrentDatabase
    Set col = db.UnprocessedDocuments
   
    If col.count > 0 Then
        Dim sharedDb As New NotesDatabase(db.server, \"fællesarkiv.nsf\") \'Husk at angive server (hvis det skal være en anden)
        Set doc = col.GetFirstDocument
        Do While Not doc Is Nothing
            If Not doc.hasItem(\"Arkiveret\") Then
                Set newdoc = doc.Copytodatabase(sharedDb)
                Call newdoc.Putinfolder(\"xxx\") \' her sætter du dit foldernavn i fællesarkivet
\'                Call doc.Putinfolder(\"xxx\") \' Så kan du også sætte den ind i en \'Arkiveret i fællesarkiv\'-folder
            End If
            Set doc = col.GetNextDocument(doc)
        Loop
        Call col.StampAll(\"Arkiveret\", 1)
    End If
   
End Sub

Det hører lige med, at jeg *ikke* har testet den (min egen træningsinstallation -- og der er kun en server igang, når jeg slet ikke kan undvære den).

hth
jes

Ps. Det var zq da lige før jeg skulle have kostet det to timer i konsulenthonorar -- kontakt mig bare på den måde, hvis du ellers har brug for hjælp !! *S*

PPS. Det er jo en script-agent, så det skal den jo lige sættes til også -- og scriptet skal selvfølgelig ind i Initialize-eventen.

det ser ud til at virke, men man skal da have sub ini og sub end med ??!?
kunne man forfine den således....de mapper om der kopieres fra i mailbasen, hedder det samme som de mapper der kopieres til !! ,så kunne man få den til at lægge tingene direkte i de rette mapper??
det skal nemlig helst være muligt at bevare overblikket i den fælles database...

Ja, du kan hente folder-navnet med
ws.CurrentView.View.name (Så vidt jeg husker -- har ikke lige en Notes her)

æhhh....kan du flette det i koden...?? please..

ups..har da helt glemt at acceptere svaret....
thanks.....

Bare et uddrag af koden, med den tilføjelse (og igen -- her har ingen chance for at teste):

Dim newdoc As NotesDocument
dim kildefolder as string
   
    Set db = s.CurrentDatabase
    Set col = db.UnprocessedDocuments

    kildefolder = ws.CurrentView.View.Name
   
    If col.count > 0 Then
        Dim sharedDb As New NotesDatabase(db.server, \"fællesarkiv.nsf\") \'Husk at angive server (hvis det skal være en anden)
        Set doc = col.GetFirstDocument
        Do While Not doc Is Nothing
            If Not doc.hasItem(\"Arkiveret\") Then
                Set newdoc = doc.Copytodatabase(sharedDb)
                Call newdoc.Putinfolder(kildefolder) \' her sætter du dit foldernavn i fællesarkivet

jes

ok...men skal det forstås således at det kun kan være en fast folder, altså har man eks tre foldere i fællesarkivet, som der arkiveres til eks. \"kunder\" \"leverandører\" \"reklamationer\" så skal man have en agent pr. folder??
eller kan den laves dynamisk så den kan se hvorfra man henter dokumentet?? jeg lægger gerne flere point i puljen hvis det er noget der tager tid...

Senere i dag skal jeg nok lige kigge efter, om det er præcis det rigtige, jeg har angivet, men ellers:

Ja, det, den laver nu er dynamisk, fordi den tager navnet fra den folder du er i og bruger det som destination i fællesarkivet.

det er genialt ... takker....;-)