topbanner_forum
  *

avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • December 19, 2018, 01:00 AM
  • Proudly celebrating 13 years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - PRICET [ switch to compact view ]

Pages: [1]
1
Hi - many thanks for your thoughts!!!

I think this is what I am looking for .... but may be out of my league to create.

I found the entry in the registry that stores my categories - HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Categories

I can export this registry entry and it creates


[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Categories]
"MasterList"=hex:41,00,63,00,63,00,6f,00,75,00,6e,00,74,00,20,00,6d,00,67,00,\
  74,00,3b,00,42,00,65,00,72,00,6c,00,69,00,6e,00,3b,00,42,00,49,00,3b,00,42,\
  00,75,00,64,00,67,00,65,00,74,00,73,00,3b,00,42,00,75,00,73,00,69,00,6e,00,\
  65,00,73,00,73,00,3b,00,43,00,44,00,4d,00,3b,00,43,00,45,00,45,00,4d,00,45,\
  00,41,00,3b,00,43,00,45,00,4e,00,3b,00,43,00,45,00,53,00,3b,00,43,00,6f,00,\
  6d,00,65,00,74,00,3b,00,63,00,6f,00,6d,00,70,00,6c,00,69,00,61,00,6e,00,63,\
  00,65,00,3b,00,43,00,52,00,4d,00,3b,00,63,00,7a,00,72,00,3b,00,44,00,65,00,\
  6c,00,69,00,76,00,65,00,72,00,79,00,3b,00,44,00,65,00,76,00,65,00,6c,00,6f,\
  00,70,00,3b,00,44,00,4b,00,3b,00,44,00,4b,00,2d,00,46,00,69,00,6e,00,61,00,\
  6e,00,63,00,65,00,3b,00,45,00,44,00,57,00,3b,00,45,00,4d,00,3b,00,65,00,6d,\
  00,61,00,69,00,6c,00,20,00,70,00,72,00,6f,00,63,00,65,00,73,00,73,00,3b,00,\
  45,00,6d,00,65,00,72,00,67,00,65,00,3b,00,45,00,53,00,49,00,3b,00,65,00,53,\
  00,4d,00,54,00,3b,00,45,00,78,00,70,00,20,00,72,00,65,00,70,00,6f,00,72,00,\
  74,00,73,00,3b,00,46,00,43,00,50,00,41,00,3b,00,46,00,49,00,3b,00,46,00,69,\
  00,6e,00,61,00,6e,00,63,00,65,00,3b,00,46,00,6f,00,6f,00,74,00,62,00,61,00,\
  6c,00,6c,00,3b,00,47,00,6f,00,61,00,6c,00,73,00,2f,00,4f,00,62,00,6a,00,65,\
  00,63,00,74,00,69,00,76,00,65,00,73,00,3b,00,47,00,4f,00,4f,00,44,00,3b,00,\
  47,00,54,00,53,00,3b,00,48,00,32,00,52,00,3b,00,48,00,65,00,6c,00,70,00,64,\
  00,65,00,73,00,6b,00,3b,00,48,00,48,00,49,00,54,00,3b,00,48,00,48,00,49,00,\
  54,00,20,00,54,00,43,00,3b,00,48,00,49,00,4b,00,3b,00,48,00,6f,00,75,00,73,\
  00,65,00,3b,00,48,00,52,00,3b,00,49,00,45,00,3b,00,49,00,46,00,4d,00,3b,00,\
  49,00,6e,00,6e,00,6f,00,76,00,61,00,74,00,69,00,6f,00,6e,00,3b,00,49,00,6e,\
  00,74,00,72,00,61,00,6e,00,65,00,74,00,3b,00,49,00,54,00,3b,00,49,00,54,00,\
  4f,00,4d,00,3b,00,6b,00,61,00,69,00,7a,00,65,00,6e,00,3b,00,4c,00,65,00,67,\
  00,61,00,6c,00,3b,00,4d,00,61,00,67,00,53,00,63,00,61,00,6e,00,64,00,3b,00,\
  4d,00,61,00,73,00,74,00,65,00,72,00,20,00,44,00,61,00,74,00,61,00,3b,00,4d,\
  00,43,00,43,00,3b,00,4d,00,45,00,3b,00,4d,00,65,00,6e,00,74,00,6f,00,72,00,\
  3b,00,4d,00,49,00,44,00,41,00,53,00,3b,00,4d,00,4d,00,44,00,3b,00,4d,00,52,\
  00,4c,00,3b,00,4e,00,41,00,3b,00,4e,00,43,00,4d,00,3b,00,4e,00,4f,00,3b,00,\
  6f,00,6e,00,6c,00,69,00,6e,00,65,00,3b,00,50,00,65,00,72,00,73,00,6f,00,6e,\
  00,61,00,6c,00,3b,00,70,00,6f,00,3b,00,50,00,6f,00,72,00,74,00,66,00,6f,00,\
  6c,00,69,00,6f,00,3b,00,50,00,72,00,6f,00,6a,00,65,00,63,00,74,00,20,00,73,\
  00,68,00,75,00,74,00,64,00,6f,00,77,00,6e,00,3b,00,52,00,65,00,61,00,64,00,\
  3b,00,52,00,49,00,53,00,4c,00,54,00,3b,00,52,00,4d,00,43,00,3b,00,52,00,75,\
  00,73,00,3b,00,53,00,41,00,3b,00,53,00,41,00,53,00,20,00,54,00,72,00,61,00,\
  76,00,65,00,6c,00,3b,00,53,00,63,00,61,00,6e,00,64,00,20,00,49,00,54,00,3b,\
  00,53,00,65,00,61,00,74,00,74,00,6c,00,65,00,3b,00,53,00,49,00,47,00,4d,00,\
  41,00,3b,00,53,00,69,00,67,00,6d,00,61,00,20,00,63,00,6f,00,6d,00,6d,00,3b,\
  00,53,00,69,00,67,00,6d,00,61,00,20,00,74,00,72,00,61,00,69,00,6e,00,69,00,\
  6e,00,67,00,3b,00,53,00,49,00,50,00,3b,00,53,00,50,00,3b,00,53,00,70,00,6f,\
  00,6e,00,73,00,6f,00,72,00,3b,00,53,00,74,00,72,00,61,00,74,00,65,00,67,00,\
  69,00,65,00,73,00,3b,00,53,00,57,00,3b,00,54,00,65,00,61,00,6d,00,20,00,53,\
  00,69,00,74,00,65,00,3b,00,54,00,69,00,6d,00,65,00,20,00,6d,00,67,00,74,00,\
  3b,00,54,00,72,00,61,00,69,00,6e,00,69,00,6e,00,67,00,3b,00,54,00,72,00,61,\
  00,76,00,65,00,6c,00,3b,00,54,00,72,00,65,00,64,00,61,00,70,00,3b,00,54,00,\
  55,00,3b,00,55,00,53,00,20,00,48,00,6f,00,6c,00,69,00,64,00,61,00,79,00,3b,\
  00,56,00,61,00,63,00,61,00,74,00,69,00,6f,00,6e,00,20,00,6d,00,67,00,74,00,\
  3b,00,56,00,69,00,64,00,65,00,6f,00,20,00,43,00,6f,00,6e,00,66,00,65,00,72,\
  00,65,00,6e,00,63,00,65,00,3b,00,57,00,65,00,62,00,3b,00,00,00


