A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Reload this Page Macro to create folder in PST file
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Macro to create folder in PST file


« Namespace.CurrentUser.Address returns unknown | send email using template »

 
 
Thread Tools Search this Thread Display Modes
  #1  
Old December 30th 09, 11:39 PM posted to microsoft.public.outlook.program_vba
Jen[_3_]
external usenet poster
  
Posts: 3
Default Macro to create folder in PST file
I have leveraged a macro I found online to create a new folder
underneath the default Inbox, with a name entered by the user.

However, what I REALLY want is to create the new folder under a folder
that lives in another PST.

So instead of:

Mailbox
--Inbox
----New Folder
Users PST
--Project

I want it to be created as follows:

Mailbox
--Inbox

Users PST
--Project
----New Folder

Here is the code I have so far - can anyone help?

Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myNewFolder As Outlook.MAPIFolder

Dim newProjectName As String
newProjectName = InputBox(Prompt:="You name please.", _
Title:="ENTER YOUR NAME", Default:="ENTRY")

Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)


Set myNewFolder = myFolder.Folders.Add(newProjectName)
  #2  
Old December 31st 09, 06:59 AM posted to microsoft.public.outlook.program_vba
Dmitry Streblechenko
external usenet poster
  
Posts: 2,116
Default Macro to create folder in PST file
Instead of using GetDefaultFolder method, use the Namespace.Folders
collection (which represents teh top level folders of all stores in the
profile) to find a folder named "Users PST", the use the MAPIFolder.Folders
collecton to access the subfolders.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"Jen" wrote in message
...
I have leveraged a macro I found online to create a new folder
underneath the default Inbox, with a name entered by the user.

However, what I REALLY want is to create the new folder under a folder
that lives in another PST.

So instead of:

Mailbox
--Inbox
----New Folder
Users PST
--Project

I want it to be created as follows:

Mailbox
--Inbox

Users PST
--Project
----New Folder

Here is the code I have so far - can anyone help?

Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myNewFolder As Outlook.MAPIFolder

Dim newProjectName As String
newProjectName = InputBox(Prompt:="You name please.", _
Title:="ENTER YOUR NAME", Default:="ENTRY")

Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)


Set myNewFolder = myFolder.Folders.Add(newProjectName)


  #3  
Old December 31st 09, 04:10 PM posted to microsoft.public.outlook.program_vba
Jen[_3_]
external usenet poster
  
Posts: 3
Default Macro to create folder in PST file
On Dec 30, 10:59*pm, "Dmitry Streblechenko"
wrote:
Instead of using GetDefaultFolder method, use the Namespace.Folders
collection (which represents teh top level folders of all stores in the
profile) to find a folder named "Users PST", the use the MAPIFolder.Folders
collecton to access the subfolders.

--
Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy *- Outlook, CDO
and MAPI Developer Tool
-"Jen" wrote in message

...

I have leveraged a macro I found online to create a new folder
underneath the default Inbox, with a name entered by the user.

However, what I REALLY want is to create the new folder under a folder
that lives in another PST.

So instead of:

Mailbox
--Inbox
----New Folder
Users PST
--Project

I want it to be created as follows:

Mailbox
--Inbox

Users PST
--Project
----New Folder

Here is the code I have so far - can anyone help?

* *Dim myolApp As Outlook.Application
* *Dim myNamespace As Outlook.NameSpace
* *Dim myFolder As Outlook.MAPIFolder
* *Dim myNewFolder As Outlook.MAPIFolder

* *Dim newProjectName As String
* *newProjectName = InputBox(Prompt:="You name please.", _
* * * * *Title:="ENTER YOUR NAME", Default:="ENTRY")

* *Set myolApp = CreateObject("Outlook.Application")
* *Set myNamespace = myolApp.GetNamespace("MAPI")
* *Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

* *Set myNewFolder = myFolder.Folders.Add(newProjectName)

Would it be at all possible for you to give me an example? I tried
working with this, but just couldn't get anywhere!
  #4  
