Domino 9 und frühere Versionen > ND8: Administration & Userprobleme

Aufgabe aktualisieren

<< < (2/2)

Michael Patzak:
Moin,

nochmals vielen Dank.

@Bernhard          .........das ist auf einem pure Client eine etwas eigene Sache und sollte nicht mit Schablone wechseln oder aktualisieren gemacht werden!).

Was würdest Du dann empfehlen?

mfg

Michael

koehlerbv:
Hallo Michael,

auf dem Domino wäre es der Convert-Task, der laufen müsste, um Mail-DBs zu heben. Auf dem Client ist es das Program nconvert.exe - aber "nur" unter Windows. Wie der Programmaufruf unter Deinem speziellen Linux lautet, entzieht sich meinem Wissensbereich als Notes-Programmierer.

Wie der Convert-Task tut und was für Parameter es brauchst, findest Du in der Admin-Doku-NSF, die Dir als Standalone-User aber vermutlich nicht nur Verfügung steht. Die Doku habe ich aber gerade gestern hier
http://atnotes.de/index.php/topic,52530.0.html
in Post #3 verlinkt - IBM Lotus stellt die auch im Net zur Verfügung.

HTH,
Bernhard

Michael Patzak:
Moin,

jetzt ist es gelöst:

Mal eben auf einem Test PC einen "nackten" Client installiert (Gleiches Betriebssystem, gleiche Notes Version) unbd die Agenten verglichen. Es fehlte folgender Code:

Bei Declaration:

Dim itemDates As notesitem

Dim dtInstance As NotesDateTime

Sub Initialize

   Dim session As New NotesSession

   Dim db As notesdatabase

   Dim viewTodo As NotesView

   Dim note As NotesDocument

   Dim dtToday As NotesDateTime

   Dim viewEntries As NotesViewEntryCollection

   Dim viewEntry As NotesViewEntry

   Dim vTodo As Variant

   

   ' Initialize variables

   Set db = session.currentdatabase

   Set viewTodo = db.GetView("Tasks")

   

   If (viewTodo Is Nothing) Then Exit Sub

   

   ' Enumerate the todo entries

   Set viewEntries = viewTodo.AllEntries()

   

   Set viewEntry = viewEntries.GetFirstEntry()

   

   While Not(viewEntry Is Nothing)

      If (viewEntry.IsDocument()) Then

         Set note = viewEntry.Document

         

         If (CanProcessNote(note)) Then

            If (NOTEUserIsCreator(note)) Then

               Set vTodo = New NotesCSEventOwnerDocument(2)

            Else

               Set vTodo = New NotesCSEventParticipantDocument(2)

            End If

            ' See if this is a repeating entry

            If (note.HasItem("OrgRepeat")) Then Call InitTodoObject(vTodo, note)

            

            Call vTodo.Init(note)

            Call vTodo.SetDueState()

            Call vTodo.SetCalendarDateTime()

            If Not(note.GetItemValue("DueState")(0)=10) And Not(note.GetItemValue("DueState")(0)=9) Then

               Call vTodo.SetViewIcon()

            End If

            

            Call note.replaceitemvalue("tmpMod", "1")

            

            Call vTodo.MarkTempItems()

            

            If (note.HasItem("OrgRepeat")) Then

               vTodo.RepeatModify = REPEAT_CURRENT

               Call vTodo.CreateRepeatExceptions(REPEAT_CURRENT)               

            End If

            Call note.save(True, True, True)

         End If

      End If

      Set viewEntry = viewEntries.GetNextEntry(viewEntry)

   Wend

End Sub


Function CanProcessNote(note As NotesDocument) As Integer

   CanProcessNote = False

   

   ' make sure this is a to do item

   If (Strcomp(note.GetItemValue("Form")(0), "Task") <> 0) Then Exit Function

   

   ' make sure this is not completed

   If (note.hasitem("AssignState")) Then

      If (note.GetItemValue("AssignState")(0) > 8) Then Exit Function

   End If

   

   ' make sure we are not processing a repeat parent

   If (note.HasItem("OrgRepeat") And Not(note.IsResponse)) Then Exit Function

   

   ' make sure we are not processing a draft

   If (note.GetItemValue("TaskType")(0)="2")  And Not(note.hasItem("PostedDate")) Then Exit Function

   

   'make sure we are not processing a message

   If (note.GetItemValue("$CSFlags")(0)="m") Then Exit Function   

   

   ' make sure we are not processing a repaired instance or message

   If (note.GetItemValue("$CSFlags")(0)="x") Then Exit Function   

   

   CanProcessNote = True

End Function


Sub InitTodoObject(vTodo As Variant, note As notesdocument)

   Dim itemDates As notesitem

   Dim dtInstance As NotesDateTime

   

   ' seed the calendar instance with the first date in the list

   Set itemDates = note.GetFirstItem(vTodo.StartItemName)

   

   Call TIMEGetNotesFromLS(itemDates.Values(0), dtInstance)

   

   Set vTodo.CalendarInstance = dtInstance

End Sub

Jetzt noch den Auslöser von Menü "Aktionen" auf täglich und siehe da ..... funzt.

Nochmals vielen Dank für Eure Antworten.

mfg

Michael  ;D

Navigation

[0] Themen-Index

[*] Vorherige Sete