Domino 9 und frühere Versionen > ND6: Entwicklung

lokale Arbeitsumgebung analysieren

(1/2) > >>

joet72:
Hallo,

Ich möchte die lokale Arbeitsumgebung der User über script auslesen. Besonders interessiert mich das Feld "Mailtype" (0 oder 1; auf Server oder lokal) und diese Informationen in eine Mail-In Datenbank zurücksenden.

Hintergrund: Ich möchte wissen, wer zur Zeit lokal arbeitet oder direkt am Server.

Hat da jemand einen Lösungsansatz ? Danke im voraus.

bikerboy:
Du musst noch ein bisschen genauer werden.

Aber zu dem was ich weiss.

Du kannst dir über die notes.ini die aktuelle Umgebung des User geben lassen, das names.nsf liegt ja eigentlich auch immer an der selben Stelle. Dort öffnest du einfach über die Ansicht ($Locations) das richtige Dokument und liesst es aus. Sollte kein grosser Akt sein. Aber wie willst du die Informationen sammeln.

Idee wäre meiner Meinung nach ein Knopf den du in ner Mails verschickst und der User drücken musst, der Knopf sammelt deine Informationen und schick sie dir per Mail.

LN4ever:
@Suset(@MailDbName;1) liefert dir einen Leerstring, wenn die lokale Mail-DB genutzt wird und den Servernamen, wenn die Server-Mail-DB genutzt wird.

Vielleicht hilft die auch die undokumentierte Funktion @LocationGetInfo([HomeServer]) ein wenig weiter. Siehe auch z.B.

http://news4notes.com/web/dokumente/notes_undocumented_formula.html

Gruß

Norbert

m3:

--- Zitat von: bikerboy am 28.03.08 - 15:24:14 ---Du kannst dir über die notes.ini die aktuelle Umgebung des User geben lassen, das names.nsf liegt ja eigentlich auch immer an der selben Stelle.
--- Ende Zitat ---
ROTFL. Das glaub ich nicht, Tim. Zumindest würd ich mich nicht drauf verlassen. ;)

Worn:
Schaltfläche mit dem Code:


--- Code: ---
Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim s As New NotesSession
Dim view As NotesView
Dim entry As notesviewentry
Dim doc As notesdocument
Dim i As Integer
Dim entries As NotesViewEntryCollection



Dim privates As String
Forall db In s.AddressBooks

If db.IsPrivateAddressBook Then
Call db.open("", "") ' Must open database
If db Is Nothing Then
Msgbox "DB nicht gefunden"
Exit Sub
End If

Set view = db.GetView("$Locations")
If view Is Nothing Then
Msgbox "Ansicht nicht gefunden"
Exit Sub
End If

Set entries=view.AllEntries
For i=0 To entries.Count
Set entry=entries.GetNthEntry(i)
If Not entry Is Nothing Then
                               
                                // Hier entsprechende Arbeitsumgebung suchen
und dann das Feld auslesen und per Mail die Antwort senden....

End If
Next
End If
End Forall

End Sub


--- Ende Code ---


Meine ich das ich den Schnippsel da mal verwendet hab (für was ähnliches)...

Grüße
Worn

Navigation

[0] Themen-Index

[#] Nächste Seite