>> Hello all,
>>
>> I have some programs that uses the code below and does not give me any
>> problem. However recently I copied the same code and now it generate
>> error when it hit the line
>> objInbox = objSession.Inbox
>> Can someone please give me an alternate method to read e-mails without
>> using CDO?
>>
>> The error message is this:
>>
>> System.Runtime.InteropServices.COMException was caught
>> ErrorCode=-2147221219
>> Message="Microsoft Exchange is not available. Either there are
>> network problems or the Exchange computer is down for maintenance.
>> [Microsoft Exchange Information Store -
>> [MAPI_E_FAILONEPROVIDER(8004011D)]]"
>> Source="Collaboration Data Objects"
>>
>> Code snippet
>> --------------------
>>
>> Dim objSession As MAPI.Session
>> Dim objInbox As MAPI.Folder
>> Dim objMessages As MAPI.Messages
>> Dim objMessage As MAPI.Message
>> Dim objMsgFilter As MAPI.MessageFilter
>> Dim objAttachment As MAPI.Attachment
>> Dim strProfileInfo As String
>>
>> strProfileInfo = "Exchange.EmailServer" & vbLf & "E-mail
>> Alias"
>> objSession = CreateObject("MAPI.Session")
>> objSession.Logon(ProfileInfo:=strProfileInfo,
>> ShowDialog:=False)
>> 'reference the messages in the inbox
>> objInbox = objSession.Inbox 'get the Inbox object
>> collection
>> objMessages = objInbox.Messages 'get the messages
>> object collection
>> objMsgFilter = objMessages.Filter 'get the Message
>> Filter object collection
>> For Each objMessage In objInbox.Messages
>> If Not objMessage.Unread Then
>> ' Do somthing with the attachement
>> End If ' objMessage.Unread
>>
>> Next objMessage
>>