|Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.|
This sample adds four subfolders to the current folder. Edit the list to add the folders you need. The first array argument holds the folder name in quotation marks, the second one holds the folder type.
If you don't see every new folder after running the macro, press CTRL+6 in order to display the folder list. You can start the macro, for instance, by pressing ALT+F8.
Public Sub CreateSubfolders() Dim CurrentFolder As Outlook.MAPIFolder Dim Subfolder As Outlook.MAPIFolder Dim List As New VBA.Collection Dim Folders As Outlook.Folders Dim Item As Variant List.Add Array("Messages", olFolderInbox) List.Add Array("Appointments", olFolderCalendar) List.Add Array("Team", olFolderContacts) List.Add Array("ToDo", olFolderTasks) Set CurrentFolder = Application.ActiveExplorer.CurrentFolder Set Folders = CurrentFolder.Folders For Each Item In List Folders.Add Item(0), Item(1) Next End Sub
|VBOffice Reporter is an easy to use tool for data analysis and reporting in Outlook. A single click, for instance, allows you to see the number of hours planned for meetings the next month.|