Beiträge von int5749

    Also verboten ist das archivieren nicht. Da dies eine Kopie des Original Archiv Agenten ist, steht die Passage noch als restant drinne, falls es verboten wäre. Lediglich wurde per Richtlinie das generelle Archivieren aller Mails älter als X Tage auf ein Server based Archiv festgelegt. Dies kann der User dann wieder als Replikt offline nehmen, damit die User offline (Notebook) Zugriff darauf haben. Somit wird aber doppelt Platz belegt, was in Einzelfällen nicht sinnvoll erscheint. Daher meine Bemühungen :)


    Die Kopie des Archivagent funktioniert ja auch, nurdas ich lediglich das Server based Archiv auswählen kann. Da ich den code nicht in gänze verstehe, hatte ich die Hoffnung den Pfad zu einer anderen, lokalen DB im Code zu verankern??


    Alternativ hatte ich einen mega-simplen Agenten mit 2 einfachen Aktionen
    1) Copy document to C:\Archiv\Archiv_2009.nsf
    2) Delete document


    Aber hier wird wie gesagt nur in "All Dokumente" kopiert :(


    Hilft dies weiter??


    Gruß,
    INT5749

    Sorry, wenn ich mich da evtl. etwas falsch ausgedrückt haben sollte. Aber leider unsere Notes Admins zeitlich nicht in der Lage mir kurzfristig zu helfen und somit versuche ich eine adäquate Lösung zu finden :)


    Also bitte nicht persönlich nehmen, wenn ich mich "angegriffen" fühlte.


    Besten Gruß,
    INT5749

    Einen Agenten kann bei uns jeder erstellen. Und es ist weniger eine Unternehmensrichtlinie als die Tatsache das Ausnahmen von der Regel zu viel Aufwand bedeuten. Wenn ich also als User einen Weg finde meine Arbeit im Rahmen des möglichen zu optimieren, ist dies völlig OK.


    Ich hatte die Hoffnung, das mir hier geholfen würde den letzten Hügel zu überwinden, anstatt Vorwürfe zu erhalten :-?


    Gibt es evtl. noch Tips??


    Herzlichen Gruß,
    INT5749

    Hi,


    da ich User und kein Admin bin, habe ich nicht die Möglichkeit dies im gesamten Enterprise zu ändern. Ich versuche "nur" für mich und einige andere User mit entsprechenden lokalen Rechten eine Alternative zu finden, welche unseren Arbeitsbedürfnissen entspricht :)


    Daher: Wie kann ich eine andere DB in dem Skript angeben??


    Alternativ habe ich bereits einen Agenten gebastelt, der markierte Mails aus meiner Mail DB in eine andere kopiert und dann in der Mail DB löscht. Funtzt zwar, aber in der Ziel DB sind die Mails nur unter "Alle Dokumente" sichtbar und nicht in "Inbox", Foldern oder Send. Wie kann ich hier die Zuordnung herstellen??


    Besten Gruß,
    INT5749

    Hi,


    aufgrund einiger Ausreißer wurde dies so eingestellt. Leider wurde andere somit "blockiert" und ich möchte dort nun mit einem Agent abhilfe schaffen. Eine lokale Replik halte ich für suboptimal, da nicht immer alle mails dort vorliegen etc.


    Gruß,
    INT5749

    Hallo zusammen,


    ist mir genauso rätselhaft, warum dies abgeschaltet bzw. bei bedarf in ein server based Archive per policy aktiviert wird.


    Anyway:
    Ich habe den Code des Standard Agenten kopiert, bevor dieser nicht mehr sichtbar war. Beim starten kommt ein Pop-Up hoch, wo ich jedoch nur diese Serverbasierende Datenbank angeben kann. Leider kenne ich mich mit dieser Programmiersprache und Oberfläche noch nicht so aus.


    Ich stelle mir vor, in dem Code eine DB anzugeben oder eine lokale DB auszuwählen?!


    Besten Gruß und Dank,
    INT5749


    Der bisherige standard Code lautet:
    #########################################


    Sub Initialize
    Const ArcProhibit = "Das Archivieren ist durch eine vom Administrator festgelegte Richtlinie nicht freigegeben."
    Const ArcTitle = "Archiv"

    On Error Goto Trap
    Dim s As New notessession
    Dim uiws As New notesuiworkspace
    Dim db As notesdatabase
    Dim coll As notesdocumentcollection
    Dim StringTable As New mailtoolsstringtable
    Dim policyList As Variant
    Dim result As Integer
    Dim policy As String
    Dim collection As notesdocumentcollection
    Dim dlgNote As NotesDocument
    Dim preRNext As Integer
    Dim needsSetup As String

    Set db = s.currentdatabase
    Set collection = db.unprocesseddocuments

    If s.Notesbuildversion < 167 Then
    Goto ArchivePreRnext
    End If

    Archive:
    policyList = db.ArchiveDestinations

    If ( Isnull(policyList)) Or (Isempty(policylist)) Then
    needsSetup =|Um ausgewählte Dokumente archivieren zu können, muss mindestens ein Archivierungskriterium, das eine Zielarchivdatenbank angibt, aktiv sein.


    Verwenden Sie den Menübefehl 'Aktionen - Archiv - Einstellungen' zum Ändern Ihrer Archivierungseinstellungen.|
    Goto Trap
    End If

    'prompt for which policy to archive to
    Set dlgNote = s.currentDatabase.createDocument

    Call dlgNote.replaceitemvalue("tmpListOfPolicies", Fulltrim(policyList))
    Call dlgNote.replaceitemvalue("tmpPrompt", |Archivziel wählen:|)

    ' load up ArchivePolicyList Dialog
    result = uiws.DialogBox("(RepeatOpenList)", True, True, False, , , , "Ins Archivziel verschieben", dlgNote, True)

    ' if user didn't cancel, send collection to selected policy
    If result <> False Then
    policy = dlgNote.GetItemValue("tmpPolicySelected")(0)
    Call db.archiveNow( collection, policy )
    Call uiws.Viewrefresh()
    End If
    Exit Sub

    ArchivePreRNext:
    If YesNoPrompt(StringTable.GetString(TOOL_STRING+76,coll.count),StringTable.GetString(TOOL_STRING+75,Null)) Then
    Call db.archiveNow( collection )
    Call uiws.Viewrefresh()
    End If
    Exit Sub

    Trap:
    On Error Resume Next
    Dim sterr As String
    If Err = 184 Then
    sterr= Msgbox (ArcProhibit, MB_OK+MB_ICONEXCLAMATION,ArcTitle)
    Else
    Call DisplayWarn(needsSetup & Error$ & Chr(10),MB_OK,StringTable.GetString(TOOL_STRING+75,Null))
    End If
    Exit Sub
    End Sub

    Hallo zusammen,


    wie kann ich per agent ausgewählte mails archivieren?? Leider wurde die Archivfunktion de-aktiviert, da dies bei einigen Anwendern zu Problemen geführt hat. Nun versuche ich einen Agent zu erstellen, der mir ausgewäählte mails in die entsprechenden ordnder einer vorhandenen Datenbak verschiebt. Leider bekomme ich dies nicht hin :-?


    Ich habe bereits versucht die mails "nur" zu kopieren, aber die sind dann in der ziel-db nur in der Ansicht "alle Dokumente" und nicht unter inbox, outbox, etc.


    Kann mir bitte jemand helfen???


    Besten Gruß,
    INT5749