Problem in accessing Outlook

[NetworkeR]

Hello
To integrate contacts from Outlook into a comic Access 2003 a followed a guide from a site. I created a textbox and "click on" then I executed the procedure to retrieve contacts from Outlook. The Problem is: on each click the same message is appeared.

Error 'execution' -2147023170 (800706be)'
Standard Automation
Failure of remote procedure call.

The debugger highlights this following line

For ctrlists = 1 To mapi.AddressLists.Count

I tried to restart the PC but the problem was still the same. Do you have any solutions for this? Thanks in advance.

[chroma]

Hello,
I am surprised that you can run this code without warning . Outlook prevents the execution of such code to prevent a malicious code that can access your mail client. Otherwise, declare your variables As Object and replaces the instantiation via the keyword New a "CreateObject". Try the following and if you have any problem then do post back.

[NetworkeR]

Hello
I have a runtime error with Outlook running but I've never had this type of window for authorization to access Outlook. Regarding the execution of this code, the startup of the DB, Access asks me whether or not authorize the execution of code contained therein. Any idea about this or suggestion why the authorization windows is going on the startup?

[NetworkeR]

Hey
Sorry, but there's more, I change the error message and it reassures me.
With this code:

Sub listemail()
    Sun X As Long, I As Long
    Sun out As Object
    Sun has As Object, Mapi As Object
    Sun ctrlists As Integer
    Sun Info As MapiRecip
   
    Set out = CreateObject("Outlook.Application")
    Set mapi = out.GetNameSpace("MAPI")

Error denforcement '424 ':
Object required

Any guidance on this?

[chroma]

Hi
If you remove the reference, as I have suggested, then I think this statement is misunderstood:

Sun Info As MapiRecip

See if you agree to it or you have some different ideas in you mind.

[NetworkeR]

Hi
Thank you for your help. I have removed the reference and commented out the line that you have specified. And now it's info that is the problem:

 I = MAPIResolveName(0, 0, A.AddressEntries(X), 0, 0, Info)

Is that I have to use another way to retrieve contacts to transfer access to outlook successfully.