' Funktion: Kontaktsuche erstellen zu allen Kontakten, die mit der Firma des aktuellen Kontaktes verlinkt sind. ' Autor: Robert Schellmann, rs@melville-schellmann.de ' Datum: 16.02.2010 Dim sAppName As String = "Suche Kolleg(inn)en" 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 Standard Kolleg(inn)en MiddleCenter 160; 270 Zeigt alle Kollegen und Kolleginnen dieses Kontaktes an. False