Как в задачах пользователя аттачить линк на форму Outlook ?

[MItya]

Могу аттачить линк на форму Outlook в тело письма.

Код: Выделить всё

   Dim myAttachments
   Item.Save
   Set myItem = Application.CreateItem(0)
   MyItem.To = "test"
   MyItem.Subject ="test"
   MyItem.HTMLBody= "test"
   Set myAttachments = myItem.Attachments
   myAttachments.Add Item, olByValue, ,"test"
   MyItem.Display


Это работает прекрасно. Вопрос вот в чем:
может кто знает как сделать такой же аттачмент в "Задачах" ?
пробую так:

Код: Выделить всё

   Dim myAttachments
   item.save
   Set myItem = Application.CreateItem(3)
   myItem.Assign
   Set myDelegate = myItem.Recipients.Add("test")
   myItem.Subject = "test"
   myItem.DueDate = #10/04/06#
   Set myAttachments = myItem.Attachments
   myAttachments.Add Item, olByValue
   myItem.display


линк рисуется но он не активен.