Adodb 连接到 Outlook 日历约会

发布于 2024-12-04 05:44:18 字数 495 浏览 0 评论 0原文

我正在使用 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

，但没有开始或结束时间。

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

原文

I'm connecting to Outlook using Adodb. (ADO is a requirement)

  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

then using the sql

   Select * from Calendar

which returns the Appointments, but with no start or finish times.

Does anyone know how I can retrieve this information this way?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

梦言归人 2024-12-11 05:44:18

一定要用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，那么您可以发布您尝试读取开始时间和结束时间的代码部分吗？

Do you have to use ADODB? If not, you can try this:

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

If you do have to use ADODB, then can you post the portion of the code where you are trying to read the start and end times?

回复收藏 0 原文

~没有更多了~