Beiträge von aweinrei

hi,

also das is die page wo ich mir die infos hergezogen hab:
http://www.dominopower.com/iss…t/issue199908/design.html

wichtig is halt das du die ansicht erstellst und nachher den agent drüber laufen lässt.

-> Call doc.ReplaceItemValue("$FormulaClass", "4") für die 4 solltest du
2 + 4 + 8 + 16 + 32 + 64 + 128 + 256 + 512 + 1024 + 2048 + 4096 usw. (natürlich als text)
einsetzen um eben alles ausser die dokumente (die sind ja "1") zu sehen.

hier ein bischen aus einer quick'n'dirty programmierung von mir:

Zitat

Sub Initialize
'siehe auch http://www.dominopower.com/iss…t/issue199908/design.html

'1. spalte der ansicht sollte so aussehen
%REM
Type := @If(
@Contains($Flags;"m");"Outline";
@Contains($Flags;"G3");"Navigator";
@Contains($Flags;"3FY");"Folder";
@Contains($Flags;"s");"ScriptLibrary";
@Contains($Flags;"C34yQ");"Shared Actions";
@Contains($Flags;"U");"Subform";
@Contains($Flags;"Ci");"Image";
@Contains($Flags;"Y");"View";
@Contains($Flags;"J");"Database";
@Contains($Flags;"W");"Page";
@Contains($Flags;"#");"Frameset";
(@Contains($Flags;"f")|@Contains($Flags;"L"));"Filter (e.g. Agents)";
($Flags="C" | $Flags="CD"); "Form";
(@IsAvailable($Title) & @IsAvailable($Fields)) ;@If(($Title = $Fields);"Shared Field"; "Form");
@Contains($Flags;""); "Form ?";
("Unknown: " + $Flags));
ImplodeTitle:=@Implode($Title;"|");
Title:=@Left(ImplodeTitle+"|";"|");
CascadedTitle:=@If(@Contains(Title;"\\");"\\"+@LeftBack(Title;"\\");"");
Type+CascadedTitle
%END REM

On Error Goto errorhandle

Dim session As New NotesSession
Dim db As NotesDatabase
Dim dbdir As NotesDbDirectory

'mail db der user
Dim db_mail As NotesDatabase
Dim view_mail As NotesView
Dim doc_view_mail As NotesDocument
Dim doc_mail As NotesDocument
Dim tmp_doc_mail As NotesDocument

Dim s_server As String
Dim s_mask As String
Dim s_flags As String
Dim s_db As String
Dim s_view As String

Dim i_db As Integer
Dim i As Integer

'formulaclass.log
Dim fileName As String
Dim fileNum As Integer

'userliste
Dim fileName1 As String
Dim fileNum1 As Integer
Dim inputstring1 As String

s_server = "cn=ln101w05/ou1=allendorf/o=viessmann/c=de"

'pfad der durchsucht werden soll
's_mask$ = "d:\lotus\domino\data\mail\*.nsf"
s_mask$ = "mail\"

'name der ansicht in den mail db der user
s_view$ = "(Designelemente)"

i_db% = 0
i% = 0

Set dbdir = session.GetDbDirectory(s_server$)
Set db = session.CurrentDatabase

'log initialisieren
fileNum% = Freefile()
fileName$ = "h:\formulaclass.log"

Open fileName$ For Output As fileNum%
Print #fileNum%, Now & " - Start des Logs"
Print #fileNum%, Now & " ----------------------------------------"

'userliste initialisieren
fileNum1% = Freefile()
fileName1$ = "h:\all.txt"

Open fileName1$ For Input As fileNum1%

Line Input #fileNum1%, inputstring1$
Do While Not Eof(fileNum1%)

'Set db_mail = dbdir.GetFirstDatabase(DATABASE)
Set db_mail = session.GetDatabase(s_server$, Right(inputstring1$, Len(inputstring1$) - 21)) 'd:\lotus\domino\data\ abziehen

If db_mail Is Nothing Then
Print #fileNum%, Now & " - ERROR: " & s_server$ & "!!" & inputstring1$
Else
Print #fileNum%, Now & " - " & db_mail.Filepath

If Lcase(Left(db_mail.Filepath, Len(s_mask$))) = Lcase(s_mask$) Then
i_db% = i_db% + 1
If Right$(Cstr(i_db%), 2) = "00" Then
Print Now & " - " & i_db%
End If

'Call db_mail.Open("", "")
If Not db_mail.IsOpen Then
Call db_mail.Open("", "")
End If

If db_mail.IsOpen Then
Print #fileNum%, Now & " - " & db_mail.Title
Print #fileNum%, Now & " - TEMPLATE: " & db_mail.Designtemplatename

