Allright...
Set myInboxFolder = myNamespace.GetDefaultFolder(6)
Is responsible for finding the default Inbox in your Outlook profile. 6 =
Inbox type.
Then
Set myFolder = myInboxFolder.parent
Finds the parent of the Inbox, the root (Mailbox - username).
If you want to create subfolders under Inbox, then there is no need for the
line that finds the root.
The whole thing would look like below, and will create subfolders under
Inbox:
Set Application = CreateObject("Outlook.Application")
Set myNameSpace = Application.GetNameSpace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(6)
Set myNewFolder = myFolder.Folders.Add("My Stuff")
Set myNewFolder = myFolder.Folders.Add("My Stuff 2")
Set myNewFolder = myFolder.Folders.Add("My Stuff 3")
Set myNewFolder = myFolder.Folders.Add("My Stuff 4")
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Hatley,
Ken
Sent: Tuesday, April 06, 2004 3:26 PM
To: Exchange Discussions
Subject: RE: Auto Folder creation
Thanks for your help Andrey
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Fyodorov,
Andrey FTL
Sent: Tuesday, April 06, 2004 2:05 PM
To: Exchange Discussions
Subject: RE: Auto Folder creation
Use some logic, check in Google to find out what GetDefaultFolder means.
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Hatley,
Ken
Sent: Tuesday, April 06, 2004 2:41 PM
To: Exchange Discussions
Subject: RE: Auto Folder creation
I like this better, how do I set it to a sub folder?
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Fyodorov,
Andrey FTL
Sent: Tuesday, April 06, 2004 1:16 PM
To: Exchange Discussions
Subject: RE: Auto Folder creation
And if you don't want to play with forms, a VBscript like this can do
it:
Set Application = CreateObject("Outlook.Application")
Set myNameSpace = Application.GetNameSpace("MAPI")
Set myInboxFolder = myNamespace.GetDefaultFolder(6)
Set myFolder = myInboxFolder.parent
Set myNewFolder = myFolder.Folders.Add("My Stuff")
Set myNewFolder = myFolder.Folders.Add("My Stuff 2")
Set myNewFolder = myFolder.Folders.Add("My Stuff 3")
Set myNewFolder = myFolder.Folders.Add("My Stuff 4")
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Fyodorov,
Andrey FTL
Sent: Tuesday, April 06, 2004 1:41 PM
To: Exchange Discussions
Subject: RE: Auto Folder creation
Create a form with a big button. Assign a script like below to the form.
When you run the form and click on the button, it will create folders called
"My Stuff" and "Mu Stuff 2" under a currently selected folder.
Sub CommandButton1_Click()
Set SelectedFolder = Application.ActiveExplorer.CurrentFolder
Set myNewFolder = SelectedFolder.Folders.Add("My Stuff")
Set myNewFolder = SelectedFolder.Folders.Add("My Stuff 2")
End Sub
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Hatley,
Ken
Sent: Tuesday, April 06, 2004 12:40 PM
To: Exchange Discussions
Subject: RE: Auto Folder creation
Anyone have any examples
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Fyodorov,
Andrey FTL
Sent: Tuesday, April 06, 2004 11:12 AM
To: Exchange Discussions
Subject: RE: Auto Folder creation
A script could probably do it.
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Hatley,
Ken
Sent: Tuesday, April 06, 2004 11:43 AM
To: Exchange Discussions
Subject: Auto Folder creation
Is there ways to auto create a list of folders in Outlook from a spreadsheet
or any other automated way so I do not have to manually type in 500 some odd
folders? I am using Outlook as a temporary contact management solution by
creating folders and then using posts to keep chronological records on each
but don't want to manually type the list in.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&;
lang
=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&;
lang=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&;
lang
=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&;
lang
=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&;
lang=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&;
lang
=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&;
lang=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&lang
=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&lang=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at:
Jupitermedia Corp.
Attn: Discussion List Management
475 Park Avenue South
New York, NY 10016
Please include the email address which you have been contacted with.
