OUTlook中的任务怎样用代码设计窗体? 50分,着急,请高手指点.

Question

outlook中
private sub createTask()
Dim myOlApp As New Outlook.Application
    Dim myItem As Outlook.TaskItem
    Dim myForm As Outlook.FormDescription
    Dim myDelegate As Outlook.Recipient
    Set myItem = myOlApp.CreateItem(olTaskItem)
    On Error Resume Next
    myItem.Assign
    Set myDelegate = myItem.Recipients.Add("[email protected]")
    myDelegate.Resolve
    If myDelegate.Resolved Then
        myItem.Subject = "Prepare Agenda for Meeting"
        myItem.DueDate = Now + 30
        myItem.Display
        Set myForm = myItem.FormDescription
'怎样设计窗体啊?
        myForm.PublishForm olFolderRegistry, myFolder
        myItem.Send
    End If
end sub

Answer 1

FormDescription返回的是设置Outlook通用属性的对象，不知道你要设置窗体什么属性？