Custom Form Help

Okay i am lost and needs some help :-( i am trying to create a task and
send then task to whomever it needs to be sent to. I created a new form
and added the fields address and community and i published the form in
the "Organizational Forms Library" and i changed the Properties for the
Task folder so that it see the new custom form created. And now i am
VBA and have the code below but when i send the task the new custom
form doesnt show up......its the deafult one. any ideas on waht i may
be doing wrong??? i dont get any error messages but when i send this
task it doesnt use the custom form i created called "taskdesign"


Set task = outsess.CreateItem(olTaskItem)
task.Recipients.Add test
Set olns = outsess.GetNamespace("mapi")
Set myfolder = olns.GetDefaultFolder(olFolderTasks)
Set myitem = myfolder.Items.Add("IPM.task.taskdesign")


task.Subject = "Job Number: " & worksheets("Brick").Range("jobno") & "
Brick Selection Sheet has been approved"
task.Attachments.Add amessage, 1, , "Brick Spec Selection Approved"


task.UserProperties("Address") = worksheets("Brick").Range("address")
task.UserProperties("community") =
worksheets("Brick").Range("community")


task.Categories = ("Brick Spec Selection")
task.Assign
task.Send
amessage.Delete

Try removing this statement:

Set task = outsess.CreateItem(olTaskItem)

and using this one instead:

Set task = myfolder.Items.Add("IPM.task.taskdesign")

I'm still not sure what result you'll get. Task requests are kind of weird
in general.
--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


<pkruti@hotmail.com> wrote in message
news:1109793920.273043.145170@o13g2000cwo.googlegroups.com...
> Okay i am lost and needs some help :-( i am trying to create a task and
> send then task to whomever it needs to be sent to. I created a new form
> and added the fields address and community and i published the form in
> the "Organizational Forms Library" and i changed the Properties for the
> Task folder so that it see the new custom form created. And now i am
> VBA and have the code below but when i send the task the new custom
> form doesnt show up......its the deafult one. any ideas on waht i may
> be doing wrong??? i dont get any error messages but when i send this
> task it doesnt use the custom form i created called "taskdesign"
>
>
> Set task = outsess.CreateItem(olTaskItem)
> task.Recipients.Add test
> Set olns = outsess.GetNamespace("mapi")
> Set myfolder = olns.GetDefaultFolder(olFolderTasks)
> Set myitem = myfolder.Items.Add("IPM.task.taskdesign")
>
>
> task.Subject = "Job Number: " & worksheets("Brick").Range("jobno") & "
> Brick Selection Sheet has been approved"
> task.Attachments.Add amessage, 1, , "Brick Spec Selection Approved"
>
>
> task.UserProperties("Address") = worksheets("Brick").Range("address")
> task.UserProperties("community") =
> worksheets("Brick").Range("community")
>
>
> task.Categories = ("Brick Spec Selection")
> task.Assign
> task.Send
> amessage.Delete
>