Per Script Feld Mailfile in pnames schreiben

[Bilbo10]

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

[LN4ever]

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.

[Bilbo10]

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.