Beiträge von toricom

Hallo,

Ich soll für die Signatur der User einen Button im CalendarProfile erstellen, der den aktuellen User im AD der Firma sucht und sich dann daraus Daten zieht und dann die Signatur erstellt.

Wie bekomme ich einen Zugriff aufs AD aus dem Notesclient hin?
Lotus Notes Version 7.03

Für ein paar Anregungen oder Links wäre ich dankbar.

Gruss Thomas

Hallo,

die Links sind zusammen mit Text in Tabellenzellen organisiert.
Normaler Weise ist ein Paragraph am Ende der Zeile. Ab und zu aber auch mal ein Zeilenumbruch.

Hier mal ein Schreenshot des Dokuments( Miniauszug).
Die Dokumentverknüpfungen liegen hinter den roten Texten.

Nachtrag: habe die Tabelle in mehrere kleine Tabellen aufgesplittet. hat aber nichts gebracht. Schließe des Beitrag jetzt trotzdem

Hallo,

ich habe ein Dokument mit einem RT Body Feld drauf. In diesem Feld ist eine Tabelle mit Text. Hinter jeder Zeile Text ist ein Verknüpfungs-Hotspot , der auf ein ein Dokument in der selben DB verweist. Das Dokument ist so was wie ein Inhaltsverzeichnis.

Ich habe schätzungsweise 1100 Verknüpfungs-Hotspots in diesem Feld.

Wenn man in Notes ist und die Links anklickt klappt alles.

Nun wird dieses Dokument auch ins Web übertragen.
Hierbei ist mir letztens aufgefallen, dass nur ca. die ersten 330 Dokumentverknüpfungen hier funktionieren. In den anderen steht entweder ein Schrott Link drin, oder er ist gar nicht als Link ins HTML gekommen.

Das $Links des Dokuments besteht schon aus 3 Feldern $Links.

