主题：outlook引用问题请教

excel在vba 里面 有这个引用Microsoft Office 14.0 Object Library

 

如何在foxtable 里面引用？？

 

求指导

 

看到 foxtable 里面 有excel  word 的命名空间

 

outlook 该怎么搞呢？

袍哥，已经在 百度找到 相关的dll，请看附件

 

是否引用了就行，需要命名空间吗？

 

百度找到 一下代码 在 excel vba 里面是可行的。

 

请问 放在  foxtable 里面应该怎么改？

 

Dim ol As Outlook.Application
Set ol = CreateObject("Outlook.Application")
Dim t As AppointmentItem
For r = 2 To Range("b65536").End(xlUp).Row
Set t = ol.CreateItem(olAppointmentItem)
With t
.Subject = Cells(r, 1) '事件名称
.Start = Cells(r, 2) '开始时间
.Duration = 30 '持续时间
.ReminderMinutesBeforeStart = 45 '提前N分钟提醒
.Body = "Excel日程提醒" '事件内容
.Save
'.Display
End With
Next

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:policy.11.0.microsoft.office.interop.outlook.zip

老师 ，可行！

 

授之以鱼不如授之以渔。

 

以前学的 都是 dim 定义变量

 

Dim ol = CreateObject("Outlook.Application")
Dim t = ol.CreateItem(1)

为什么能这么写呢？ 

 

还有这个 AppointmentItem 与 1是什么区别 ？

为什么 vba 要 dim 再 set

 

能简单说明一下 这样写的意思么， 好让后边能自己搞，不用老提问

哦 ，  没引用Microsoft.Office.Interop.Outlook.dll

 

这个dll

 

以上代码都可以执行！

 

都可以直接添加内容到 outlook 

 

就是可以不用引用了？？？？

 

可以吧 vba 的代码 直接在 foxtable 里面执行？

老师 如何判断 当前的邮件 是什么类型   olAppointmentItem 是枚举类型，就是0、1、2这样的 

是这样写吗