views:

331

answers:

0

I have a vb 6 application whic fetch the emails from Exchange mailbox and copy them in to text file. This was working fine for me. I have a requirement to change the communication protocol to "RPC over https". After implemnting this I am able to login to the mail box throug MS outlook with RPc over https protpcol. My application is not able to fetch emails from inbox. The error message is "The information store could not be opened. [MAPI 1.0 - [MAPI_E_LOGON_FAILED(80040111)]]"

below I have give the pice of code which I used in previous to connect with mailbox.

Please help me to resolve this

Dim mpsSession As MAPI.Session
Dim mpiinboxfolder As MAPI.InfoStore

strProfileInfo = strServer + vbLf + strMail
mpsSession.Logon "", "", False, True, 0, True, strProfileInfo
'Parameters in the above function call(profilename,profilepassword,showDialog,NewSession,ParentWindow,NoMail,ProfileInfo)'
set mpiinboxfolder = mpsSession.GetInfoStore(mpsSession.Inbox.StoreID)

The last line causing the above mentioned error "The information store could not be opened. [MAPI 1.0 - [MAPI_E_LOGON_FAILED(80040111)]]"