' Windows Script Host Sample Script
'
' -----------------------------------------------------------------
' Copyright (C) 2003 MyServiceCenter
' -----------------------------------------------------------------

Call GetContact()

Sub GetContact()
Set Outlook = WScript.CreateObject("Outlook.Application")

Set MyNamespace = Outlook.GetNamespace("MAPI")

Set ContactFolder = MyNamespace.GetDefaultFolder(10)

'Set MyContact = Outlook.CreateItem(olContactItem)
CountContact = ContactFolder.Items.Count
'WScript.Echo "You have " & CountContact & " contact(s)"

ContactStr = "You have " & CountContact & " contact(s)." & vbCrLf & vbCrLf

For i = 1 to CountContact
	If i > 5 Then
		Exit For
	Else
		ContactStr = ContactStr & "Contact " & i & " = " & ContactFolder.Items(i).FullName & vbCrLf
		ContactStr = ContactStr & "Email " & i & " = " & ContactFolder.Items(i).Email1Address & vbCrLf
	End If
Next

'ContactName = ContactFolder.Items(2).FullName
'WScript.Echo "First Contact = " & ContactName

WScript.Echo ContactStr
End Sub