Hallo Notesgemeinde!
Ich hab vor einiger Zeit die Schablone des NAB mit eurer Hilfe dahingehend geändert, dass bei klick auf die Schaltfläche "in pers. Adressbuch kopieren" nach einer Kategorie abgefragt wird. Das funzt bei einem Dok ja hervorragend, wenn ich aber mehrere Doks markiere und draufklicke, wird bei jedem nach der Kategorie gefragt. Kann mir jemand helfen, dass er sich die Kategorie für alle markierten Doks merkt?
?
Sub ProcessDocument
Dim strCategorie As String
Set destnote = destview.GetDocumentByKey(Cstr(KeyValue(0)))
If destnote Is Nothing Then
Set destnote= sourcenote.CopyToDatabase(destdb)
Call destnote.RemoveItem("MessageStorage")
DocsCopied = DocsCopied + 1
strCategorie = Inputbox$("Bitte geben Sie die Kategorie ein.")
destnote.Categories = strCategorie 'Setze die Kategorie
Call destnote.Save(True,True,True)
Else
Select Case Messagebox(DisplayKey(0) & " besteht bereits, möchten Sie den Eintrag ersetzen?", _
4 + 32, "Copy")
Case 6
destnote.Remove(True)
Set destnote= sourcenote.CopyToDatabase(destdb)
Call destnote.RemoveItem("MessageStorage")
DocsCopied = DocsCopied + 1
strCategorie = Inputbox$("Bitte geben Sie die Kategorie ein.")
destnote.Categories = strCategorie 'Setze die Kategorie
Call destnote.Save(True,True,True)
Case 2
StopProcessing = True
Exit Sub
Case Else
If Not ProcessingGroup Then
Exit Sub
End If
End Select
End If
If FormType(0) = "Group" Then
g = Ubound(PendingGroups) + 1
Redim Preserve PendingGroups(g)
ListName = sourcenote.ListName
PendingGroups(g) = ListName(0)
End If
If ProcessingGroup Then destview.Refresh
End Sub
