Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Bilbo10 am 15.07.06 - 19:34:07
-
Hallo zusammen!
Ich möchte aus einer Mitarbeiter.DB "office.nsf" die hinterlegte UserID
in das Feld "Mailfile" im persönlichen Adressbuch der Mitarbeiter schreiben.
Folgendes Script habe ich verwendet um das statisch zu machen.
In Script habe ich leider nicht viel Ahnung.
Hier schreibt das Script den Wert "mail\cv76856" in das Feld mailfile im persönlichen Names. Nun soll das Script prüfen wer angemeldet ist und den
Namen mit dem zugehörigen Namen in der office.nsf vergleichen und dann die zugehörige UserID, die ist z.B. cv78656, mit dem Zusatz "mail\*******.nsf"
in das Feld Mailfile schreiben.
Folgende Ansicht besteht in der Ansicht office: (PNAMESDBLOOKUP)
Ein Screenshot der Ansicht habe ich angehangen.
Für Unterstützung und Hilfestellungen wäre ich sehr dankbar.
Sub Click(Source As Button)
'Mailfile setzen
mailfile="mail\CV76856.NSF"
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Dim tmp As String
Dim Names As String
tmp = session.GetEnvironmentString( "NAMES" , True)
If Instr(tmp,",") <> 0 Then
names=Trim(Left$(tmp,Instr(tmp,",")-1))
Else
names= Trim(tmp)
End If
Dim oadressbuch As New NotesDatabase( "",names)
If oadressbuch.ISOPEN=False Then
Messagebox twoLiner, MB_OK, "Nicht vorhanden"
End If
Dim view As notesview
Set view= oadressbuch.getview("Locations")
Set doc= view.getfirstdocument
Do While Not doc Is Nothing
doc.mailfile=mailfile
Call doc.save(True, True)
Set doc = view.getnextdocument(doc)
Loop
End Sub
-
Bevor ich eine Zeile Code kommentiere, muß ich dich fragen, ob du nur noch Untertassen im Schrank hast. Bitte nimm das nicht persönlich, aber das Unheil, das du mit der Umsetzung deiner Idee in der von dir angerissenen Form, anrichten würdest, wird deine Vorstellungskraft übersteigen.
Holt euch einen erfahrenen Berater, ein gutes Tool (z.B. icodex) und macht eure Maildatei-Umbenennung in einem abgestimmten Projekt.
Ab dem Zeitpunkt der Ausführung deines Codes kann der Mitarbeiter keine Dokumente mehr weiterleiten. Nach der Umbenennung der Datei funktioniert seine gewohnte Mail-"Kachel" nicht mehr. Wie wollt ihr Mitarbeiter im Urlaub, die krank oder im Ausland sind, erreichen ? Was macht ihr mit lokalen Repliken (die heißen bestimmt nicht so wie du es in die Arbeitsumgebung schreiben willst, und ich weiß nicht, wie du das anschließend noch herausfinden willst).
Bitte, bitte: mach es nicht alleine - und keinesfalls so, wie du es im Moment planst.
-
Moin!
Die Tassen sind noch da wo Sie hingehören..... Wir setzen ein Foyer ein, somit das Kachelthema vom Tisch.
Die Umstellung erfolgt am Wochenende (Kein Userzugriff)
Bevor das Notes-Script läuft, läuft die Umstellung auf Fileebene,
somit Aufruf und Weiterleitung okay.
Keine lokale Repliken, etc.
Der Mitarbeiter bekommt tendenziell nichts davon mit.