2011-09-12 3 views
2

Я подключаюсь к Outlook с помощью Adodb. (ADO, это требование)Adodb Connection to Outlook Calendar Назначение

With ADOConn 
    .Provider = "Microsoft.JET.OLEDB.4.0" 
    .ConnectionString = "Exchange 4.0;" _ 
           & "MAPILEVEL=" & mailboxname & "|;PROFILE=Outlook;" _ 
           & "TABLETYPE=0;DATABASE=C:\WINDOWS\TEMP\;" 
    .Open() 
End With 

затем с помощью SQL

Select * from Calendar 

который возвращает назначениях, но без начала или окончания времени.

Кто-нибудь знает, как я могу получить эту информацию таким образом?

+0

Я очень старался сделать это с помощью ADO и с ADO.NET с использованием OleDbConnection. Это просто не работает. ADO не возвращает требуемые столбцы. ADO.NET дает ошибку «ISAM not installed». –

ответ

1

Нужно ли использовать ADODB? Если нет, то вы можете попробовать это:

Dim ola As New Outlook.Application 
Dim oln As Outlook.NameSpace = ola.GetNamespace("MAPI") 
Dim olc As Outlook.MAPIFolder = oln.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar) 
For Each item As Outlook.AppointmentItem In olc.Items 
    MsgBox(item.Subject & vbCrLf & item.Start & vbCrLf & item.End) 
Next 

Если вы должны использовать ADODB, то вы можете разместить часть кода, где вы пытаетесь прочитать начальное и конечное время?

+0

Я получу код, который я использую в ближайшее время, но это требование, чтобы я не контролировал использование ADO –