J
JIMBOLUKE
I am trying to make something happen in Outlook 2007 that was natural in
Outlook 2003. In OL 2003, I could expose the Categories field in a message
list and simply type in categories. I use hundreds of categories (instead of
folders), so the nice colorized popup category menu in OL2007 is actually too
inefficient for my purposes. I tried to hack a macro (below), which only
works on the first item of the selection. Was wondering what I could do to
make this work correctly/better?
' an attempt to quickset categories from an input box interface, something
' that I used to be able to do easily in Outlook2003
'
Public Sub SetCat()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myfolder As Outlook.MAPIFolder
Dim myOlSel As Object
Dim MsgTxt As String
Dim x As Integer
MsgTxt = InputBox("Enter Categories (comma separated)", "Macro to Set
Categories", "HOT")
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.count
myOlSel.Item(x).Categories = MsgTxt
Next x
DoEvents
End Sub
Outlook 2003. In OL 2003, I could expose the Categories field in a message
list and simply type in categories. I use hundreds of categories (instead of
folders), so the nice colorized popup category menu in OL2007 is actually too
inefficient for my purposes. I tried to hack a macro (below), which only
works on the first item of the selection. Was wondering what I could do to
make this work correctly/better?
' an attempt to quickset categories from an input box interface, something
' that I used to be able to do easily in Outlook2003
'
Public Sub SetCat()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myfolder As Outlook.MAPIFolder
Dim myOlSel As Object
Dim MsgTxt As String
Dim x As Integer
MsgTxt = InputBox("Enter Categories (comma separated)", "Macro to Set
Categories", "HOT")
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.count
myOlSel.Item(x).Categories = MsgTxt
Next x
DoEvents
End Sub