Set view_mail = db_mail.GetView(s_view$)
If view_mail Is Nothing Then
Print #fileNum%, Now & " - FEHLER: Ansicht " & s_view$ & " nicht gefunden"
Else
Set doc_view_mail = db_mail.GetDocumentByUNID(view_mail.UniversalID)
Call doc_view_mail.ReplaceItemValue("$FormulaClass", "65534")
doc_view_mail.Save True, True
Set view_mail = Nothing
Set view_mail = db_mail.GetView(s_view$) 'damit der index neu aufgebaut wird!
Call view_mail.Refresh
Set doc_mail = view_mail.GetFirstDocument
Do While Not doc_mail Is Nothing
Set tmp_doc_mail = doc_mail
Set doc_mail = view_mail.GetNextDocument(doc_mail)
'Print #fileNum%, Now & " - $Title = " & tmp_doc_mail.~$Title(0)
'Print #fileNum%, Now & " - $Flags = " & tmp_doc_mail.~$Flags(0)

'über/benutzen dieser datenbank
s_flags$ = tmp_doc_mail.~$Flags(0)
If tmp_doc_mail.~$Title(0) = "" _
And tmp_doc_mail.~$Flags(0) = "" Then
If tmp_doc_mail.HasItem("$Body") Then
tmp_doc_mail.~$Flags = "R"
Call tmp_doc_mail.Save(True, False, True)
Print #fileNum%, Now & " - AKTUALISIERE: über/benutzen dieser datenbank"
Print #fileNum%, Now & " - $Flags alt: " & s_flags$
Print #fileNum%, Now & " - $Flags neu: " & tmp_doc_mail.~$Flags(0)
i% = i% + 1
End If
End If

'datenbank script
s_flags$ = tmp_doc_mail.~$Flags(0)
If tmp_doc_mail.~$Title(0) = "Database Script" _
And tmp_doc_mail.~$Flags(0) = "t34QP" Then
tmp_doc_mail.~$Flags = RemoveP(s_flags$)
Call tmp_doc_mail.Save(True, False, True)
Print #fileNum%, Now & " - AKTUALISIERE: datenbank script"
Print #fileNum%, Now & " - $Flags alt: " & s_flags$
Print #fileNum%, Now & " - $Flags neu: " & tmp_doc_mail.~$Flags(0)
i% = i% + 1
End If

'ansichten / nicht alle, da bestimmte ansichten sonderflags haben!
s_flags$ = tmp_doc_mail.~$Flags(0)
If tmp_doc_mail.~$Flags(0) = "YP" _
Or tmp_doc_mail.~$Flags(0) = "PY" Then
tmp_doc_mail.~$Flags = RemoveP(s_flags$)
Call tmp_doc_mail.Save(True, False, True)
Print #fileNum%, Now & " - AKTUALISIERE: ansicht " & tmp_doc_mail.~$Title(0)
Print #fileNum%, Now & " - $Flags alt: " & s_flags$
Print #fileNum%, Now & " - $Flags neu: " & tmp_doc_mail.~$Flags(0)
i% = i% + 1
End If

'masken / nicht alle, da bestimmte masken sonderflags haben!
'gemeinsam genutze felder
s_flags$ = tmp_doc_mail.~$Flags(0)
If tmp_doc_mail.~$Flags(0) = "P" _
Or (Instr(s_flags$, "C") > 1 _
And Instr(s_flags$, "P") > 1) Then
If tmp_doc_mail.HasItem("$Fields") Then
If Ubound(tmp_doc_mail.~$Fields) = 0 Then
tmp_doc_mail.~$Flags = RemoveP(s_flags$)
Call tmp_doc_mail.Save(True, False, True)
Print #fileNum%, Now & " - AKTUALISIERE: feld " & tmp_doc_mail.~$Title(0)
Print #fileNum%, Now & " - $Flags alt: " & s_flags$
Print #fileNum%, Now & " - $Flags neu: " & tmp_doc_mail.~$Flags(0)
Else
tmp_doc_mail.~$Flags = RemoveP(s_flags$)
Call tmp_doc_mail.Save(True, False, True)
Print #fileNum%, Now & " - AKTUALISIERE: maske " & tmp_doc_mail.~$Title(0)
Print #fileNum%, Now & " - $Flags alt: " & s_flags$
Print #fileNum%, Now & " - $Flags neu: " & tmp_doc_mail.~$Flags(0)
End If
i% = i% + 1
End If
End If

