I want to get the address from the Outlook 2000 Contact using VBScript.
I got the code from msdn which is VB code. I am not sure how can i turn
that to the vbscript so that i can use them in a HTML page.

here is the code:
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder (olFolderContacts)
Set myItem = myContacts.Items.Find("[FileAs] = _
    ""Jones"" and [FirstName] = ""Brent""")

any help is greatly appreciated.

Thanks in advance,
Chins

Const olFolderContacts = 10
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder (olFolderContacts)
Set myItem = myContacts.Items.Find("[FileAs] = _
    ""Jones"" and [FirstName] = ""Brent""")

--
Michael Harris
MVP Scripting

Hi:

I want to get the address from the Outlook 2000 Contact using VBScript.
I got the code from msdn which is VB code. I am not sure how can i turn
that to the vbscript so that i can use them in a HTML page.

here is the code:
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder (olFolderContacts)
Set myItem = myContacts.Items.Find("[FileAs] = _
    ""Jones"" and [FirstName] = ""Brent""")

any help is greatly appreciated.

Thanks in advance,
Chins