asked on

How do I create a new Outlook folder from Excel ?

Hi,

I would like to create a new named Outlook folder from within my Excel 2010 application.

The folder name will be input by the user and appended to the following Outlook folder structure :

Personal Folders/Orders/

I'm not sure where to begin with this.

Thanks
Toco

Michael Fowler

Try this, it is based on an example here
http://social.msdn.microsoft.com/Forums/en-US/768649d6-be9a-4543-ba0a-9c0a31f1aa7b/working-with-outlook-public-folders-from-excel

Dim OL As Outlook.Application
Dim NS As NameSpace
Dim APFs As MAPIFolder      'All Public Folders
Dim MYPF1 As MAPIFolder  'My Pub Folder 1
Dim NewItem As PostItem
  
Set OL = CreateObject("Outlook.Application")
Set NS = OL.GetNamespace("MAPI")
Set APFs = NS.Folders("Public Folders").Folders("All Public Folders")

  ' Enter a valid Public Folder Name below
Set MYPF1 = APFs.Folders("Orders")

MYPF1.folders.Add("Test")

Open in new window

Tocogroup

ASKER

I'm getting a 'User-defined type' error at run-time. Please see attached screenshot.

Tocogroup

ASKER

Let's try uploading the file this time
Create-OL-folder-screenshot.jpg

als315

Look at sample
You will need some libraries in your project (Tools-References in VBA Editor):

AddFolder.xlsm

Tocogroup

ASKER

Ok. I got a little further down the line with a different runtime error (see attached screenshot) on the Set APFs line.
Create-OL-folder-screenshot-erro.jpg

als315

Tocogroup: have you tested my sample?

Tocogroup

ASKER

Hi als315.

Yes I have tested your sample. Hence the screenshot and post above of the second runtime error.
Just to confirm, I checked the libraries as per your screenshot.

als315

Screenshot above is with code from Michael74.
Do you like to add folder to public folders or to personal folders?

Tocogroup

ASKER

Personal folders.
I tried replacing 'Public folders' with 'Personal folders' but had the same runtime error.

ASKER CERTIFIED SOLUTION

als315

membership

This solution is only available to members.

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

Start Free Trial

Tocogroup

ASKER

Apologies als315. My error !

I've copied your sample into my application and it works absolutely fine.

Many thanks for your patience
Toco