从MS Project任务（带VBA脚本）创建Outlook约会

仅适用于使用VBA脚本，但与此问题有关。从MS Project任务（带VBA脚本）创建Outlook约会

尝试在Outlook中创建约会（弹出发送，不自动保存）。使用Outlook 2010 & MS Project 2013.

复制了我找到的另一个脚本，但它不会运行。将myOLApp调整为Object，但我不知道用于打开预约的代码;我哪里错了？

任何帮助非常感谢！

Option Explicit 

Public myOLApp As Object 


Sub Export_Selection_to_OL_Appointments_AutoEmail() 
Dim myTask As Task 
Dim myDelegate As Object 
Dim myItem As Outlook.App 

On Error Resume Next 
Set myOLApp = CreateObject("Outlook.Application") 
For Each myTask In ActiveSelection.Tasks 
Set myItem = myOLApp.CreateItem(olAppointmentItem) 
myItem.Assign 
With myItem 
Set myDelegate = myItem.Recipients.Add(myTask.Resources(1). _ 
EMailAddress) 
myDelegate.Resolve 
.Start = myTask.Start 
.End = myTask.Finish 
.Subject = myTask.Name & " (Project Task)" 
.Location = "Informatika v GM" 
.Categories = myTask.Project 
.Body = myTask.Notes 
.Display 
.Send 
End With 
Next myTask 
End Sub

来源

2013-07-25 user2620778