從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