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 里面进行控制

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