'agents
s_flags$ = tmp_doc_mail.~$Flags(0)
If Instr(s_flags$, "f") > 1 _
And Instr(s_flags$, "3") > 1 _
And Instr(s_flags$, "P") > 1 Then
'das "P" aus s_flags$ entfernen
tmp_doc_mail.~$Flags = RemoveP(s_flags$)
Call tmp_doc_mail.Save(True, False, True)
Print #fileNum%, Now & " - AKTUALISIERE: agent " & tmp_doc_mail.~$Title(0)
Print #fileNum%, Now & " - $Flags alt: " & s_flags$
Print #fileNum%, Now & " - $Flags neu: " & tmp_doc_mail.~$Flags(0)
i% = i% + 1
End If

'script librarys
s_flags$ = tmp_doc_mail.~$Flags(0)
If Instr(s_flags$, "s") > 1 _
And Instr(s_flags$, "3") > 1 _
And Instr(s_flags$, "4") > 1 _
And Instr(s_flags$, "P") > 1 Then
'das "P" aus s_flags$ entfernen
tmp_doc_mail.~$Flags = RemoveP(s_flags$)
Call tmp_doc_mail.Save(True, False, True)
Print #fileNum%, Now & " - AKTUALISIERE: script library " & tmp_doc_mail.~$Title(0)
Print #fileNum%, Now & " - $Flags alt: " & s_flags$
Print #fileNum%, Now & " - $Flags neu: " & tmp_doc_mail.~$Flags(0)
i% = i% + 1
End If


%REM
If tmp_doc_mail.~$Title(0) = "" _
And tmp_doc_mail.~$Flags(0) = "" Then
'tmp_doc_mail.Remove(True)
i% = i% + 1
End If
%END REM
Loop
End If
End If

End If

Print #fileNum%, Now & " ----------------------------------------"

'nächste datenbank holen
'Set db_mail = dbdir.GetNextDatabase
End If
Line Input #fileNum1%, inputstring1$
Loop

Close fileNum1%

Print #fileNum%, Now & " - Ende des Logs"
Close fileNum%

Print "datenbanken geprüft " & i_db%
Print "gelöscht " & i%

Exit Sub

errorhandle:
Print "FEHLER: " & Err() & " in Zeile " & Erl() & " (" & Error & ")"
Print #fileNum%, Now & " - FEHLER: " & Err() & " in Zeile " & Erl() & " (" & Error & ")"
Resume Next
End Sub

Alles anzeigen

und

Zitat

Function RemoveP(s_flags As String) As String
RemoveP = ""

For i% = 1 To Len(s_flags$)
If Mid(s_flags$,i%,1) = "P" Then
'ignorieren
Else
RemoveP = RemoveP + Mid(s_flags$,i%,1)
End If
Next
End Function

Alles anzeigen

hoffe man kann es einigermassen lesen + verstehen.

mit notes6 gehts glaube etwas eleganter ...

ein neues dokument oder ein vorhandenes?

schau mal in der designer hilfe unter notesitem und der methode new ...

ich helfe mir zb immer weiter in dem ich für solche fälle ein paar mehr felder anlege

tmp_doc_reader_names (hier sollten dann z. b. immer die localdomainservers drin stehen)
tmp_doc_reader_roles (hier dann vielleicht rollen wie [dbadmin], [supervisor] oder so)
tmp_doc_author_names
tmp_doc_author_roles

alles textfelder

und dann

doc_readers <- leserfeld mit formel:
tmp_reader_names : tmp_reader_roles
doc_authors <- authorfeld mit formel:
tmp_author_names : tmp_author_roles

so vermeide ich, das ich mehrere leser oder autoren felder in einem dokument habe.

im script dann die tmp_ felder füllen, doc.computewithform und doc.save

es gibt bestimmt noch viele andere lösungsansätze. versuch halt mal dein glück ...

du könntest auch im serverkonfigurationsdokument ne regel definieren die das macht ... allerdings nur unter r6

hi,

bekomme eine fehlermeldung in wordpro wenn ich dort ein macro mit dem uselsx speichern will. habe in notes.net schon gelesen das das gefixt sein soll ... habe es allerdings mit 6.0.3 + 6.5.1 probiert und der fehler tritt weiterhin auf. hat irgendjemand eine idee?

die feldeigenschaft "OnKeyUp" könnte helfen. aber frag mich nicht nach ner java programmierung. da hab ich keine ahnung ...

wenn du r5 hast dann such mal was zum thema formulaclass.

du kannst dir ne ansicht bauen die alle design elemente enthält. diese dann einfach durchgehen und die entsprechenden elemente rauslöschen.

ich glaube das openntf mail-template hat schon solch eine ansicht in der gestaltung ...

ansonsten hilft halt wirklich nur das anpassen des "normalen" templates.

Auszug aus der Notes-Hilfe:
Beachten Sie Folgendes: Damit periodische Agenten auf dem lokalen Notes Client ausgeführt werden können, muss der Benutzer zuerst die Option "Lokale periodische Agenten aktivieren" im Register "Allgemein" des Dialogfelds "Benutzervorgaben" (wählen Sie "Datei - Vorgaben - Benutzervorgaben - Allgemein") aktivieren.

