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