If you defined these fields at the folder level, they will not travel with
the Task Item. You would need to define them in a custom Task form before
the other user can see it. Given that requirement, plus the custom form
being published in the other user Task folder forms library (or Personal or
Organization forms libraries), then you can use this code if the other user
has delegated write access to their Task folder to you:
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim myFolder As Outlook.MAPIFolder
Dim myTask As Outlook.TaskItem
Dim myCopiedTask As Outlook.TaskItem
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Some User")
Set myTask = myOlApp.ActiveInspector 'Assumes the Task you want to copy is
open
myRecipient.Resolve
If myRecipient.Resolved Then
Set myFolder = myNamespace.GetSharedDefaultFolder(myRecipient,
olFolderTasks)
Set myCopiedTask = myTask.Copy
myCopiedTask.Move myFolder
End If