unter r6 wird das ganze über einen adminp request gesteuert wenn man berechtigung < designer hat. evtl. ist hier das problem zu suchen. der user darf keine einträge (acl prüfen) in der admin4.nsf vornehmen.

wenn ich hier nicht 4000 anwender hätte prinzipiell ne gute idee ...

gibt es in der zwischenzeit irgendeine möglichkeit etwas einzustellen, damit der notes client mich fragt ob ich einen kalendereintrag aus der kalenderansicht löschen will?

irgendwie is es ihm sch.... egal ob ich softdeletions eingestellt habe oder nicht, er löscht gnadenlos die einträge weg. und wenn man mal aus versehen auf diese taste kommt (geschäftsführern passiert das regelmässig ...) kann man das niemalsnicht rückgängig machen (ole ole super datensicherung).

hallo,

habe hier eine spezielle anforderung.

wenn mir jemand ein mail an mich weiterleitet, soll irgendwie verhindert werden, das ich anschliessend an dem mail etwas modifizieren kann (soweit ja noch relativ einfach wenn ich evtl. irgendwie den edit-mode abfange und das nicht zulasse). alleridngs soll auch verhindert werden, das ich, wenn ich das dokument weiterleite oder antworte in dem original text rumfummeln kann ...

irgendwelche ideen/vorschläge/lösungen?

wir diskutieren intern immer noch über denn sinn der funktion aber wenns von "oben" gefordert wird ... ihr wisst ja wie das ist.

wichtig ist, das man mind. designer auf der db is und auch der max. internet zugriff auf designer gesetzt wird.

tja, das sieht eher schlecht für dich aus.

ich würde mir dafür eine routine schreiben die das standardmässig macht und diese dann halt immer aufrufen.

die muss dann halt den angegebenen textfile öffnen, nach dem abschnitt suchen und den wert auslesen. oder du findest irgendwo im internet eine dll die das kann und bindest die in notes ein.

viel glück beim suchen ...

das problem kenne ich auch. allerdings is in ner 3000 user umgebung der aufwand etwas hoch wenn das ständig passiert ... witziger weise wird auch manchmal ne neue mail beim öffnen der mail-db erstellt.

hat irgendwer noch ne andere/bessere lösung parat?

gibt es denn unter anderen betriebssystemen / notesversionen die selben probleme?

ich denke mal das "problem" ist, das eine verknüpfung eben auch eine datei ist und diese dann halt angehängt wird (works as designed).

wenn du umbedingt über die verknüpfung anhängen musst, hilft wahrscheinlich nur drag & drop ...

also ich würde folgendes machen:

eingabe feld ist immer schwarz!
dann einfach (je nach dem wie viele farben du brauchst) "berechnet zur anzeige" felder erstellen (formel ist immer der feldname des editierbaren feldes). hier die textfarbe einstellen und je nach "grösse" der zahl das entsprechende feld anzeigen (natürlich nur, wenn dokument im lesemodus geöffnet wird).

nicht schön aber selten

in einer ansicht kannst du ja das ganze über eine farbspalte lösen.

hi,

heute brauche ich mal die hilfe der notesgemeinde.

wir setzten notes unter xpe (terminal server) ein. unter r5 lief das alles auch (mehr oder weniger) ohne probleme. doch nach dem update auf 6.0.3 haben die user des öfteren das problem das der notes client einfach "stehen" bleibt -> keine rückmeldung.

hat irgendwer schon ähnliche erfahrungen gemacht?

so, hier mal wieder ein auszug aus der notes hilfe ...

@DbColumn( Klasse : Cache; Server : Datenbank ; Ansicht ; SpaltenNr )

wobei dann bei deinem beispiel
@DbColumn("":"NoCache";@DbName;1)
ja anscheinend die ansicht fehlt ...

wobei hier notes 6 glaube ich in der zwischenzeit sogar die möglichkeit bietet dies im eigenschaftenfenster (dialogliste) -> "Ansichtsdialog für Auswahl verwenden" anbietet

also wenn dies so gewünscht wird, halte ich die passwordabfrage im postopen des dokuments für sinnvoll. allerdings müsste man das einsehen über die dokumenten eigenschaften irgendwie verhindern (z. b. das feld irgendwie verschlüsseln).

wenn man mit lesernamen feldern arbeitet, braucht man prinzipiell kein passwortschutz (denke ich).

die frage die vielleicht bei diesem post jemand stellen sollte: "was soll überhaupt damit erreicht werden?"

die meisten probleme lösen sich von selbst wenn es für das gewünschte einen viel besseren lösungsansatz gibt! also, wie sieht den die anwendungsanforderung aus?