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]" wrote:

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" wrote in message ...
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 Explicit
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