Access and Outlook

[Midas NDT Sales]

Hi,

I am trying to start a database that uses contact details from my Outlook
contacts information. Can anyone suggest how to look up all records in the
Outlook contacts and make a table in access with them that includes an
individual reference and then regularly look up new entries in the Outlook
contacts and add these records to the table.

Any help would be greatly appreciated.

[Rick Wannall]

Just so you know: You can link directly to data in Exchange by using File |
Get Data | Link Tables...

In the dialog box that opens, open the "Files of Type" dropdown and select
Exchange().

If you're goin through Exchange, that might suggest some possibilities.

If you're on a local machine, you can get to your own Outlook stores by
going into a module, using Tools | References, and checking the box next to
Microsoft Outlook x.x Object Library. This gives you a way to get to that
data. You'd have to write code to do the kinds of correspondence checking
you refer to.

Take a look at one of these for a start.

For your local stores, this should give you some food for thought:

http://support.microsoft.com/?kbid=313787

[Ron2006]

If you link it, you have it and you don't have to make another table.

[Midas NDT Sales]

This would link the table fine, but my problem is that there would be no
unique identifier, hence why I need a primary key or something similar.
There may be seven John Smiths in the table and if I wish to attach a piece
of a data to one of them I cannot differentiate.

"Ron2006" <ro******@hotma il.com> wrote in message
news:11******** **************@ j55g2000cwa.goo glegroups.com.. .

If you link it, you have it and you don't have to make another table.

[Ron2006]

Given that constraint I found this from another post about Accessing
Outlook via Automation to get all fields:
This may give you what you need.
=============== =============== =============
You normally don't even get all of the built in fields when linking to
Outlook much less the user defined ones. They can be gotten via
automation
code though.

Below is a snippet from one of my routines where I am looking at a
public
contacts folder on our network. Within the For-Each loop you can see
where
I am looking at individual properties of each Contact object. The
built in
ones can be referenced directly, but if you notice we have one
user-defined
field named "FAX" (the last one) and to access that I use the syntax...

..UserPropertie s("FAX")
That same syntax would be used for all user defined fields.
***Start Snippet ****
Dim LoopCnt As Integer
Dim gobjOutlook As Object
Dim gobjNameSpace As Object
Dim objContactFolde r As Object
Dim objContact As Object
Dim AddEdit As String
Dim SuffixVar As String
Dim ObjContactItems As Object
Dim MyContactSearch Items As Object
'See if we have a Vendor Record Present. If not, cancel
If Len(Nz(Me.VMVN, "")) = 0 Then
MsgBox "No Vendor Information.", vbExclamation, "Operation
Cancelled"
Else
Set gobjOutlook = CreateObject("O utlook.Applicat ion")
Set gobjNameSpace = gobjOutlook.Get Namespace("MAPI ")
Set objContactFolde r = GetFolder("Publ ic Folders\All Public
Folders\Purchas ing\Supplier Contacts")
Set ObjContactItems = objContactFolde r.Items
Set MyContactSearch Items = ObjContactItems .Restrict("[CustomerID] =
'" &
Trim(Me.VMVN) & "'")
For Each objContact In MyContactSearch Items
With objContact
.CompanyName = Trim(Me.VMNAME)
.CustomerID = Trim(Me.VMVN)
.User4 = Trim(Me.VMVN)
.BusinessAddres s = Trim(Me.VMAD1) & vbCrLf & Trim(Me.VMAD2)
&
vbCrLf & _
Trim(Me.VMCITY) & ", " & Trim(Me.VMST) &
" "
& Trim(Me.VMZIP)
.OtherAddress = Trim(Me.VMRAD1) & vbCrLf & Trim(Me.VMRAD2)
&
vbCrLf & _
Trim(Me.VMRCTY) & ", " & Trim(Me.VMRST) & "
" &
Trim(Me.VMRZIP)
.BusinessTeleph oneNumber = Trim(Me.[VMTEL_])
.UserProperties ("FAX") = Trim(Me.VMFAX_)
.Save
End With
Next objContact
End If
--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com
=============== =============== ==========