amin

Dear Expert,

would you please take a little time and give me some guide or an answer if
the following issue is possible in Outlook or not, thanks in any way. I think
with your background, you are the one that can tell me if the research I'm
buzy with is possible or not. I have to automate the following action in
Outlook;

"Under user mailbox in MS-Outlook create a New folder and call it Archives -
Select the new folder and choose for Properties – click introduction page and
check and activate the option show introduction page for this folder and fill
in the URL(http://guard-en/UserSrchCriteria.php) and click ok.

So far I've been able to create the following script that creates the folder

-------------------------------------------

'Option ********
On Error Resume Next
'This script creates an Outlook folder called NorthSeas Archive under the
Inbox folder

Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set myInboxFolder = myNameSpace.GetDefaultFolder(6)
Set myNewFolder = myInboxFolder.Folders.Add("NorthSeas Archive")

---------------------------------------------

Could you please tell me if I can add those option((choose for Properties –
click introduction page and check and activate the option show introduction
page for this folder and fill in the
URL(http://guard-en/UserSrchCriteria.php) and click ok.)) in my script? if
so, is it possible that you give me some hints or perhaps for you is just a
matter of second to add those commands

Thanks very much indeed!


--
Amin Bahari
IT Consultant
The Netherlands

sue mosher [mvp-outlook]

By "introduction page," do you mean a folder home page? If so, then set the folder's WebViewOn and WebViewURL properties.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

amin

I'm sorry it's the Dutch translation, it's home page as you said. After I've
got your hint I've changed as you see but it still doesn't work. Do you see
what I don't?
----------
Sub northseasArchief()
Dim outApp As New Outlook.Application
Dim nsp As Outlook.NameSpace
Dim mpfInbox As Outlook.MAPIFolder
Dim mpfNew As Outlook.MAPIFolder

Set nsp = outApp.GetNamespace("MAPI")
Set mpfInbox = nsp.GetDefaultFolder(olFolderInbox)
Set mpfNew = mpfInbox.Folders.Add("Archief")
mpfNew.WebViewURL = "http://guard-en/UserSrchCriteria.php"
mpfNew.WebViewOn = True
End Sub
--
Amin Bahari
IT Consultant
The Netherlands

sue mosher [mvp-outlook]

Sometimes it's necessary to navigate away from the current folder, e.g.:

Set outApp.ActiveExplorer.CurrentFolder = mpfInbox
Set outApp.ActiveExplorer.CurrentFolder = mpfNew

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

amin

I don't understand why the following script doesn't report any error and
create the folder under Inbox but no sign of the home page in properties! I'm
going nuts!. Please is there any body that can help me in this?

Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set myInboxFolder = myNameSpace.GetDefaultFolder(6)
Set myNewFolder = myInboxFolder.Folders.Add("Archief")
Set outApp.ActiveExplorer.CurrentFolder = mpfInbox
Set outApp.ActiveExplorer.CurrentFolder = mpfNew
Set mpfNew = mpfInbox.Folders.Add("Archief")
mpfNew.WebViewURL = "http://guard-en/UserSrchCriteria.php"
mpfNew.WebViewOn = True
--
Amin Bahari
IT Consultant
The Netherlands

sue mosher [mvp-outlook]

Maybe the script isn't running at all? A MsgBox statement will tell you. Only published forms will run code.

Or maybe you have an On Error Resume Next statement blocking the error that these statements would raise:

Set outApp.ActiveExplorer.CurrentFolder = mpfInbox
Set mpfNew = mpfInbox.Folders.Add("Archief")

I would strongly suggest that you add an Option ******** statement to the declarations section of your script and then add Dim statements to each procedure to declare your variables before using them. Part of your problem is that your code uses variables that haven't been instantiated and uses more than one variable for the same object.

Also, if you're trying to navigate away from a folder and back again as part of setting up folder home page, that needs to happen *after* the FHP settings are applied, not before.
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx