![]() |
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. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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 |
Display Modes | |
|
|
![]() |
||||
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 |