downforze
2014-07-15, 16:11:33
Hallo,
ich muß eine Verteilerliste im Outlook-Adressbuch finden. Für normale Kontakte mit Vor und Nachname klappt das sehr gut. Leider kann ich so keinen Verteilerliste finden.
Mir geht es konkret um die Verteilerliste "Administratoren" (Symbol sind zwei Köpfe im Adressbuch).
Dim objOutlookApp As Microsoft.Office.Interop.Outlook.Application
Dim objOutlookMAPI As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim objOutlookKontakt As Microsoft.Office.Interop.Outlook.ContactItem
Dim objOutlookNamespace As Microsoft.Office.Interop.Outlook.NameSpace
objOutlookApp = CreateObject("Outlook.Application")
objOutlookNamespace = objOutlookApp.GetNamespace("MAPI")
objOutlookMAPI = objOutlookNamespace.GetDefaultFolder(OlDefaultFolders.olFolderContacts)
Dim suchen As String = "[FirstName] = " & "Max" & " and [LastName] =" & "" & "Mustermann" & ""
objOutlookKontakt = objOutlookMAPI.Items.Find(suchen)
For i = 0 To objOutlookKontakt.ItemProperties.Count - 1
Debug.Print(objOutlookKontakt.ItemProperties(i).Value.ToString & " : " & objOutlookKontakt.ItemProperties(i).Name)
Next
ich muß eine Verteilerliste im Outlook-Adressbuch finden. Für normale Kontakte mit Vor und Nachname klappt das sehr gut. Leider kann ich so keinen Verteilerliste finden.
Mir geht es konkret um die Verteilerliste "Administratoren" (Symbol sind zwei Köpfe im Adressbuch).
Dim objOutlookApp As Microsoft.Office.Interop.Outlook.Application
Dim objOutlookMAPI As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim objOutlookKontakt As Microsoft.Office.Interop.Outlook.ContactItem
Dim objOutlookNamespace As Microsoft.Office.Interop.Outlook.NameSpace
objOutlookApp = CreateObject("Outlook.Application")
objOutlookNamespace = objOutlookApp.GetNamespace("MAPI")
objOutlookMAPI = objOutlookNamespace.GetDefaultFolder(OlDefaultFolders.olFolderContacts)
Dim suchen As String = "[FirstName] = " & "Max" & " and [LastName] =" & "" & "Mustermann" & ""
objOutlookKontakt = objOutlookMAPI.Items.Find(suchen)
For i = 0 To objOutlookKontakt.ItemProperties.Count - 1
Debug.Print(objOutlookKontakt.ItemProperties(i).Value.ToString & " : " & objOutlookKontakt.ItemProperties(i).Name)
Next