Custom Form Help

P

pkruti

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
 
S

Sue Mosher [MVP-Outlook]

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top