' #ScriptName: LookupColleagues ' #Description: Bildet eine Act!-Suche auf alle Kontakte, die zu der gleichen Firma verlinkt sind, wie der aktuelle Kontakt. ' (Über die Eigenschaft "Text" zu der Befehlsschaltfläche kann die Beschriftung der Schaltfläche verändert werden.) ' #Author: Robert Schellmann ' #Copyright: Melville-Schellmann Dim sAppName As String = "LookupColleagues" Dim oCurrentContact As Act.Framework.Contacts.Contact Dim oContacts As Act.Framework.Contacts.ContactList Dim oCompany As Act.Framework.Companies.Company Dim aOneGUID(0) As System.Guid oCurrentContact = ACTApp.ApplicationState.CurrentContact If oCurrentContact.CompanyID.Equals(System.Guid.Empty) Then MsgBox("Kontakt ist mit keiner Firma verlinkt.", MsgBoxStyle.Information, sAppName) Exit Function End If aOneGUID(0) = oCurrentContact.CompanyID oCompany = ACTApp.ActFramework.Companies.GetCompaniesByID(Nothing, aOneGUID)(0) oContacts = oCompany.GetContacts(Nothing) If oContacts.Count = 1 Then MsgBox(String.Format("Der Firma '{0}' ist nur der eine Kontakt zugeordnet.", oCompany.Name), MsgBoxStyle.Information, sAppName) Exit Function End If ActApp.UIContactManager.ShowListView() ActApp.UILookupManager.LookupContacts(oContacts) Begriff: {0} {0} False True True False False 1 System Kollegen-Suche MiddleCenter 160; 270 False