Authorenfeld mit neuem Wert belegen

Sub Initialize
	Dim session As New notessession
	Dim doc As notesdocument
	Dim dc As notesdocumentcollection
	Dim db As notesdatabase
	Dim strFieldName As String
	Dim strNewValue As String
	Dim item As NotesItem
	Dim Gefunden As Variant
	Dim FieldFound As Variant
	Dim counter As Integer
	Dim intIndex As Integer
	Dim strArray() As String
	Dim j As Integer

	strFieldName = Inputbox ("Enter a field name", "Field Name", "" , 0 , 0  )
	If strFieldName = "" Then
		Messagebox "Please enter a field name!", 16, "Error Enter Fieldname"
		Exit Sub
	End If


	strNewValue = Inputbox ("Enter the new value", "New value", "" , 0 , 0  )
	If strNewValue = "" Then
		Messagebox "Please enter a value!", 16, "Error new value"
		Exit Sub
	End If


	Set db = session.currentdatabase
	Set dc = db.UnprocessedDocuments

	For j =  1 To dc.Count
		Set doc = dc.GetNthDocument(j)

		Gefunden = False
		counter = 0

		FieldFound = False
          ' Prüfen ob der gesuchte Feldname im Dokument vorhanden ist
		If Not (doc Is Nothing) Then
			Forall itemName In doc.items
				If itemname.name = strFieldName Then
					FieldFound = True
					Exit Forall
				End If
			End Forall
		End If

		If FieldFound = False Then
			Goto NextDoc
		End If

          ' Auf das Feld positionieren
		Set item = doc.getFirstItem(strFieldName)

		Gefunden = False
          ' Wenn gefunden dann Wert ersetzen
		If Gefunden Then
			Redim strArray(1 To counter)
			counter = 0
			Forall x In item.values
				counter = counter + 1
				If counter = intIndex Then
					strArray(counter) = strNewValue
				Else
					strArray(Counter) = x
				End If
			End Forall
			item.values = strArray
		End If

		Call doc.Save(True,False)
NextDoc:
	Next
End Sub