Создание задачи из письма Outlook 2010/2013

[Lord777-1]

Добрый день!

Прошу помощи в написании скрипта.

Создаем правило, когда приходит письмо от определенного адресата, запускается скрипт, который:
Cкрипт автоматически переделывает письмо в задачу, "Тема письма - Тема задачи", "Текст в письме - описание задачи", "Срок задачи - сегодня"


Или другой скрипт, который при принятии задачи её переадресовывает отправителю, при этом сохраняет и срок и Тему...
Нашел в интернете вот этот скрипт (но он у меня почему-то не работает):

Sub AssignTask(myItem As Outlook.MailItem)
 
    Dim myItem As Outlook.TaskItem
 
    Dim myDelegate As Outlook.Recipient
 
    Set myItem = Application.CreateItem(olTaskItem)
 
    myItem.Assign
    Set myDelegate = myItem.Recipients.Add("test@qwerty.ru")
 
    myDelegate.Resolve
 
 
  If myDelegate.Resolved Then
        myItem.Subject = "test"
        myItem.DueDate = Now
        myItem.Display
        myItem.Send
    End If
 

End Sub

Заранее большое спасибо!!!

[kuklp]

Вы форумом не ошиблись? Этот называется "Microsoft Office Excel", если что.