Hi all,
ich möchte 2 Domänen zusammenführen, und habe mir die Anleitung von notes.net "Merging Domino Domains into one" besorgt. Darin wird beschrieben, wie man eine Email an die User schickt, die eine Schaltfläche beinhaltet um das persönliche Adressbuch zu ändern.
Wenn ich diese Mail versende, und der Empfänger die Schaltfläche betätigt, kommt die Fehlermeldung:
Your Name & Adress book is missing a required view.
Ich habe die Meldung im Quelltext gefunden, kann aber nicht finden, warum sie ausgegeben wird, bzw. wie ich das korrigieren kann.
Bitte Hilfe, Danke
Hier der Quelltext:
Dim session As New NotesSession
Dim dbNab As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim sNamesLine As String
Dim nPos As Integer
Dim sDomainValue As String
Dim bNeedsUpdate As Integer
Dim bLocationModified As Integer
On Error Resume Next
' first, get the local NAB
sNamesLine = session.GetEnvironmentValue("names",True)
nPos = Instr(sNamesLine, ",")
If nPos > 0 Then
sNamesLine = Left$(sNamesLine, nPos-1)
Else
sNamesLine = "names.nsf"
End If
Set dbNab = New NotesDatabase( "",sNamesLine )
If Not(dbNab.isOpen) Then
Messagebox("Could not locate your Name & Address book.")
Exit Sub
End If
' update all location documents
Set view = dbNab.GetView(VIEW_LOCATION_NAME)
If (view Is Nothing) Then
Messagebox("Your Name & Address book is missing a required view.")
Exit Sub
End If
Set note = view.GetFirstDocument
While Not(note Is Nothing)
sDomainValue = note.Domain(0)
If Lcase(sDomainValue) = Lcase(OLD_DOMAIN_NAME) Then
note.Domain = NEW_DOMAIN_NAME
Call note.save(True,False)
bLocationModified = True
End If
Set note = view.GetNextDocument(note)
Wend
If (bLocationModified) Then Messagebox("You need to restart Notes in order for these changes to take place.")
' update all connection documents
Set view = dbNab.GetView(VIEW_CONNECTION_NAME)
If (view Is Nothing) Then
Messagebox("Your Name & Address book is missing a required view.")
Exit Sub
End If
Set note = view.GetFirstDocument
While Not(note Is Nothing)
bNeedsUpdate = False
sDomainValue = note.SourceDomain(0)
If Lcase(sDomainValue) = Lcase(OLD_DOMAIN_NAME) Then
note.SourceDomain = NEW_DOMAIN_NAME
bNeedsUpdate = True
End If
sDomainValue = note.DestinationDomain(0)
If Lcase(sDomainValue) = Lcase(OLD_DOMAIN_NAME) Then
note.SourceDomain = NEW_DOMAIN_NAME
bNeedsUpdate = True
End If
If (bNeedsUpdate) Then Call note.save(True, False)
Set note = view.GetNextDocument(note)
Wend
