- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- outlook 查找日程代码 如何 转入 foxtable里面 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96150)
-- 发布时间：2017/2/14 12:17:00
-- outlook 查找日程代码 如何 转入 foxtable里面
原因：联动 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
Next
End Sub
请问如何 植入到 foxtable 里面进行控制
-- 发布时间：2017/2/14 12:50:00
--
引用Microsoft.Office.Interop.Outlook.dll
然后把代码写到全局代码去。sub加上public关键字。
-- 发布时间：2017/2/14 13:36:00
--
引用 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)
Next
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:microsoft.office.interop.rar |
OK发给大家 有需要的用一下 , 找到outlook 日程的 例子. 测试可用.
可以用来 foxtable 用 日程 与 outlook 联动.
[此贴子已经被作者于2017/2/14 14:13:17编辑过]
-- 发布时间：2017/2/14 14:30:00
--
全局代码
Public blnSearchComp As Boolean
Public Sub Application_AdvancedSearchComplete(ByVal SearchObject As msoutlook.Search)
blnSearchComp = True
End Sub
绑定事件
addhandler app.AdvancedSearchComplete, addressof Application_AdvancedSearchComplete