Habe mal alle Einträge der 3 Felder genommen und durch gezählt. Hierbei kam ich auf 360 enthaltene Dokumentverknüpfungen, wovon 2 kaputt waren(jeweils der letzte Eintrag in dem 2. und 3. $Links Feld.

Gibt es hier vielleicht irgend welche Restriktionen, bei der Umsetzung in HTML?

Feldname: $Links
Datentyp: Referenzliste für Dokumentverknüpfung
Datenlänge: 2202 Byte
Seq.-Num.: 187
Doppeleintrags-ID: 2
Feld-Flags:

Ups... voll übersehen.

Aber jetzt klappt der Agent wenigstens richtig.

Tausend Dank.

Gruß Thomas

Danke für die Antwort.
Wo finde ich denn die Datenbankeigenschaft? In den Datenbankeigenschaften unter Erweitert ist unter Optionen für Ungelesen-Markierungen nur das Kontrollkästchen für keine Ungelesen-Markierungen verwalten und die Repliziereinstellungen für die Ungelesen-Markierungen. Sonst habe ich in keinem Reiter etwas ähnliches gefunden...

Hallo zusammen,

ich habe ein Problem bei einem LotusScript Agenten in der Maildatenbank. Der Agent läuft auf den Server zeitgesteuert.
Er ist vom Server signiert.
Dieser schreibt in ein Memo ein neues Feld, wenn das Memo in einem Ordner liegt.

Der Agent funktioniert gut, jedoch wird durch das
Call doc.save (False,False)
das Dokument in den Userdatenbanken als ungelesen markiert.

Ich habe mir schon einen Wolf gesucht wie dies lösbar sein könnte.
Das Problem liegt ja daran, dass die unread Eigenschaften der Dokumente in der lokalen desktop8.ndk festgehalten werden. Da das Dokument einen neuen Timestamp bei 'bearbeitet' bekommt erkennt der Client dies dann als ungelesen.

Ich habe zwar die Klasse NotesUnreadMarks class Written by: Daniel Alvers gefunden, bin mir aber nicht sicher, ob ich diese hierfür nutzen kann...

Bin für jegliche Vorschläge offen.

NotesClient 8.5
DominoServer 8.5

Mfg Thomas

Danke Andreas,

dies war genau die Funktion, die ich gesucht habe.
Jetzt klappt es.

'Alle Dokumente in Collection mit ("ExcludeFromView","S") schreiben
Call vc.StampAll("ExcludeFromView","S")

Das Verhalten bleibt trotzdem sehr schleierhaft.
Wieder was gelernt.

Thx Thomas

Hallo zusammen,

ich habe hier ein seltsames Problem.
Durch einen Agenten werden alle Mails aus ausgewählten Ordnern in einen entsprechenden neuen Ordner einer anderen DB verschoben.
Hierbei kommt es vor, dass User Mails aus Gesendet in die Ordner gezogen haben.
Um diese Mails nicht doppelt zu kopieren (1x im Ordner und 1x in Sent) und somit Dubletten zu erzeugen, setzen ich auf alle Dokumente der Ordner ein Document.ReplaceItemValue("ExcludeFromView","S").

Dieses Script funktioniert nur, wenn man im Debugger einen Haltepunkt auf Call ve.Document.ReplaceItemValue("ExcludeFromView","S") setzt.
Wenn dieser zum Bsp. auf Call ve.Document.Save(True,False) sitzt ist das Feld ExcludeFromView nicht in der Itemliste des aktuellen Docs vorhanden.
Wenn der Debugger ausgeschaltet ist wird das Feld auch nicht gesaved.

Set source = dbSource.GetView( f )
Set vc = source.AllEntries
Set ve = vc.GetFirstEntry
Do Until ve Is Nothing
'TRI 20090915 : Setzten des ExcludeFromView auf die alten Dokumente
Call ve.Document.ReplaceItemValue("ExcludeFromView","S")
'Set item = ve.Document.ReplaceItemValue("ExcludeFromView","S")
Print "ExcludeFromView "
Call ve.Document.Save(True,False)
Set ve = vc.GetNextEntry( ve )
Loop

Dieses Verhalten tritt unter 7 und 8 im Client auf.

Hat jemand eine Idee woran es liegt, das der Wert nicht in das Dokument geschrieben wird?

Bin für jede Anregung dankbar.
Ich habe auch den gesamten Agenten mal angehangen.

Gruß Thomas

Hallo,

Ich hatte mir anschliessend ein paar Mails schicken lassen. Die kamen an. Ich denke ich kann damit leben, dass ich drei Mails nicht lesen kann, oder dass es ein Fehler ist. Ich werde jetzt einfach alle Dokumente als gelesen markieren und dann ist Ruh.

Danke für eure Hilfe
Gruß Thomas

Klappte leider nicht. Was war das? Ansichtsindexerstellung?

Wenn ich auf dem neusten Dokument stehe (oberstes), sehe ich dass ich eigentlich noch hochscrollen könnte. Aber das klappt nicht. Egal ob mit Mouse oder mit Tasten.

Hallo zusammen,

bei mir werden seit einem Serverneustart keine neuen Mails in der Ansicht des Maileingangs angezeigt,
obwohl in der Navigation der Eingang fett geschrieben ist und 2 Dokumente dahinter anzeigt werden.

In der Ansicht 'alle Dokumente' sind diese neuen Mails auch nicht zu finden.
Bei Eingang einer neuen Mail meldet sich der Notesminder und auch diese Dokumente sehe ich nicht in der Ansicht 'Eingang' .

Hat jemand ne Ahnung, was das sein kann?
Habe schon einen Neustart meines Clients vorgenommen. Keine Änderung...

Schon mal Danke für eure Hilfe
Gruß Thomas

Client 6.5.3 Server 6.5.3

Hallo zusammen,

In der Designer Hilfe steht:

Zitat

Use Kill with care. If you delete a file with the Kill statement, you can't restore it with LotusScript statements or operating system commands. Make sure the file is closed before you attempt to delete it."

Wie überprüfe ich ob die Datei geschlossen ist?

Danke...

Gruß Tom

Hallo zusammen,

der Fehler lag nicht an

Zitat

@If( LeistZeitVon != "" & LeistZeitVon != "";

sondern an dem &-Zeichen in

dspStd := @If( anzStd < 10 ; "0" & @Text( anzStd ); @Text( anzStd ));
dspMin := @If( anzMin < 10 ; "0" & @Text( anzMin ); @Text( anzMin ));

trotzdem Danke für die Mühe

Gruß Tom

Danke für die Mühe.

Hab das Problem durch Felder gelöst, die den Berechneten Text aufnehmen und im Web anzeigen.

Gruß Tom

Hallo Zusammen,

kann mann irgendwie mit @Funktionen ins Serverlog schreiben?
Ich brauche einen berechneten Wert aus einer Webanwendung und weiss nicht wie ich sonst dran komme.

Gruß Thomas

Hallo zusammen,

ich habe ein Problem mit der automatischen Berechnung einer Zeitdifferenz.

Ich habe 4 Felder auf meiner Maske.

LeistZeitVon Datum kein Vorgabewert
LeistZeitBis Datum kein Vorgabewert
LeistPause Zahl Vorgabewert 0
LeistAnzahlStd Text Berechnet

In LeistAnzahlStd steht diese Berechnungsformel

@If( LeistZeitVon != "" &
        LeistZeitVon != "";
        @Do(
            pauseInSec := LeistPause * 60;


            vonStdInSec := @Hour( LeistZeitVon ) * 3600;
            vonMinInSec := @Minute( LeistZeitVon ) * 60;
            vonSecGesamt := vonStdInSec + vonMinInSec;


            bisStdInSec := @Hour( LeistZeitBis ) * 3600;
            bisMinInSec := @Minute( LeistZeitBis ) * 60;
            bisSecGesamt := bisStdInSec + bisMinInSec;


            gesamt := bisSecGesamt - vonSecGesamt - pauseInSec;
            gesamtMin := @Integer( gesamt / 60 );
            FIELD LeistAnzahlStd := gesamtMin;


            anzStd := @Integer( gesamtMin / 60 );
            anzMin := @Modulo( gesamtMin ; 60 );


            dspStd := @If( anzStd < 10 ; "0" & @Text( anzStd ); @Text( anzStd ));
            dspMin := @If( anzMin < 10 ; "0" & @Text( anzMin ); @Text( anzMin ));


            @Return( dspStd & ":" & dspMin )
         );

     "")

Fehlermeldung: FEHLER falscher Datentyp für Operator oder @Funktion: Zahl erwartet

Hat jemand eine Ahnung wo der Fehler liegen könnte?

Gruß Tom

Ich hab es jetzt ander gelöst.

Dim arrdoc As NotesDocument
Dim docs List As String
Dim suppNrEntry As String
Dim size As Integer
Dim zaehler As Integer
Dim gefunden As Boolean
Dim nichtmehr As Boolean
zaehler = 0
gefunden = False
nichtmehr = False

suppNr = doc.GetItemValue("f_SupNr")(0)
Set db = doc.ParentDatabase
Set view = db.GetView("(VermerkeNachNr2)")
Set arrdoc = view.GetDocumentByKey(suppNr)

If arrdoc Is Nothing Then
Exit Sub
End If
suppNrEntry = arrdoc.GetItemValue("f_SupNr")(0)
Do While Not nichtmehr
If suppNrentry = suppNr Then
gefunden = True
zaehler = zaehler + 1
docs(zaehler) = arrdoc.UniversalID
Else
If gefunden = True Then nichtmehr = True
End If
Set arrdoc = view.GetNextDocument(arrdoc)
suppNrEntry = arrdoc.GetItemValue("f_SupNr")(0)
Loop

Und weiter unten:
Dim datum As String
Dim beschr As String

count = zaehler
If count > 0 Then
For i = 1 To count
Set colldoc = db.GetDocumentByUNID(docs(i))
'Werte holen
datum = colldoc.GetItemValue("f_vDatum")(0)
beschr = colldoc.GetItemValue("Subject")(0)

'Vermerk anzeigen
Call rtitem.AppendText(datum &" "& beschr)
Call rtitem.AddNewline(1)
Next
Call rtitem.AddNewline(1)
Call rtitem.AppendText("Weitere Angaben :")
Call rtitem.AddNewline(1)
End If

es funktioniert.

Ich hatte das auch mit dem NotesviewNavigator umgesetzt, aber der war richtig langsam, weil ich nicht zum ersten gebrauchten doc kam und deswegen alle der Reihe nach abarbeiten musste.

Dank dir taurec

@if(@trim(Feld1)="" | @trim(Feld2)="" | @trim(Feld3)="";@return("");"");

Gruß Tom

Die Klasse NotesViewNavigator stellt eine Methode GetEntry bereit, mit der ich den Eintrag als NotesViewEntry bekomme. Von dort aus bekomme ich ja das Dokument, wenn es ein Dokument ist.

So und da wären wir jetzt wieder bei meinem Problem.
Wie bekomme ich diese Dokumente in eine Liste?

Geht es mit Dim docs() as Notesdocument und anschl. mit Redim Preserve die Arraygrenzen ändern?
Oder muss ich über ein Variant gehen?

Gruß Tom

das ist nicht mein Problem.
Den View bekomm ich zur Not noch so ausgeknobelt
Aus der Hilfe:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim column As NotesViewColumn
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "By Category" )
' get the first sorted and categorized column in the view
Forall c In view.Columns
If ( c.IsSorted And c.IsCategory ) Then
Set column = c
Exit Forall
End If
End Forall
' get the first document that matches the key
Set doc = view.GetDocumentByKey( "Spanish leather" )
' get the remaining documents that match the key
' since ColumnValues array starts at 0 for position 1,
' subtract 1 from the column position
Do While Not ( doc Is Nothing )
If ( doc.ColumnValues( column.Position - 1 ) = _
"Spanish leather" ) Then
Call doc.PutInFolder( "Boots" ) [color=FF3300]HIER IST MEIN PROBLEM[/color]
Else
Exit Do
End If
Set doc = view.GetNextDocument( doc )
Loop

Ich müsste hier die Dokumente in eine Array packen, das ich im Anschluss auch wieder aufdröseln kann.