VBA Outlook 循环遍历我同事的任务

Question

我找到了如何将任务分配给我的同事。是否可以使用项目名称过滤器循环遍历我同事的任务，以便我可以监控任务状态？在团队项目中，我们互相分配任务，项目经理可以单击一下查看重要任务、它们的状态、截止日期...

Answer 1

您可以使用命名空间 class 的 GetSharedDefaultFolder 方法来获取表示指定用户的指定默认文件夹的 Folder 对象。例如，要获取共享任务文件夹，您可以使用以下代码：

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("Eugene Astafiev") 
 myRecipient.Resolve 
 If myRecipient.Resolved Then 
  Call ShowTasks(myNamespace, myRecipient) 
 End If 
End Sub 

Sub ShowTasks(myNamespace, myRecipient) 
 Dim TaskFolder As Outlook.Folder 
 Set TaskFolder = _ 
 myNamespace.GetSharedDefaultFolder _ 
 (myRecipient, olFolderTasks) 
 TaskFolder.Display 
End Sub

VBA Outlook 循环遍历我同事的任务

VBA Outlook loop through my colleagues tasks

search

outlook

vba

share

task