Hallo zusammen,
ich brauche bitte einmal kurz Hilfe. Ich bin sicher, es ist nur ein ganz kleines Ding, aber ich komme nicht drauf und finde auch nix passendes..
Für unser kleines Start-Up nutzen wir einen Hosted-Exchange um mit Outlook (2016) auf Emails und Kontakte gemeinsam zugreifen zu können. Das klappt auch alles wunderbar. Jetzt möchte ich das geteilte, gemeinsame Adressbuch per VB ansprechen, um Kontakte auszulesen und zu bearbeiten.
Das klappt auf vielerlei Weise mit meinen privaten Kontakten, die ich unterschiedlich ansprechen kann, aber es gelingt mir nicht, auf unsere gemeinsamen Kontakte "Firmenkontakte" zugreifen zu können. Was muss ich ändern, um statt den Default-Kontakten mit Kontakten meiner Wahl arbeiten zu können?
Hier ist ein Beispiel (von vielen), wie ich auch meine Privatkontakte zugreifen kann:
Aufruf mit:
Code:
An welcher Stelle muss ich wie ändern, dass nicht das 'normale' Adressbuch zum Einsatz kommt, sondern das öffentliche, namens "Firmenkontakte"?
Vielen Dank für Eure Hilfe!
Gruß aus Bremen,
Hanseat
ich brauche bitte einmal kurz Hilfe. Ich bin sicher, es ist nur ein ganz kleines Ding, aber ich komme nicht drauf und finde auch nix passendes..
Für unser kleines Start-Up nutzen wir einen Hosted-Exchange um mit Outlook (2016) auf Emails und Kontakte gemeinsam zugreifen zu können. Das klappt auch alles wunderbar. Jetzt möchte ich das geteilte, gemeinsame Adressbuch per VB ansprechen, um Kontakte auszulesen und zu bearbeiten.
Das klappt auf vielerlei Weise mit meinen privaten Kontakten, die ich unterschiedlich ansprechen kann, aber es gelingt mir nicht, auf unsere gemeinsamen Kontakte "Firmenkontakte" zugreifen zu können. Was muss ich ändern, um statt den Default-Kontakten mit Kontakten meiner Wahl arbeiten zu können?
Hier ist ein Beispiel (von vielen), wie ich auch meine Privatkontakte zugreifen kann:
Aufruf mit:
Code:
VB.NET-Quellcode
- Private Sub AccessContacts(ByVal findLastName As String)
- Dim oApp As Outlook.Application = New Outlook.Application()
- Dim folderContacts As Outlook.MAPIFolder = oApp.ActiveExplorer().Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
- Dim searchFolder As Outlook.Items = folderContacts.Items
- Dim counter As Integer = 0
- For Each foundContact As Outlook.ContactItem In searchFolder
- If foundContact.LastName.Contains(findLastName) Then
- foundContact.Display(False)
- counter = counter + 1
- End If
- Next
- MsgBox("You have " & counter & " contacts with last names that contain " & findLastName & ".")
- End Sub
- Private Function GetDefaultAddressBook() As Outlook.MAPIFolder
- Dim oApp As Outlook.Application = New Outlook.Application()
- Dim ns As Outlook._NameSpace = oApp.GetNamespace("MAPI")
- If ns IsNot Nothing Then
- Try
- Return ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
- Finally
- ns = Nothing
- End Try
- End If
- Return Nothing
- End Function
An welcher Stelle muss ich wie ändern, dass nicht das 'normale' Adressbuch zum Einsatz kommt, sondern das öffentliche, namens "Firmenkontakte"?
Vielen Dank für Eure Hilfe!
Gruß aus Bremen,
Hanseat