VB6 + Outlook Tasks

I haven't been able to figure out how to set or get the percent completed on an outlook task.  I can get the tasks using the following:

Private Function GetTasks() As Object
  Dim ol As Object 'Outlook.Application
  Dim olNamespace As Object 'NameSpace
  Dim olFolder As Object 'MAPIFolder
  Set ol = CreateObject("Outlook.Application") 'New Outlook.Application
  Set olNamespace = ol.GetNamespace("MAPI")
  Set olFolder = olNamespace.GetDefaultFolder(olFolderTasks) 'olFolderTasks = 13
  Set GetTasks = olFolder.Items
End Function

But these tasks have a completion percent on them that I need to retreive.  I would also like to know how to Add a new tasks with a completion percentage (I know how to add the tasks already.)

Thanks for your help
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.


I haven't used it personally, but ... there's some VB code at the bottom of http://msdn.microsoft.com/coding4fun/inthebox/vsto-outlook/default.aspx which may help.


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
NathanPriceAuthor Commented:
PercentComplete? How could it be that simple! heh.. I was using vb6 and for some reason that property didn't show up in the class.  Oh well, thanks a lot bro.
NathanPriceAuthor Commented:
Sorry it took so long to accept, I forgot about it after getting the answer. :)
No problem Nathan!

Glad it worked..
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.