Hello

In Access it is possible to relate or/and import a table from Outlook(like Contacts).
So now I have found out how to connect to Outlook an all, but I have no clue how to make the same connection as Access does, when I do it manually.
That means that after importing the Contacts, a change in the Outlook will not change my Access table, because its a copy - Access has another way to connect to Outlook, it even shows up an Outlook Exchange symbol..
((In Access)for this make a right klick(in the window which shows the tables), then choose relate table(I have a german version, don't really know how it is called in english),
choose the filetype "Outlook()" - then use the wizard.)


Thanks; sorry for the text, my native language isn't english, so I try to explain sometimes to long, other times to short. lol :-)

Talking to myself
Where I found it:
http://msdn.microsoft.com/library/de...olexcoutlk.asp
What I needed:
Sub OutlookLink()
    Dim dbs As database
    Dim tdf As TableDef
    Dim str As String
    Const conTableExists = 3012
    On Error GoTo Link_Err
    Set dbs = CurrentDb
    str = "Outlook 9.0;MAPILEVEL=Öffentliche Ordner|Alle Öffentlichen Ordner\Bau- Umwelt- und Wirtschaftsdepartement\Raumentwicklung, Wirtschaftsförderung und Geoinformation\Geoinformation\;" _
         & "TABLETYPE=0;" _
         & "DATABASE=C:\DOKUME~1\dmathis\LOKALE~1\Temp\" & dbs.Name & ";" '_
         '& "PROFILE=David;PWD=Cisco;"
     Set tdf = dbs.CreateTableDef("Outlook Contacts")
    tdf.Connect = str
    tdf.SourceTableName = "allg. Kontakte/Verteilerlisten"
    dbs.TableDefs.Append tdf
    RefreshDatabaseWindow

Link_Exit:
    dbs.Close
    Set dbs = Nothing
Exit Sub

Link_Err:
    If Err = conTableExists Then
        MsgBox "Die Tabelle Outlook Contacts existiert bereits."
        Resume Link_Exit
    Else
        MsgBox "Error: " & Err.Number & ": " & Err.Description
    End If
End Sub