Domino 9 und frühere Versionen > Entwicklung

3 fragen

<< < (4/4)

Axel:
Hi,

sorry, "Fehler vom Amt".

So sollte es gehen:

Set dc = db.Search("@Contains(FirstName; """ & nn & """)", Nothing, 0)

Welche names.nsf ist denn gemeint? Das öffentliche Adressbuch oder das persönliche?

Es gibt in der NotesDatabase-Klasse die Eigenschaften IsPublicAddressBook und IsPrivateAddressBook. Schau mal in die Designer-Hilfe.


Axel

Lorenz:
grandios! jetzt funktionierts!!!

womit ich jetzt diese drei fragen (oder warens mehr) schliesse.

@axel

das öffentliche. ich werd mal in der hilfe suchen.

Axel:
Hi,

wenn's das öffentliche sein soll, dann hab ich viellecit was für dich.
Das ist Code aus einem Hotspot, der den Adressauswahldialog anzeigt, und anhand des gewählten Namens das Kurzzeichen ausliest und in ein Feld schreibt.


--- Zitat ---Sub Click(Source As Button)
   
   Dim view As NotesView
   Dim picklist As Variant
   Dim namesdoc As NotesDocument
   Dim item As NotesItem
   Dim vTmp As Variant   
   Dim i As Integer
   Dim books As Variant
   Dim done As Integer
   Dim iMaxValue As Integer
   
'Suchen des öffentlichen Adressbuches und Zugriff auf die entspr. Ansicht   
   done = False
   books = session.AddressBooks
   Forall b In books
      If (b.IsPublicAddressBook) And (Not done)Then
         Call b.Open( "", "" )
         Set view = b.GetView("($VIMPeople)")
         done = True
      End If
   End Forall
   
   If done Then
      picklist = ws.Pickliststrings(0, False)
      
      If Isempty(picklist) Then Exit Sub
      
      iMaxValue = Ubound(picklist)      
      For i = 0 To iMaxValue
         macrostr$ = | @Name([Abbreviate]; "|+ picklist(i) +|")|
         vTmp = Evaluate(macrostr$)
         
         Set namesdoc = view.GetDocumentByKey(vTmp(0))
'Separierung des Kurzzeichens aus der Internetadresse         
         If Not (namesdoc Is Nothing) Then
            If (namesdoc.InternetAddress(0) <> "") And (Instr(namesdoc.InternetAddress(0), "@") > 0) Then
               vTmp = Evaluate(| @ProperCase("| + Left$(namesdoc.InternetAddress(0), Instr(namesdoc.InternetAddress(0), "@") - 1) + |")|)
               Set item = doc.ReplaceItemValue("Betreuer",Cstr(vTmp(0)))
            Else
               Messagebox "Das Kurzzeichen für " & vTmp(0) & " kann nicht ermittelt werden" & Chr$(10) & _
               "Der Eintrag wird übersprungen", 48, "Adressen"               
            End If  'If namesdoc.InternetAddress(0) <> ""  And ... Then
         Else
            Messagebox "Der Eintrag für " & vTmp(0) & " kann im Adressbuch nicht gefunden werden", 48, "Adressen"
         End If
      Next
   Else
      Messagebox "Funktion bei lokalem Betrieb nicht verfügbar.", 48, "Adressen"      
   End If
End Sub

--- Ende Zitat ---

Es ist nicht genau was du suchst, aber es zeigt die Verwendung der Eigenschaft IsPublicAdressBook.

Axel

Navigation

[0] Themen-Index

[*] Vorherige Sete