Question

我正在使用Adodb连接到Outlook。（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

返回约会，但没有开始或结束时间。

有谁知道如何以这种方式检索此信息？

Answer 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，那么你可以发布你试图读取开始和结束时间的代码部分吗？

Adodb连接到Outlook日历约会

1 个答案: