Changing the Form Used by Existing Task Items in a Folder

[wayneame]

To change the form used by existing task items in a folder, I used this as reference and came up with the following code:

Sub ChangeMessageClass()
Set olNS = Application.GetNamespace("MAPI")
Set TasksFolder = _
olNS.GetDefaultFolder(olFolderTasks)
Set ContactItems = TasksFolder.Items

For Each Itm In TaskItems
If Itm.MessageClass <> "Task" Then
Itm.MessageClass = "Task"
Itm.Save
End If
Next
End Sub

 

[Diane Poremsky]

What is this line supposed to do?
Set ContactItems = TasksFolder.Items

Does it work? It should error on this line -
For Each Itm In TaskItems

Sub ChangeMessageClass()
Set olNS = Application.GetNamespace("MAPI")
Set TasksFolder = olNS.GetDefaultFolder(olFolderTasks)
Set ContactItems = TasksFolder.Items

For Each Itm In TaskItems
If Itm.MessageClass <> "Task" Then
Itm.MessageClass = "Task"
Itm.Save
End If
Next
End Sub

I have a powershell and vba option in this article:

Assign a custom form to existing Outlook items

Use this VBA macro as an alternative to DocMessageClass for changing an Outlook item's message class.

www.slipstick.com

 

[wayneame]

What is this line supposed to do?
Set ContactItems = TasksFolder.Items

Does it work? It should error on this line -
For Each Itm In TaskItems

Sub ChangeMessageClass()
Set olNS = Application.GetNamespace("MAPI")
Set TasksFolder = olNS.GetDefaultFolder(olFolderTasks)
Set ContactItems = TasksFolder.Items

For Each Itm In TaskItems
If Itm.MessageClass <> "Task" Then
Itm.MessageClass = "Task"
Itm.Save
End If
Next
End Sub

I have a powershell and vba option in this article:

Assign a custom form to existing Outlook items

Use this VBA macro as an alternative to DocMessageClass for changing an Outlook item's message class.

www.slipstick.com

Thank you very much Diane!

First, I went to Outlook's File | Trust Center | Trust Center Settings... | Macro Settings | Enable all macros.

Then, I run the following macro where "IPM.Task.Task" is the name of the new form:

Sub ChangeContactMessageClass()

' Change the following line to your new Message Class
NewMC = "IPM.Task.Task"

Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count

' Loop through all of the items in the folder
For i = 1 To NumItems

Set CurItem = AllItems.Item(i)


' Test to see if the Message Class needs to be changed
If CurItem.MessageClass <> NewMC Then

' Change the Message Class
CurItem.MessageClass = NewMC

' Save the changed item
CurItem.Save

End If
Next

MsgBox "Done."

End Sub

Worked like magic!

Thanks a lot!

 

[wayneame]

Is there a way I can pre-populate a custom dropdown menu with data already encoded, while having the ability to add a new entry for the same data field? Many thanks!

 

[Opeashom94]

In rare circumstances, you might need to modify the form linked to objects that are already organised in a folder. This is frequently required after importing goods.