Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Glombi am 26.04.05 - 12:18:06

Titel: "Abgelaufen" Datum per LotusScript setzen
Beitrag von: Glombi am 26.04.05 - 12:18:06

Wie kann ich mittels LotusScript ein Dokument als abgelaufen am markieren?

Im Mail habe ich die Möglichkeit, mittels Aktionen - Werkzeuge - Dokument als 'Abgelaufen' markieren ein Datum zu setzen, welches dann für die Archivierung relevant ist.

Ich finde in den Dokumenteigenschaften aber kein Feld, wo das gespeichert wird. Auch habe ich keine Scriptfunktion gefunden.

Kann mir jemand einen Tipp geben?

Andreas

Titel: Re: "Abgelaufen" Datum per LotusScript setzen
Beitrag von: koehlerbv am 26.04.05 - 12:26:01

Das $NoPurge-Item ist dafür verantwortlich, Glombi.

HTH,
Bernhard

Titel: Re: "Abgelaufen" Datum per LotusScript setzen
Beitrag von: Glombi am 26.04.05 - 13:22:29

Hi Bernhard
das glaube ich nicht, denn wenn ich die Abgelaufen Markierung wieder aufhebe, bleibt $NoPurge unverändert. Auch steht dort ein anderes Datum drin.

Andreas

Titel: Re: "Abgelaufen" Datum per LotusScript setzen
Beitrag von: Glombi am 26.04.05 - 13:36:43

Ok, es hat sich erledigt. Es ist das Item "ExpireDate".
Man kann zwar alles mögliche markieren, aber es werden nur bestimmte Masken berücksichtigt.
Das sieht man im Code des Agenten "SetExpire".
Was micht dort wundert ist die Programmierung der

Sub RenderExpireDate (Mydate As Notesdatetime)
   
   If Not (ExQues(0) = "1") And (MyDate Is Nothing) Then
      If doc.hasItem( "ExpireDate")   Then
         Call doc.removeitem ( "ExpireDate" )            
      End If
      'If doc.hasItem( "$NoPurge")   Then
      '   Call doc.removeitem ( "$NoPurge" )            
      'End If
   Else        
      Call doc.ReplaceItemValue ( "ExpireDate", MyDate )         
      'Call doc.ReplaceItemValue ( "$NoPurge", MyDate )         
   End If
   
   
End Sub

Original Code von IBM!
Was sollen denn die auskommentieren Zeilen  ???
Hoffentlich ist das zu Ende gedacht....

Andreas