But now I have no idea about how to implement the next steps ....

Are you saying that the new button on my toolbar would read this file to get the category?

Sorry ... but need some help

Thanks in advance
Tim

2
Hi again ... all the functionality you have provided me works fantastic, many thanks!!!

New challenge - I have created the code to store my most used categories and then have buttons on the toolbar to populate each of the categories I want to assign. This works great.

However - if I change my list of categories as a new one becomes "more used" than another I currently go into Visualbasic editor, modify the code, change the category and then chang the text on the button.

OK for me being IT savvy but for "normal users" it is a bit scary going into visual basic editor.

Is there any way to create some sort of dialogue box which would show them the list if assignmnets they have defined and then asking them which one they want to change?

So I have this code for each of my categories.


Private Const MY_CUSTOM_CATEGORIES__ = ""
Private Const MY_CUSTOM_CATEGORIES_1_ = "CRM"
Private Const MY_CUSTOM_CATEGORIES_2_ = "NA"
Private Const MY_CUSTOM_CATEGORIES_3_ = "CEEMEA"
Private Const MY_CUSTOM_CATEGORIES_4_ = "RU"
Private Const MY_CUSTOM_CATEGORIES_5_ = "BI"
Private Const MY_CUSTOM_CATEGORIES_6_ = "H2R"
Private Const MY_CUSTOM_CATEGORIES_7_ = "SA"
Private Const MY_CUSTOM_CATEGORIES_8_ = "CEN"
Private Const MY_CUSTOM_CATEGORIES_9_ = "CES"
Private Const MY_CUSTOM_CATEGORIES_10_ = "HHIT"
Private Const MY_CUSTOM_CATEGORIES_11_ = "SIGMA"
Private Const MY_CUSTOM_CATEGORIES_12_ = "TU"
Private Const MY_CUSTOM_CATEGORIES_13_ = "ME"
Private Const MY_CUSTOM_CATEGORIES_14_ = "Finance"
Private Const MY_CUSTOM_CATEGORIES_15_ = "SP"
Private Const MY_CUSTOM_CATEGORIES_16_ = "HIK"
Private Const MY_CUSTOM_CATEGORIES_17_ = "FCPA"
Private Const MY_CUSTOM_CATEGORIES_18_ = "Read"