Old December 31st 09, 04:16 PM posted to microsoft.public.outlook.program_vba
Dmitry Streblechenko
external usenet poster
  
Posts: 2,116
Default Macro to create folder in PST file
Off the op of my head, no error checking:

set RootFolder = myNamespace.Folders("Users PST")
set myFolder = RootFolder.Folders("Project")
Set myNewFolder = myFolder.Folders.Add(newProjectName)


--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"Jen" wrote in message
...
On Dec 30, 10:59 pm, "Dmitry Streblechenko"
wrote:
Instead of using GetDefaultFolder method, use the Namespace.Folders
collection (which represents teh top level folders of all stores in the
profile) to find a folder named "Users PST", the use the
MAPIFolder.Folders
collecton to access the subfolders.

--
Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-"Jen" wrote in message

...

I have leveraged a macro I found online to create a new folder
underneath the default Inbox, with a name entered by the user.

However, what I REALLY want is to create the new folder under a folder
that lives in another PST.

So instead of:

Mailbox
--Inbox
----New Folder
Users PST
--Project

I want it to be created as follows:

Mailbox
--Inbox

Users PST
--Project
----New Folder

Here is the code I have so far - can anyone help?

Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myNewFolder As Outlook.MAPIFolder

Dim newProjectName As String
newProjectName = InputBox(Prompt:="You name please.", _
Title:="ENTER YOUR NAME", Default:="ENTRY")

Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

Set myNewFolder = myFolder.Folders.Add(newProjectName)

Would it be at all possible for you to give me an example? I tried
working with this, but just couldn't get anywhere!


  #5  
Old December 31st 09, 04:29 PM posted to microsoft.public.outlook.program_vba
Jen[_3_]
external usenet poster
  
Posts: 3
Default Macro to create folder in PST file
On Dec 31, 8:16*am, "Dmitry Streblechenko" wrote:
Off the op of my head, no error checking:

set RootFolder = myNamespace.Folders("Users PST")
set myFolder = RootFolder.Folders("Project")
*Set myNewFolder = myFolder.Folders.Add(newProjectName)

--
Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy *- Outlook, CDO
and MAPI Developer Tool
-"Jen" wrote in message

...
On Dec 30, 10:59 pm, "Dmitry Streblechenko"
wrote:



Instead of using GetDefaultFolder method, use the Namespace.Folders
collection (which represents teh top level folders of all stores in the
profile) to find a folder named "Users PST", the use the
MAPIFolder.Folders
collecton to access the subfolders.

--
Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-"Jen" wrote in message

...

I have leveraged a macro I found online to create a new folder
underneath the default Inbox, with a name entered by the user.

However, what I REALLY want is to create the new folder under a folder
that lives in another PST.

So instead of:

Mailbox
--Inbox
----New Folder
Users PST
--Project

I want it to be created as follows:

Mailbox
--Inbox

Users PST
--Project
----New Folder

Here is the code I have so far - can anyone help?

Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myNewFolder As Outlook.MAPIFolder

Dim newProjectName As String
newProjectName = InputBox(Prompt:="You name please.", _
Title:="ENTER YOUR NAME", Default:="ENTRY")

Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

Set myNewFolder = myFolder.Folders.Add(newProjectName)

Would it be at all possible for you to give me an example? *I tried
working with this, but just couldn't get anywhere!

That worked perfectly - thanks so much!
 



« Previous Thread | Next Thread »

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
create Macro, Outlook 2007 - create is grayed out Dave Horne[_2_] Outlook - General Queries 2 November 4th 07 09:45 AM
Macro to extract subject and sender name of messages in folder to Excel file bony_tony Outlook and VBA 0 March 7th 07 01:16 AM
How do I create a macro to email a file Roger Outlook and VBA 1 October 24th 06 06:20 PM
create macro to show file size in outlook john mcmichael Outlook and VBA 3 May 2nd 06 09:55 PM


All times are GMT +1. The time now is 11:36 PM.

Feed Icon - Contact Us - OutlookBanter Home - FAQ - Links - Privacy Statement - Top

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.