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#不会，好吧，看来骚年得继续努力了。