Подключение Adodb к назначению календаря Outlook

Я подключаюсь к Outlook с помощью Adodb. (ADO является обязательным требованием)

  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 

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

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


person Christopher Chase    schedule 12.09.2011    source источник
comment
Я очень старался сделать это с помощью ADO и ADO.NET, используя OleDbConnection. Это просто не работает. ADO не возвращает требуемые столбцы. ADO.NET выдает ошибку ISAM не установлен.   -  person Olivier Jacot-Descombes    schedule 15.11.2011


Ответы (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, можете ли вы опубликовать часть кода, где вы пытаетесь прочитать время начала и окончания?

person Drew Chapin    schedule 08.11.2011
comment
Я скоро получу код, который использую, но это требование, которое я не могу контролировать, для использования ADO. - person Christopher Chase; 14.11.2011