excel vba在某人的日历中创建约会
提问于 2015-01-19 13:27:52
打开Outlook时，我共享了大约10个日历。我有要在Excel中进行的约会的所有信息，但我不知道如何将其分配给我共享的某个日历。如何引用其他人的日历，并将约会放入其中？
谢谢
回答 1
Stack Overflow用户
发布于 2015-01-19 15:58:37
H，
Namespace类的GetSharedDefaultFolder方法返回一个文件夹对象，该对象表示指定用户的指定默认文件夹。例如：
Sub ResolveName()
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim CalendarFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Dan Wilson")
myRecipient.Resolve
If myRecipient.Resolved Then
Call ShowCalendar(myNamespace, myRecipient)
End If
End Sub
Sub ShowCalendar(myNamespace, myRecipient)
Dim CalendarFolder As Outlook.Folder
Set CalendarFolder = _
myNamespace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
CalendarFolder.Display
End SubHow To: Create a new Outlook Appointment item文章介绍了如何在文件夹中创建约会。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/28025736
复制
腾讯云开发者
