I’ve been using the program for the last few years and it’s great. It doesn’t have the automation features that you may be looking for, but it allow the moving, tagging and manipulating of email into tasks.

If you have any questions, feel free to let me know at FSV_Projects@shaw.ca.

1) Go to your toolbar customization (right-click on toolbar and select “customize”)

2) Under the Commands tab, you should find Macros listed in the left hand side. Select and drag your macros to their destination on the toolbar.

3) Right click on the new button and you’ll find the option to re-name it. This is where you’d include the & in the name in order to connect it to a alt + __ shortcut.

Hope that helps!

I don’t have any conmment but I have a quetion. Do you know if it’s possible to automate the following action in an script;
“Under user mailbox in MS-Outlook create a subfolder, With the left mouse click on the folder of from which the archives may become approached. – Create a New folder and call it Archives – Select the new folder and choose for Properties – click introduction page and check and activate the option show introduction page for this folder and fill in the URL the http address”

If you could give me some hint I’d be grateful.
amin.bahari@itdata.nl

I’ve made an improvement to your file function which has saved me a lot of time. Instead of only being able to categorise and file one email at a time I’ve edited it so you can select multiple items in your inbox, hit ALT+I, select a category for all items, then have them filed in one go.

I tended to have bunches of emails with the same category (for example when a “email conversation” was happening) and the one at a time filing was taking ages.

I’ve also simplified it to use the new FileFolderEntryId() function you created in your post “Renaming Tasks in Outlok 2007″

Sub File()

Dim item As MailItem
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim fileFolder As Outlook.Folder
Dim categories As String

‘ Move the item to the file folder
Set myolApp = CreateObject(“Outlook.Application”)
Set myNamespace = myolApp.GetNamespace(“MAPI”)
Set fileFolder = myNamespace.GetFolderFromID(FileFolderEntryId())

‘ Pick the category for the first item
Set item = Outlook.Application.ActiveExplorer.Selection.item(1)
item.ShowCategoriesDialog

‘what categories should we assign all mail items to?
categories = item.categories

‘Go through each email in the selection
For i = 1 To Outlook.Application.ActiveExplorer.Selection.Count

‘ Pick the category for the first item
Set item = Outlook.Application.ActiveExplorer.Selection.item(i)
item.categories = categories
item.Move fileFolder

Next i

End Sub

Function FileFolderEntryId() As String

Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim rootFolder As Outlook.Folder
Dim subFolders As Outlook.Folders
Dim subFolder As Outlook.Folder
Dim fileFolder As Outlook.Folder
Dim fileEntryID As String
Dim fileFolderName As String

‘Set the folder name – must be at the same level as the inbox
fileFolderName = “File”

‘ Move the the file folder
Set myolApp = CreateObject(“Outlook.Application”)
Set myNamespace = myolApp.GetNamespace(“MAPI”)
Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
Set rootFolder = myInbox.Parent
Set subFolders = rootFolder.Folders

Set subFolder = subFolders.GetFirst
Do While Not subFolder Is Nothing
If subFolder.Name = fileFolderName Then
fileEntryID = subFolder.EntryID
Exit Do
End If
Set subFolder = subFolders.GetNext
Loop

‘ return the entry ID for the file folder
FileFolderEntryId = fileEntryID

End Function

Am quite keen to see if other users have come up with improvements to these macros!