StartDownloadsServiceSamplesWorkshopsContact DeutschEnglish
 
Samples
General
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Visitors1831553
Impressions6878094
Links
Imprint
Privacy Policy
Contact
Assign a form
Author: Michael BauerHomepage
Date: 23.09.2009Accessed: 19544
  
Description

Outlook decides by the value of an item's MessageClass property which form to use to display the item.

As that value is stored for each item, it is not sufficient just to assign a new form to a folder. Because old items would still display with the old form.

With the following macro you can update the property for all items in the current folder. For that you need to enter the name of the new form. For instance, the name of the default form for emails is 'IPM.Note'; the name of your form then could be 'IPM.Note.MyForm'.

After you have copied the macro to the module 'ThisOutlookSession' in the VBA editor, you can call it by pressing alt+f8.

Public Sub ChangeMessageClassForFolderItems()
  Dim Items As Outlook.Items
  Dim obj As Object
  Dim OldClass$
  Dim NewClass$
  Dim i&

  Set Items = Application.ActiveExplorer.CurrentFolder.Items
  If Items.Count > 1 Then
    OldClass = Items(1).MessageClass
    NewClass = InputBox("Change MessageClass property of all items to: " _
      , "Change MessageClass", OldClass)
    If NewClass = "" Or LCase$(NewClass) = LCase$(OldClass) Then
      Exit Sub
    End If
    For i = 1 To Items.Count
      Set obj = Items(i)
      obj.MessageClass = NewClass
      obj.Save
    Next
  End If
End Sub
 
 

ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more]

 

Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more]

 

SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more]

 

OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more]