Tried form to display SCL, didn't work, now can't delete form

I want to display the SCL in the message list.  I know I can view the headers, but I'm looking to display it in the inbox and junk mail lists.

We don't quarantine.  We just set the threshold for when to go to the users Junk Mail.  That part works.  Easy viewing of the SCL will help me tune the threshold.

I'm using Outlook 2013/Exchange 2013 and found the following:  Microsoft KB 895091 (won't let me put the link)

The steps are for Outlook 2003/2007 so I adjusted the steps to put the form in the Outlook 2013 form folder.

I got the form installed and it shows up in the form manager but now I have two problems:

1) When I use the Field Chooser the "Add" button is disabled for the personal form I added.

2) I gave up trying to get it to work and "Delete" is not enabled in the form manager so the useless form is stuck there.

Is there any way to display the SCL in Outlook 2013?  The steps above worked when I had 2003.

Is there any way I can get rid of the form if I can't make it work?

Thanks.

February 15th, 2014 10:56pm

Hi,

We can delete custom form by clicking File > Options > Advanced > Custom Forms in the Developers section > Manage Forms...

I've tested the 'Alternative method to view the SCL Rating in Microsoft Office Outlook 2007' in Microsoft KB895091 article and it worked in my Outlook 2013 environment. Please try the steps below for Outlook 2013 version:

1. Start Outlook 2013.

2. Click File > Options > Customize Ribbon

3. Select Developer under the Customize the Ribbon. Click OK.

4. Click on Developer tab on the Ribbon.

5. Click Visual Basic.

6. In the Visual Basic Editor, click Module on the Insert menu.

7. Enter the following code.

Sub getSCL()
    Dim inbox As Outlook.Folder
    Set inbox = Outlook.ActiveExplorer.CurrentFolder
    Dim items As Outlook.items
    Dim item As Object
    Dim mail As Outlook.MailItem
    Dim sclProp As Outlook.UserProperty
    Dim strSCL As String
    Set items = inbox.items
    On Error Resume Next
    'should it encounter an error, it will proceed to the next item.
    For Each item In items
        If item.Class = olMail Then
            Set mail = item
            Set sclProp = mail.UserProperties.Add("SCL Rating", olText, True)
            'creates a user property called SCL Rating and adds the property to the folder.
            strSCL = mail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x40760003")
            'schema value for PR_CONTENT_FILTER_SCL
            sclProp.Value = strSCL
            mail.Save
            'saves the prop to the mail item
        End If
    Next
    Set sclProp = Nothing
End Sub

8. Name the module Get_SCL.

9. On the File menu, click Save Project1 in order to save the project as VbaProject.OTM.

10. On the File menu, click Close and Return to Microsoft Office Outlook.

11. Open the macro Get_SCL and click Run.

12. To see the SCL rating for each e-mail message, add a field to the mail folder's table view to display the SCL rating. To do this, follow these steps:

a. On the View tab, click View Settings.

b. In the Advanced View Settings dialog box, click Columns.

c. In the Select available fields from list, click User-defined fields in Inbox, click SCL Rating in the Categories list, click Add, and then click OK two times.

Hope this helps.

Best Regards,

Steve Fan

Forum Support

Free Windows Admin Tool Kit Click here and download it now
February 17th, 2014 12:41am

Steve,

Thanks for responding.  I ran the macro and at first it looked like it worked.  However, the SCL Rating that comes up are all zeros even though the value for X-MS-Exchange-Organization-SCL is non-zero.

Also, I can't delete the form the way you discussed.  As I mentioned the delete button is disabled there...

(I tried uploading the picture showing the disabled button on the "Forms Manager" window but I'm still not validated to do that.)

Thanks

February 18th, 2014 1:11am

We can try to use Quick Watch to monitor the sclProp value and see how the value changes.

To do this, open the Visual Basic window, select and right-click on the sclProp value > Click Add Watch > Click OK. Then, point to Debug > Step Into (Or you can press F8) > Watch for the Watches window and see when will the sclProp value change and what value will it change.

In theory, if the SCL value for your message is -1, the sclProp value will change to -1.

Since we are not the best source for coding, questions related to debug and macro better to be posted to MSDN forum:

https://social.msdn.microsoft.com/Forums/office/en-US/home?forum=outlookdev

The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.

Best Regards,

Steve Fan

Forum Support

Free Windows Admin Tool Kit Click here and download it now
February 18th, 2014 10:28pm

This topic is archived. No further replies will be accepted.

Other recent topics Other recent topics