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

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

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

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

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

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

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

Do you maybe mean that the VBA Add-In has been disabled? Click the Disabled
Items button under Help - About and enable it if it is there.

To add the Message Class column, right-click any column header in the Tasks
folder and select "Field Chooser". Then select "All Task fields" from the
drop down and drag the Message Class button into the view.

--
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:

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

Click the Disabled
Items button under Help - About and enable it if it is there.
Nothing there to reactivate . When I try to run my macro an error message
occured and say Macro in this project is desactivate.
To add the Message Class column, right-click any column header in the Tasks
folder and select "Field Chooser". Then select "All Task fields" from the
drop down and drag the Message Class button into the view.
This is ok! thanks
but not my macro:\
--
Josianne


"Eric Legault [MVP - Outlook]" wrote:

Do you maybe mean that the VBA Add-In has been disabled? Click the Disabled
Items button under Help - About and enable it if it is there.

To add the Message Class column, right-click any column header in the Tasks
folder and select "Field Chooser". Then select "All Task fields" from the
drop down and drag the Message Class button into the view.

--
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:

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

Make sure you restart Outlook after changing your macro security settings.

--
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:

Click the Disabled
Items button under Help - About and enable it if it is there.
Nothing there to reactivate . When I try to run my macro an error message
occured and say Macro in this project is desactivate.
To add the Message Class column, right-click any column header in the Tasks
folder and select "Field Chooser". Then select "All Task fields" from the
drop down and drag the Message Class button into the view.
This is ok! thanks
but not my macro:\
--
Josianne


"Eric Legault [MVP - Outlook]" wrote:

Do you maybe mean that the VBA Add-In has been disabled? Click the Disabled
Items button under Help - About and enable it if it is there.

To add the Message Class column, right-click any column header in the Tasks
folder and select "Field Chooser". Then select "All Task fields" from the
drop down and drag the Message Class button into the view.

--
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:

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