Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extract Folders Name From Outlook to Excel
Hi ,
In our outlook, we have more than 200 sub folders. Like INBOX Jan2000_USA Feb2000_UK ................ Now we want to modify the sub folders name. So that can you suggest how to Extracting all the outlook folders name to excel. Thanks in advance in your reply |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extract Folders Name From Outlook to Excel
Private R As Integer
Sub ListOLinboxFolders() Const olFolderInbox = 6 R = 0 Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox) GetSubfolders objInbox Set objNamespace = Nothing Set objOutlook = Nothing End Sub Sub GetSubfolders(objParentFolder) R = R + 1 Set colFolders = objParentFolder.Folders For Each objFolder In colFolders Set objSubfolder = objParentFolder.Folders(objFolder.Name) Cells(R, 1).Value = objFolder.Name GetSubfolders objSubfolder Next objFolder End Sub _____________________________ Steve "Vadhimoo" wrote in message ... Hi , In our outlook, we have more than 200 sub folders. Like INBOX Jan2000_USA Feb2000_UK ................ Now we want to modify the sub folders name. So that can you suggest how to Extracting all the outlook folders name to excel. Thanks in advance in your reply |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extract Folders Name From Outlook to Excel
Hi,
I saw this post and it was very helpful. Is there a way from excel vba to copy a specific file (word.doc) into a specific outlook mail folder? Tahanks for any help. peter "Steve Yandl" wrote: Private R As Integer Sub ListOLinboxFolders() Const olFolderInbox = 6 R = 0 Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox) GetSubfolders objInbox Set objNamespace = Nothing Set objOutlook = Nothing End Sub Sub GetSubfolders(objParentFolder) R = R + 1 Set colFolders = objParentFolder.Folders For Each objFolder In colFolders Set objSubfolder = objParentFolder.Folders(objFolder.Name) Cells(R, 1).Value = objFolder.Name GetSubfolders objSubfolder Next objFolder End Sub _____________________________ Steve "Vadhimoo" wrote in message ... Hi , In our outlook, we have more than 200 sub folders. Like INBOX Jan2000_USA Feb2000_UK ................ Now we want to modify the sub folders name. So that can you suggest how to Extracting all the outlook folders name to excel. Thanks in advance in your reply |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Exchange 2007 Publuc Folders and ISA 2006 and Outlook anywhere | Excel Discussion (Misc queries) | |||
Emails in 2 folders. Outlook 2007 | Excel Discussion (Misc queries) | |||
Hyperlink to Outlook Public Folders | Links and Linking in Excel | |||
How do move folders from web based email account to outlook? | Excel Discussion (Misc queries) | |||
Excel & Outlook Personal Folders | Excel Discussion (Misc queries) |