Создать Outlook Назначение из MS Project Tasks w/VBA Script

Question

Только новое для игры с скриптом VBA, но с проблемой с этим.

Попытка создать встречу в 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 

Answer 1

Я попытался это Macro, и она работала, вам просто нужно перенести макрос для ваших глобальных шаблонов и добавить его в качестве дополнения в к ленте, чтобы использовать его по мере необходимости.

http://www.clearlyandsimply.com/clearly_and_simply/2009/09/export-microsoft-project-tasks-to-outlook.html

Answer 2

Вот ссылка на решение, которое будет экспортировать задачи проекта для назначения Outlook, или задач Outlook.

http://shop.m5consultancy.com

Примечание: Я работаю для программного обеспечения компании :)