怎么调用或者怎样设计outlook的calendar的图形界面呢

Quote: 引用:

Quote: 引用:

Quote: 引用:

看能不能帮到你。

Sub disCalendar()

Dim myOlApp As New Outlook.Application

Dim myExplorers As Outlook.Explorers

Dim myOlExpl As Outlook.Explorer

Dim myFolder As Outlook.MAPIFolder

Set myExplorers = myOlApp.Explorers

Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder _

    (olFolderCalendar)

Set myOlExpl = myExplorers.Add _

    (myFolder, olFolderDisplayNoNavigation)

myOlExpl.Display

End Sub

谢谢斑竹的回答！
看来我的话我没说清楚，我希望能把这个图形界面从outlook剥离出来，作为一个独立的模块供我自己使用。斑竹这个代码还是会和我现在的outlook的日历事项混合在一起，不知道能不能剥离开来，然后把数据保存在我希望的地方或者上传到数据库中。


我发现我的这个想法实际表现出我好懒哦。。。。哈哈

只把这个界面剥离出来，可能性不大。

好的，谢谢斑竹！手头有这个的日历界面的C#代码，那么我只好转向C#了。。。可是C#不会，好吧，看来骚年得继续努力了。