' $System.Access Read Address $Office.Name - Address Book Search ' If $GID = 0 ' $Pe = 1 ' Set $Items = $Address.ItemsPersonal ' Set $Cards = $Login.Address.Cards ' Set $View = $Login.Address.ViewPersonal ' Else ' Set $Items = $Address.Items ' Set $Cards = $Address.Cards ' Set $View = $Login.Address.View ' EndIf
' If $Pe Personal ' EndIf ' If $Text Address Book Search Results ' Else Address Book Search ' EndIf

' If ! $Pe ' EndIf
Blue Bullet Group
Blue Bullet Keyword
Last Name First Name Middle Name Company Email
' For Each $Item in $Items ' $On = $System.GetParameter $Item.ID ' If $On or $All $Item.Name ' Else $Item.Name ' EndIf ' Next ' If $Text ' Set $r = $Cards.RowSet ' $r.GID = $GID ' $r.SearchText = $Text ' If $LastName or $All ' $r.SearchItems.Add LastName ' EndIf ' If $FirstName or $All ' $r.SearchItems.Add FirstName ' EndIf ' If $MiddleName or $All ' $r.SearchItems.Add MiddleName ' EndIf ' If $Company or $All ' $r.SearchItems.Add Company ' EndIf ' If $Mail or $All ' $r.SearchItems.Add Mail ' EndIf ' For Each $Item in $Items ' $On = $System.GetParameter $Item.ID ' If $On or $All ' $r.SearchItems.Add $Item.ID ' EndIf ' Next

' $Com = 0 ' $Count = 0 ' $C = $CID ' For Each $Card in $r ' $CID = $Card.CID ' Inc $Count ' Next ' $CID = $C
' If ! $Count

Can not find any Address records. ' EndIf ' EndIf

[Address List] [Top Page] [Help]