Exchange available - solution using CDO v1.21

  • Thread starter Thread starter gxdata
  • Start date Start date
G

gxdata

VB.NET, requires reference to CDO v1.21 (MAPI)

Private Function ExchangePresent() As Boolean
Dim sc As MAPI.SessionClass = New MAPI.SessionClass()
' This is a crude logon - I don't do it this way
sc.Logon(Type.Missing, Type.Missing, Type.Missing, Type.Missing, _
Type.Missing, Type.Missing, Type.Missing)
Dim isrs As MAPI.InfoStores = TryCast(sc.InfoStores, MAPI.InfoStores)
Dim index As Integer=1
Do While index <= CInt(Fix(isrs.Count))
If (CType(isrs.Item(index), _
MAPI.InfoStore)).ProviderName.ToString().ToUpper().IndexOf("EXCHANGE")
= 0 Then
Click to expand...
Return True
End If
index += 1
Loop
Return False
End Function
 
CDO 1.21 is not supported with .NET. While it may work most of the time on
most machines you will run into problems no one will support you with in
use.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Appointment Items in Public Folder calendar 2
CDO hanging on Logoff 4
CDO Won't Send Across Domains 2
CDO and Exchange Server 2007 3
CDO Loop problem - Fix could be useful for many people. 1
Unable to Delete Folders from "Deleted Item" Folder 1
Waht is the fastest/bets? Outlook Object/CDO/Redemption/...? 2
VBA shutdown error Outlook 3

Back
Top