Accessing Inbox from Access Application

[terre]

I am trying to access the inbox from Outlook from Access.

I found this code, but when I run it I get A message

Error 3170 Couldn't find installable ISAM.

Any suggestions?

Function AttachMail()
Dim db As Database
Dim td As TableDef
On Error GoTo Errorhandler
Set db = CurrentDb()
Set td = db.CreateTableDef("tblInbox&quot

' Substitute your own MAPILEVEL, DATABASE and PROFILE arguments.
td.Connect = "Exchange 4.0;MAPILEVEL=Mailbox - Nancy Davolio|;"
td.Connect = td.Connect & "DATABASE=C:\Program Files\Microsoft "
td.Connect = td.Connect & "Office\Office\Samples\Northwind.mdb;"
td.Connect = td.Connect & "PROFILE=Microsoft Outlook"

' Substitute the name of the folder you want to attach.
td.SourceTableName = "Inbox"

db.TableDefs.Append td
Application.RefreshDatabaseWindow
MsgBox "Table Appended!"
Exit Function
Errorhandler:
Msgbox "Error " & Err & " " & Error
Exit Function
End Function

 

[BillPower]

This is quite a common problem, for a detailed explanation and the solution look at this site:

http://support.microsoft.com/default.aspx?scid=KB;en-us;q161173

I notice that you're using Exchange 4.0 so you will need to substitute MSExch35.dll with MSExch40.dll

 

[mp9]

Are you running Access 97? If so, this error message would suggest you haven't downloaded the free Microsoft Exchange/Outlook import/attach wizard (this functionality is part of the core Access product in A2000 and above). To download the add-in, browse to

http://msdn.microsoft.com

and search for wzmapi80.exe

Note that each user using the database will have to install the add-in on his/her PC.

http://www22.brinkster.com/accessory/