Here is the code I currently have. Do I need to enter the code and publish
the form prior to bringing the existing items into the folder? Or do I need
to bring the existing contacts into the folder first and then publish the
form with the code?
Sub Item_Open
NewMC = "IPM.Contact.Group Holding"
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
For I = 1 to NumItems
Set CurItem = AllItems.Item(I)
If CurItem.MessageClass <> NewMC Then
CurItem.MessageClass = NewMC
CurItem.Save
End If
Next
End Sub
"Sue Mosher [MVP-Outlook]" wrote:
> Please show the code you already have.
>
> --
> Sue Mosher, Outlook MVP
> Author of Configuring Microsoft Outlook 2003
> http://www.turtleflock.com/olconfig/index.htm
> and Microsoft Outlook Programming - Jumpstart for
> Administrators, Power Users, and Developers
> http://www.outlookcode.com/jumpstart.aspx
>
> "Bridget" <(E-Mail Removed)> wrote in message news:F3437814-1C47-4298-9D69-(E-Mail Removed)...
> >I tried looking into writing code to change the Message Class property for
> > each item, but have been unsuccessful. Could you tell me how to start this
> > code to apply to each item? I apprectiate your help.
> >
> > "Bridget" wrote:
> >
> >> Thank you Sue and Peter, I will see if I can figure something out. I'll let
> >> you know!
> >>
> >> "Peter Marchert" wrote:
> >>
> >> > I only know the way by code or a tool like "EditContacts"
> >> >
> >> > http://www.marchert.de/software.html#ec
> >> >
> > >
> >> >
> >> > On 26 Feb., 17:25, Bridget <Brid...@discussions.microsoft.com> wrote:
> >> > > I attempted to change the message class for all of the items at once in order
> >> > > to convert existing items to new custom form but was unsuccessful. At this
> >> > > point, I would just like to be able to change each individual message class.
> >> > > How do I do this? Any help is appreciated!
> >> > >
> >> > > (Microsoft Outlook 2003)
> >> >
> >> >
> >> >
>