Avatar billede rasmus1234 Nybegynder
14. februar 2012 - 20:44 Der er 3 kommentarer og
1 løsning

Kan ikke finde odbc til outlook?

Jeg ønsker at sammenkoble (odbc) et excel-ark med kontaktpersoner fra outlook. Altså, så jeg altid kan åbne mit excel-ark og trække dataen/kontaktpersonerne over.

Jeg kan godt lave sammenkoblingen via MS Access, hvor jeg kan vælge Outlook som datakilde, så her behøver jeg ikke engang at definere en odbc kilde.

Håber i kan hjælpe.
//Rasmus
Avatar billede supertekst Ekspert
14. februar 2012 - 23:19 #1
Det skulle kunne lade sig gøre via VBA fra Excel med en reference til OutLook.

Hvordan skal kontaktpersoner udvælges?
Avatar billede rasmus1234 Nybegynder
15. februar 2012 - 08:02 #2
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.)
Avatar billede rasmus1234 Nybegynder
15. februar 2012 - 08:51 #3
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
Avatar billede rasmus1234 Nybegynder
15. marts 2012 - 07:59 #4
lukker spm.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Computerworld tilbyder specialiserede kurser i database-management

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester