asked on

Outlook folders description enter from an excel sheet.

Hi,

Outlook folders description enter from an excel sheet.
i have an excel as this
Colum A Colum B Colum C Colum D Colum E
Folder Name | EMP ID | Grade | Manager Name | Location

A few more as above
I want the colum A data matched and got into the description of each folder that gets a match of the name like this

EMP ID : Some data
Grade : Some data
Manager Name : Some data
Location : Some data

I have 5 pst's and 1000's of folder there can be duplicate folders with same name if available then write the data to both

Need to mark a color on the excel just to make sure which all failed if they have.

Regards
Sharath

David Lee

Hi, Sharath.

I need to make sure I understand the question. You have a spreadsheet with the names of folders in column A and other information in columns B - E. You want to search all Outlook folders matching the folder names against the values in column A. If there's a match, then you want the folder's description field filled in with the information in columns B - E for the matching name. Do I have it right?

bsharath

ASKER

Thanks David ...
Yes Exact...

there are folders that might have similar names in muliple pst's or sub folders so all has to be updated with the B-E data
I may have data more than colum "E" if that info is required exact please let me know....

When the descripttion is updated then the excel cells has to be colored so i know which folders were found and updated....

ASKER CERTIFIED SOLUTION

David Lee

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

David Lee

Part 2 of 2

1. Start Outlook
2. Click Tools > Macro > Visual Basic Editor
3. If not already expanded, expand Microsoft Office Outlook Objects
4. If not already expanded, expand Modules
5. Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert > Module.
6. Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7. Edit the code as needed. I included comments wherever something needs to or can change
8. Click the diskette icon on the toolbar to save the changes
9. Close the VB Editor

Select the root folder and run this macro.

Sub SetFolderInfo()
    Dim objFolderInfo As New FolderInfo
    With objFolderInfo
        Set .RootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
        .Subfolders = True
        .Execute
    End With
    Set objFolderInfo = Nothing
End Sub

Open in new window

bsharath

ASKER

Thanks David works perfect
If i need to add nore colums what are the changes i need to do

EMP ID :
Grade:
Manager Name:
Location:

As mentioned can i get an change of color or anything else in the excel so i know that those exact folders have been changed with the description.

bsharath

ASKER

David Lee

You'd modify lines 41-44 of the FolderInfo class. Something like this

        strFolderInfo = "EMP ID : " & excSheet.Cells(intRow, 2) & vbCrLf _
            & "Grade: " & excSheet.Cells(intRow, 3) & vbCrLf _
            & "Manager Name: " & excSheet.Cells(intRow, 4) & vbCrLf _
            & "Location: " & excSheet.Cells(intRow, 5) & vbCrLf _
            & "Another Field: " & excSheet.Cells(intRow,6)

Open in new window

bsharath

ASKER

Thanks a lot David...

David Lee

You're welcome.