A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Version confusion



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old March 23rd 06, 03:38 PM posted to microsoft.public.outlook.program_vba
Josianne
external usenet poster
 
Posts: 28
Default Version confusion

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
Ads
  #2  
Old March 23rd 06, 06:26 PM posted to microsoft.public.outlook.program_vba
Eric Legault [MVP - Outlook]
external usenet poster
 
Posts: 830
Default Version confusion

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

  #3  
Old March 23rd 06, 07:13 PM posted to microsoft.public.outlook.program_vba
Josianne
external usenet poster
 
Posts: 28
Default Version confusion

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

  #4  
Old March 23rd 06, 07:30 PM posted to microsoft.public.outlook.program_vba
Eric Legault [MVP - Outlook]
external usenet poster
 
Posts: 830
Default Version confusion

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

  #5  
Old March 23rd 06, 07:39 PM posted to microsoft.public.outlook.program_vba
Josianne
external usenet poster
 
Posts: 28
Default Version confusion

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

  #6  
Old March 23rd 06, 07:49 PM posted to microsoft.public.outlook.program_vba
Eric Legault [MVP - Outlook]
external usenet poster
 
Posts: 830
Default Version confusion

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

  #7  
Old March 23rd 06, 07:59 PM posted to microsoft.public.outlook.program_vba
Josianne
external usenet poster
 
Posts: 28
Default Version confusion

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

  #8  
Old March 23rd 06, 08:14 PM posted to microsoft.public.outlook.program_vba
Eric Legault [MVP - Outlook]
external usenet poster
 
Posts: 830
Default Version confusion

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

  #9  
Old March 23rd 06, 08:19 PM posted to microsoft.public.outlook.program_vba
Josianne
external usenet poster
 
Posts: 28
Default Version confusion

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

  #10  
Old March 23rd 06, 08:51 PM posted to microsoft.public.outlook.program_vba
Eric Legault [MVP - Outlook]
external usenet poster
 
Posts: 830
Default Version confusion

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

 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Version Josianne Outlook - Using Forms 5 March 23rd 06 07:30 PM
Outlook Stationary Confusion ChicagoDave Outlook - General Queries 0 March 2nd 06 08:46 PM
How to make an old version of Office look like the new version? beefer Outlook - Installation 0 February 24th 06 10:59 PM
Should I deleat trail version and install real version ? Trail Outlook Outlook - Installation 0 January 27th 06 03:47 PM
Next version Tim Scott Mathews Outlook - General Queries 3 January 9th 06 08:21 PM


All times are GMT +1. The time now is 07:11 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.