このボタンにより、ローカルディレクトリ内の個人アドレス帳の [連絡先] ビューにアクセスして、名前の [FullName] アイテムと [InternetAddress] アイテムの値を返します。
Dim session As NotesSession
Dim directory As NotesDirectory
Sub Initialize
Set session = New NotesSession
Set directory = session.GetDirectory("")
End Sub
Sub Click(Source As Button)
Dim nav As NotesDirectoryNavigator
Dim msg As String
Dim value As Variant
Dim names As String
Dim items( 1 To 2) As String
items(1) = "FullName"
items(2) = "InternetAddress"
names = Inputbox$("Enter last name")
If names = "" Then Exit Sub
Set nav = directory.LookupNames("My Contacts", names, items, True)
If nav.MatchLocated Then
Do
msg = msg & Cstr(nav.CurrentMatch) & | |
value = nav.GetNthItemValue(1)
msg = msg & nav.CurrentItem & |=| & Cstr(value(0)) & | |
value = nav.GetNthItemValue(2)
msg = msg & nav.CurrentItem & |=| & Cstr(value(0)) & |
|
Loop While nav.FindNextMatch
Else
msg = "No matches"
End If
Msgbox msg,, "My Contacts"
End Sub