?
Solved

Edit outlook folder properties with a script

Posted on 2009-07-07
5
Medium Priority
?
806 Views
Last Modified: 2013-11-10
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")
-------------------
0
Comment
Question by:Eric
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
5 Comments
 
LVL 11

Accepted Solution

by:
dougaug earned 2000 total points
ID: 24797156
To setup the properties you mentioned above, add the following code to your script:

  objNewFolder.WebViewURL = "http://www.experts-exchange.com"
  objNewFolder.WebViewOn = True

I hope this help,

Douglas
0
 
LVL 11

Author Comment

by:Eric
ID: 24807878
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??

0
 
LVL 11

Expert Comment

by:dougaug
ID: 24808585
When you call CreateObject("Outlook.Application") an instance of Outlook is executed if it is not opened.

0
 

Expert Comment

by:deckydee
ID: 36179371
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
0
 

Expert Comment

by:deckydee
ID: 36180582
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
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Today, the web development industry is booming, and many people consider it to be their vocation. The question you may be asking yourself is – how do I become a web developer?
What do responsible coders do? They don't take detrimental shortcuts. They do take reasonable security precautions, create important automation, implement sufficient logging, fix things they break, and care about users.
Progress
Introduction to Processes

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question