I set the macro security to medium but It always sayaing that my macros is
desactivate can you tell me how to reactivate it.
You should also add the Message Class column to a View in your Task folder
to see what form classes are attributed to your items.
How can I do this!
--
Josianne


"Eric Legault [MVP - Outlook]" wrote:

Ensure that your macro security is set to Medium. I'm not sure how running
macros became disabled if they were running fine at one point.

You should also add the Message Class column to a View in your Task folder
to see what form classes are attributed to your items.

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Josianne" wrote:

Yes, mycode execute because he write on the top of the microsoft visual basic
(execution) and it disapear. But Now I try to reexecute my macro and He said
that my macro is desactivate. I Have my version 2.8 by default into my task
folder
--
Josianne


"Eric Legault [MVP - Outlook]" wrote:

Does the code execute at all? Can you set a breakpoint on the 'If
objItem.MessageClass ...' line to verify that it ever gets past that point?

Do you have version 2.8 installed in the Folder Forms Library for that Task
folder?

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Josianne" wrote:

Ok, I put it on a macro and i do macro execute then changemessageclass, but
Nothing happen.
I have some old forms that were been made with version 1.1 and now my
default form in my task folder is version 2.8 so my old forms doesn't appears
on my new form template!

--
Josianne


"Eric Legault [MVP - Outlook]" wrote:

Your logic is good, I'd only change a few things to clean it up:

Sub changeMessageClass()
Dim objNS As Outlook.NameSpace
Dim objTasksFolder As Outlook.MAPIFolder
Dim objTaskItems As Outlook.Items
Dim objItem As Object

Set objNS = Application.GetNamespace("MAPI")
Set objTasksFolder = objNS.GetDefaultFolder(olFolderTasks)
Set objTaskItems = objTasksFolder.Items
For Each objItem In objTaskItems
If objItem.MessageClass "IPM.Task.MyForm" Then
objItem.MessageClass = "IPM.Task.MyForm"
objItem.Save
End If
Set objItem = Nothing
Next

Set objNS = Nothing
Set objTasksFolder = Nothing
Set objTaskItems = Nothing
End Sub

Basically, just put the macro in your ThisOutlookSession module, then run it
from the VBA Editor or from the Macros dialog.

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Josianne" wrote:

Hi, my problem it's taht I have some old completed froms. they were build
with one of my first version of form. Now, I have a new form and I want my
old forms with my new form template. But I'm not abble to do it!
I've found the code that will help me to do it but I just don't know where
to put it :\
Sub changeMessageClass()
Set olApp = New Outlook.Application
Set OlNs = olApp.GetNameSpace("MAPI")
Set TasksFolder = olNs.GetDefaultFolder(olFolderTasks)
Set TasksItems = TasksFolder.Items
For Each Itm in TasksItems
If Itm.MessageClass "IPM.Task.MyForm" Then
Itm.MessageClass = "IPM.Task.MyForm"
Itm.Save
End If
Next
End Sub
Is it ok?
Thanks,

--
Josianne