Подключение Adodb к календарю Outlook - PullRequest
Новая
       7

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

2 голосов
/ 12 сентября 2011

Я подключаюсь к 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

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

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

1 Ответ

1 голос
/ 08 ноября 2011

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

...