Exchange Server

gsivakanthan · Guest

Hi

We have exchange server 2003 and ISS server version 5.00

I am developing small web base email application using CDO (1.21) and
language I used is vb.net

Currently my web application is hosted in my local ISS but exchange server
is in different server.

I have set my virtual directory authentication mode to integrated windows
authentication.

Web application is hosted in my local PC so that when I access the site I
can see the emails, but some one access from their PC, CDO not allowing to
access emails and gives following error.

The information store could not be opened. [MAPI 1.0 -
[MAPI_E_LOGON_FAILED(80040111)]]

This is my coding
=================

Dim objEmail As New MAPI.Session
Dim objFolder As MAPI.Folder
Dim objMessages As MAPI.Messages
Dim objMember As MAPI.Message
Dim obja As MAPI.Session
Dim i As Integer
Const CdoPR_MESSAGE_CLASS = &H1A001E
Const PR_IPM_PUBLIC_FOLDERS_ENTRYID = &H66310102
Dim strProfileInfo As String
Dim strUser As String

Dim strPublicRootID As String
Dim objOtherFolder As Object
Dim objTopFolder As Object
Dim objFolderTemp As Object

strUser = User.Identity.Name
While InStr(strUser, "/")
strUser = Mid(strUser, InStr(strUser, "/") + 1)
End While
While InStr(strUser, "\")
strUser = Mid(strUser, InStr(strUser, "\") + 1)
End While

strProfileInfo = "LSEXC01.unitedclearing.com" & vbLf & strUser

objEmail = New MAPI.Session
objEmail.Logon("", "", False, True, 0, True, strProfileInfo)

''.unitedclearing.com
objFolder = objEmail.Inbox
If objFolder Is Nothing Then
MsgBox("Failed to open Inbox")
Exit Sub
End If

objEmail.Logoff()
objEmail = Nothing

If any body know the answer please help me

Thanks

Best regards,
Siva

Tom Rizzo [MSFT] · Guest

You can't hop from IIS to Exchange using Windows based authentication unless
you setup Kerberos delegation.

I'd recommend you use basic authentication with SSL.

Tom

--
Looking for a good book on programming Exchange, Outlook, ADSI and
SharePoint? Check out http://www.microsoft.com/MSPress/books/5517.asp

"gsivakanthan" <gsivakanthan@discussions.microsoft.com> wrote in message
news:51D0A61A-9540-48AD-89B9-D4EC9F6D8AA7@microsoft.com...

gsivakanthan · Guest

Thank you very much for your kind reply,
using using Windows based authentication its working now

BR
Siva

"Tom Rizzo [MSFT]" wrote:

Edbrown · Guest

How did you get this to authenticate....I have been trying for ever to get
IIS to talk to Cdo1.2 ...please help

"gsivakanthan" wrote:

gsivakanthan · Guest

HI Edbrown,
Which language and platform you are using to develop this?

Look at following sites
http://www.msd2d.com/wb/default.asp?action=9&read=27940&fid=2#28320
http://www.cdolive.com/asp2.htm
http://support.microsoft.com/?kbid=181739
http://forum.cdolive.com

if you come cross any problem, fell free to come to me

Good Luck
Siva Sharma

"Edbrown" wrote:

Edbrown · Guest

Hi Siva,

I am using VB.Net . The 5.0 IIS Server is on a Windows 2000 box. My 2000
Exchange server is on a separate server. Both machines are on the same
domain and are logged in to an account with full access. I am using
anonymous login: objEmail.Logon("", "", False, True, 0, True,
strProfileInfo). I am making this call thru a Web service. Can you help me
......the only way I can get this same code to work is to have the web service
call a COM+ Dll.

Thanks

Ed

"gsivakanthan" wrote:

gsivakanthan · Guest

HI Edbrown,

According to my knowledge If IIS and Exchange server are setting in 2
different server then you have to user Basic authentication. (You can’t use
anonymous login)

First doesn’t use web service. Write a vb.net code in aspx page and try to
access and see.

Please go through the entire web sites which I have mentioned in previous
thread.

BR
Siva sharma

"Edbrown" wrote:

Edbrown · Guest

Hi Siva,

I looked at the links you provided and 2 of them give me an invalid page.
I have tried to look for some info on how to get authentication to work and
cannot find any. Can you send a small VB code snippet along with the actual
settings needed on the IIS 5.0 side. I'm new to all of this so please bare
with me and thanks for all your help.

Ed

"gsivakanthan" wrote:

gsivakanthan · Guest

HI

Here we go

Dim objEmail As New MAPI.Session
Dim objFolder As MAPI.Folder
Dim objMessages As MAPI.Messages
Dim objMember As MAPI.Message
Dim obja As MAPI.Session
Dim i As Integer
Const CdoPR_MESSAGE_CLASS = &H1A001E
Const PR_IPM_PUBLIC_FOLDERS_ENTRYID = &H66310102
Dim strProfileInfo As String
Dim strUser As String

Dim strPublicRootID As String
Dim objOtherFolder As Object
Dim objTopFolder As Object
Dim objFolderTemp As Object

'strUser = Request.ServerVariables("AUTH_USER")
strUser = User.Identity.Name
While InStr(strUser, "/")
strUser = Mid(strUser, InStr(strUser, "/") + 1)
End While
While InStr(strUser, "\")
strUser = Mid(strUser, InStr(strUser, "\") + 1)
End While

Response.Write(User.Identity.Name & "<BR>")
Response.Write(User.Identity.AuthenticationType & "<BR>")
Response.Write(User.Identity.IsAuthenticated & "<BR>")

strProfileInfo = "Your Server Name" & vbLf & strUser

objEmail = New MAPI.Session

objEmail.Logon("", "", False, True, 0, True, strProfileInfo)

objFolder = objEmail.Inbox
If objFolder Is Nothing Then
MsgBox("Failed to open Inbox")
Exit Sub
End If

MAKE YOUR WEB.CONFIG LIKE THIS
==================================
<identity impersonate="true" />
<authentication mode="Windows" />

BR
Siva sharma

"Edbrown" wrote:

Edbrown · Guest

Hi Siva,

Thanks for all your help. All is well and working. I have been working with
cdo and exchange quite intesively for the last year and .Net to CDO has been
the missing link, so if I can ever be assistance to you let me know.

Thanks again,

Ed Brown
ebrown@tririga.com

"gsivakanthan" wrote:

	Exchange Server Forum Index -> Development	All times are GMT
Page 1 of 1