outlook 查找日程代码如何转入 foxtable里面 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

原因：联动 foxtable做的日程与 outlook 里面的日程

outlook里面查找日程的代码如下：

Public blnSearchComp As Boolean

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)

blnSearchComp = True

End Sub

Sub TestAdvancedSearchComplete()

Dim sch As Outlook.Search

Dim rsts As Outlook.Results

Dim i As Integer

blnSearchComp = False

Const strF As String = "urn:schemas:mailheader:subject = ''"

Const strS As String = "calendar"

Set sch = Application.AdvancedSearch(strS, strF)

While blnSearchComp = False

DoEvents

Wend

Set rsts = sch.Results

For i = 1 To rsts.Count

MsgBox rsts.Item(i).Start & rsts.Item(i).End

End Sub

请问如何植入到 foxtable 里面进行控制

引用Microsoft.Office.Interop.Outlook.dll

然后把代码写到全局代码去。sub加上public关键字。

引用 Microsoft.Office.Interop.Outlook.dll

命名空间Microsoft.Office.Interop.Outlook 为MSoutlook

全局代码

Public blnSearchComp As Boolean

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As msoutlook.Search)

blnSearchComp = True

End Sub

执行代码

Dim app As new msoutlook.Application

Dim sch As msOutlook.Search

Dim rsts As msOutlook.Results

Dim i As Integer

blnSearchComp = False

Const strF As String = "urn:schemas:mailheader:subject = 'aaaaaaaa'"

Const strS As String = "calendar"

sch = app.AdvancedSearch(strS, strF)

rsts = sch.Results

Do until rsts.count > 0

Application.DoEvents

Loop

For i = 1 To rsts.Count

MessageBox.Show( rsts.Item(i).Start & rsts.Item(i).End)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:microsoft.office.interop.rar

OK发给大家有需要的用一下 , 找到outlook 日程的例子. 测试可用.

可以用来 foxtable 用日程与 outlook 联动.

[此贴子已经被作者于2017/2/14 14:13:17编辑过]

全局代码

Public blnSearchComp As Boolean
Public Sub Application_AdvancedSearchComplete(ByVal SearchObject As msoutlook.Search)
blnSearchComp = True
End Sub

绑定事件

addhandler app.AdvancedSearchComplete, addressof Application_AdvancedSearchComplete

主题：outlook 查找日程代码 如何 转入 foxtable里面

主题：outlook 查找日程代码如何转入 foxtable里面