Kan ikke finde odbc til outlook?

Det skulle kunne lade sig gøre via VBA fra Excel med en reference til OutLook.

Hvordan skal kontaktpersoner udvælges?

VBA er ikke så ringe, det kan også anvendes.

Det er alle kontaktpersoner, som er medlem af en distributionsliste, der hedder 'VIP'.

Output er alle felter om kontaktpersonerne. (Alternativt bare navn og email.)

Jeg har fået dette til at virke indtil videre, men den henter alle mine kontaktpersoner. Hvis jeg bare kan få den til at hente kontaktpersonerne herfra, så er den i vinkel:

\\Offentlige mapper - RMO@fffff.dk\Alle offentlige mapper\Salg\VIP Kunder


Sub Makro1()
On Error Resume Next
Const olFolderContacts = 10
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
objExcel.Cells(1, 1) = "Name"
objExcel.Cells(1, 2) = "E-mail"
objExcel.Cells(1, 3) = "Jobtitel"
objExcel.Cells(1, 4) = "Virksomhed"
i = 2
For Each objContact In colContacts
objExcel.Cells(i, 1).Value = objContact.FullName
objExcel.Cells(i, 2).Value = objContact.Email1Address
objExcel.Cells(i, 3).Value = objContact.JobTitle
objExcel.Cells(i, 4).Value = objContact.CompanyName
i = i + 1
Next
Set objRange = objWorksheet.UsedRange
objRange.EntireColumn.AutoFit
End Sub

lukker spm.