Comments on: Look for and create folders programmatically in Outlook http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/ Automation and VBA code for Microsoft® Excel and Outlook Thu, 29 Jul 2010 10:47:39 +0000 hourly 1 http://wordpress.org/?v=3.0 By: JP http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/#comment-2740 JP Thu, 22 Jul 2010 22:16:46 +0000 http://www.codeforexcelandoutlook.com/blog/?p=279#comment-2740 The code I posted will only create Mail-type folders. You would need to change this line: [cc lang='vb']Set olInbox = olNS.GetDefaultFolder(olFolderContacts)[/cc] Then in my sample code, "MyFolder" would point to your new Contacts folder: [cc lang='vb']Set MyFolder = CreateSubFolder("My Folder")[/cc] All you would do then is use the Folder.Items.Add method to add a new contact to the new folder: [cc lang='vb']MyFolder.Items.Add[/cc] The code I posted will only create Mail-type folders. You would need to change this line:

Set olInbox = olNS.GetDefaultFolder(olFolderContacts)

Then in my sample code, "MyFolder" would point to your new Contacts folder:

Set MyFolder = CreateSubFolder("My Folder")

All you would do then is use the Folder.Items.Add method to add a new contact to the new folder:

MyFolder.Items.Add
]]> By: diya http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/#comment-2738 diya Thu, 22 Jul 2010 21:01:10 +0000 http://www.codeforexcelandoutlook.com/blog/?p=279#comment-2738 hey hi i am very new, wanted to add contacts in my new folder but unable to do so, please help me ! hey hi i am very new, wanted to add contacts in my new folder but unable to do so,

please help me !

]]> By: JP http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/#comment-1755 JP Thu, 07 May 2009 03:03:39 +0000 http://www.codeforexcelandoutlook.com/blog/?p=279#comment-1755 I'm still trying to nail down the exact syntax, but it would be something like [cc lang='vb'] Dim vw As View Set vw = CreateSubFolder.Views.Add("My New View", olTableView, olViewSaveOptionAllFoldersOfType) [/cc] Actually setting the folder to that view seems to be a moving target. I'm still trying to nail down the exact syntax, but it would be something like

Dim vw As View
Set vw = CreateSubFolder.Views.Add("My New View", olTableView, olViewSaveOptionAllFoldersOfType)

Actually setting the folder to that view seems to be a moving target.

]]> By: Gary http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/#comment-1754 Gary Wed, 06 May 2009 14:15:26 +0000 http://www.codeforexcelandoutlook.com/blog/?p=279#comment-1754 Correct, but is there a way to do that in VBA? I would guess something like [cc lang='vb']Function CreateSubFolder(strFolder As String, blnForSent as Boolean) As Outlook.MAPIFolder ' assumes folder doesn't exist, so only call if calling sub knows that ' the folder doesn't exist; returns a folder object to calling sub ' Have calling sub set blnForSent = True for folder to display 'To' and 'Sent' fields ' blnForSent = False for folder to display 'From' and 'Received' fields Dim olApp As Outlook.Application Dim olNS As Outlook.Namespace Dim olInbox As Outlook.MAPIFolder Dim olFldr As Outlook.MAPIFolder Set olApp = Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set olInbox = olNS.GetDefaultFolder(olFolderInbox) Set olFldr = olInbox.Folders.Add(strFolder) If blnForSent Then 'olFldr.CurrentView.??? End If Set CreateSubFolder = olFldr ExitProc: Set olFldr = Nothing Set olInbox = Nothing Set olNS = Nothing Set olApp = Nothing End Function[/cc] Correct, but is there a way to do that in VBA?
I would guess something like

Function CreateSubFolder(strFolder As String, blnForSent as Boolean) As Outlook.MAPIFolder
' assumes folder doesn't exist, so only call if calling sub knows that
' the folder doesn't exist; returns a folder object to calling sub
' Have calling sub set blnForSent = True for folder to display 'To' and 'Sent' fields
'                      blnForSent = False for folder to display 'From' and 'Received' fields
Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olInbox As Outlook.MAPIFolder
Dim olFldr As Outlook.MAPIFolder


Set olApp = Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olInbox = olNS.GetDefaultFolder(olFolderInbox)

Set olFldr = olInbox.Folders.Add(strFolder)


If blnForSent Then
  'olFldr.CurrentView.???
End If

Set CreateSubFolder = olFldr

ExitProc:
Set olFldr = Nothing
Set olInbox = Nothing
Set olNS = Nothing
Set olApp = Nothing
End Function
]]> By: JP http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/#comment-1753 JP Tue, 05 May 2009 22:38:04 +0000 http://www.codeforexcelandoutlook.com/blog/?p=279#comment-1753 Gary, Right-click on one of the fields and select "Field Chooser", you can add those fields back in. Gary,
Right-click on one of the fields and select "Field Chooser", you can add those fields back in.

]]> By: Gary http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/#comment-1752 Gary Tue, 05 May 2009 15:56:46 +0000 http://www.codeforexcelandoutlook.com/blog/?p=279#comment-1752 That's fine if you're going to use it to keep mail items that you recieve. What if you use it to keep mail items you've sent? When you click on the folder, it has 'From' and 'Recieved' fields. How do you modify the folder after adding it so 'To' and 'Sent' fields are shown instead? That's fine if you're going to use it to keep mail items that you recieve. What if you use it to keep mail items you've sent? When you click on the folder, it has 'From' and 'Recieved' fields. How do you modify the folder after adding it so 'To' and 'Sent' fields are shown instead?

]]> By: JP http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/#comment-1751 JP Mon, 09 Feb 2009 17:00:07 +0000 http://www.codeforexcelandoutlook.com/blog/?p=279#comment-1751 Glad to help, Reid. 8) Glad to help, Reid. 8)

]]> By: Reid Parker http://www.codeforexcelandoutlook.com/blog/2008/12/look-for-and-create-folders-programmatically-in-outlook/#comment-1750 Reid Parker Mon, 09 Feb 2009 00:36:20 +0000 http://www.codeforexcelandoutlook.com/blog/?p=279#comment-1750 That was EXACTLY the piece of code I was looking for. Thanks very much for posting it! That was EXACTLY the piece of code I was looking for. Thanks very much for posting it!

]]>