If I want to change MY_CUSTOM_CATEGORIES_1_ = "CRM" to MY_CUSTOM_CATEGORIES_1_ = "New category" could it be made simpler?

Thoughts or dreaming?

Thanks Tim

3
Hi again ... wonder if you can help again .....

I have code that will move a mail message ot a specifuc folder for me

I also have your code that you gave me to assign a category to the email through the use of a button on the toolbar. Both work great

Now I want to combine both bits of code into one button so that if I want to categorize and email and move it to a designated folder in click I can do this with a button on the toolbar.

The code I have for moving mail to a folder is

Sub Archive_Move_ToFolder()

On Error Resume Next

     
     
     Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder

    Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem

 

    Set objNS = Application.GetNamespace("MAPI")

    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)

Set objFolder = objNS.Folders.Item("Personal Folders").Folders.Item("Archive")

'Assume this is a mail folder

 

    If objFolder Is Nothing Then

        MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"

    End If

 

 

    If Application.ActiveExplorer.Selection.Count = 0 Then

        'Require that this procedure be called only when a message is selected

        Exit Sub

    End If

 

 

    For Each objItem In Application.ActiveExplorer.Selection

        If objFolder.DefaultItemType = olMailItem Then

            If objItem.Class = olMail Then

                objItem.Move objFolder

            End If

        End If

    Next

 

 

    Set objItem = Nothing

    Set objFolder = Nothing

    Set objInbox = Nothing

    Set objNS = Nothing

End Sub

this is in the "ThisOutlooksession"

then I have you code in modules ... how I can run your code to assign the category and then call the other to move the email to the folder?

Thanks

4
perfect - many thanks

5
Hi ....... is there anyway to invoke the spell checker in this procedure. At the moment it brings up the catergories dialogue and then ok "ok" it sends ... but skips the spell checker

Thanks

6
Really appreciate it - works great .

Thanks again

7
This is just fantastic - it transforms my use of Outlook.

Here is another request , if you are up to it ...

I would like to have a second "send" button in outlook.

the second "send" when you click would first bring up the categories dial-up box so you can select categories to assign to an outgoing mail, once you hit OK it would send the mail with the categories assigned.

I would still keep the traditional "send" but have another button with , for example "Send - cats"

Possible or am I dreaming ...?

Many thanks, Tim

8
If it's still available then I don't think you deleted it from the GUI, maybe just closed it?
Open the Customize Toolbars dialog, in the list of toolbars, click on Virtua & then click the Delete button on the right. :Thmbsup:
-r0bertdenir0 (April 30, 2009, 07:41 AM)
Hi - I like this code. I created a couple of buttons on the Outlook toolbar and created 2 macros for 2 categories I use regularily.

However ..... if I hit one botton it inserts the category I coded. If I then hit the other button it overwrites the first category. Is there an aasy way of inserting the second category after ","  i.e Category1, Category 2

Thanks

Pages: [1]