asked on

Edit outlook folder properties with a script

i CREATED a outlook folder using this script. i put it together based on a few different google searches. I know nothing about vb.
Now I just need to enable home page url and checkbox. of the home page tab in properties of this folder.
The path to do this manually is:
properties, home page tab, enter URL, click checkbox

Please help me finish this script. Maybe a check to see if the folder exists already and if it does terminate? That would be a nice touch.
Thanks

-------------------
Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
Set objFolder = objFolder.Parent
Set objNewFolder = objFolder.Folders.Add(".Archive")
-------------------

ASKER CERTIFIED SOLUTION

dougaug

membership

This solution is only available to members.

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

Start Free Trial

Eric

ASKER

This worked perfectly.
is it easy to add
-Check if folder exists, if it does quit.

Does outlook need to be open for this to work??

dougaug

When you call CreateObject("Outlook.Application") an instance of Outlook is executed if it is not opened.

deckydee

I have used this but the problem is that once the folder is created and the script run again, it causes an error.

Is there anyway to add a line that says if folder already exists, do nothing?

Thanks in advance

deckydee

This will avoid the error. It will not run if the folder is already there. This will solve your problem.

Const olFolderInbox = 6
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
Set objFolder = objFolder.Parent
on error resume next
Set objNewFolder = objFolder.Folders.Add("Archive")
objNewFolder.WebViewURL = "https://test.archive.webroot.co.uk/outlook/user"
objNewFolder.WebViewOn = True