Microsoft KB Archive/252821

= XGEN: Read Contact Properties from ASP Page with VBScript =

Article ID: 252821

Article Last Modified on 10/27/2006

-

APPLIES TO


 * Microsoft Exchange Server 5.5 Standard Edition
 * Microsoft Exchange Server 5.5 Service Pack 1
 * Microsoft Exchange Server 5.5 Service Pack 2
 * Microsoft Exchange Server 5.5 Service Pack 3

-



This article was previously published under Q252821



SUMMARY
This article provides an example of how to use VBScript to retrieve the information for a contact in the Contacts folder.



MORE INFORMATION
The following is an example of VBScript that retrieves and displays several, but not all, of the properties of a contact:

<%@ LANGUAGE="VBSCRIPT" %>









Document Title





<%

CONST strServer = "server_name"

CONST strMailbox = "mailbox_name"

CONST CdoPR_GIVEN_NAME = &H3A06001F 'First Name

CONST CdoPR_INITIALS = &H3A0A001E 'Initials

CONST CdoPR_SURNAME = &H3A11001E 'Last Name

CONST CdoPR_DISPLAY_NAME = &H3001001F 'Display Name

CONST CdoPR_ACCOUNT = &H3A00001E 'Alias

CONST CdoPR_TITLE = &H3A17001F 'Title

CONST CdoPR_COMPANY_NAME = &H3A16001F 'Company

CONST CdoPR_BUSINESS_TELEPHONE_NUMBER = &H3A08001F 'BusinessTelephoneNumber

Dim objSession

Dim objMessages

Dim objMessage

Dim objFilter

Dim strProfileInfo

Response.Write ("Contacts Information Demo ")

strProfileInfo = strServer & vbLf & strMailbox

Set objSession = CreateObject("MAPI.Session")

objSession.Logon, , False, False, , True, strProfileInfo

Set objFolder = objSession.GetDefaultFolder(5)

Set objMessages = objFolder.Messages

Set objFilter = objMessages.Filter

For Each objMessage In objMessages

if objMessage.Type = "IPM.Contact" then

Response.Write(" First Name: " & objMessage.Fields(CdoPR_GIVEN_NAME).Value & " ")

Response.Write("Initials: " & objMessage.Fields(CdoPR_INITIALS).Value & " ")

Response.Write("Last Name: " & objMessage.Fields(CdoPR_SURNAME).Value & " ")

Response.Write("Display Name: " & objMessage.Fields(CdoPR_DISPLAY_NAME).Value & " ")

Response.Write("Alias: " & objMessage.Fields(CdoPR_ACCOUNT).Value & " ")

Response.Write("Title: " & objMessage.Fields(CdoPR_TITLE).Value & " ")

Response.Write("Company: " & objMessage.Fields(CdoPR_COMPANY_NAME).Value & " ")

Response.Write("Business Tel: " & objMessage.Fields(CdoPR_BUSINESS_TELEPHONE_NUMBER).Value & " ")

end if

Response.Write("")

Next

objSession.Logoff

Set objFilter = Nothing

Set objAddrEntries= Nothing

Set objSession = Nothing

%>

 </HTML>

Additional query words: VBScript ActMsg CDO ASP

Keywords: kbinfo KB252821

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.