VERSION 4.00
Begin VB.Form Form1 
   Caption         =   "EMail Reply"
   ClientHeight    =   3390
   ClientLeft      =   4125
   ClientTop       =   4365
   ClientWidth     =   5745
   Height          =   3795
   Left            =   4065
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3390
   ScaleWidth      =   5745
   Top             =   4020
   Width           =   5865
   Begin VB.Frame fraFrame 
      Height          =   1635
      Left            =   180
      TabIndex        =   3
      Top             =   900
      Width           =   5355
      Begin VB.ListBox lstDisplayName 
         Height          =   840
         ItemData        =   "nccemail.frx":0000
         Left            =   180
         List            =   "nccemail.frx":0002
         TabIndex        =   6
         TabStop         =   0   'False
         Top             =   555
         Width           =   1575
      End
      Begin VB.ListBox lstEMailAddress 
         Height          =   840
         ItemData        =   "nccemail.frx":0004
         Left            =   1905
         List            =   "nccemail.frx":0006
         TabIndex        =   5
         TabStop         =   0   'False
         Top             =   555
         Width           =   1575
      End
      Begin VB.ListBox lstEMailType 
         Height          =   840
         ItemData        =   "nccemail.frx":0008
         Left            =   3615
         List            =   "nccemail.frx":000A
         TabIndex        =   4
         TabStop         =   0   'False
         Top             =   555
         Width           =   1575
      End
      Begin VB.Label lblDisplayName 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Display Name:"
         Height          =   195
         Left            =   180
         TabIndex        =   9
         Top             =   300
         Width           =   1020
      End
      Begin VB.Label lblEmailAddress 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "EMail Address:"
         Height          =   195
         Left            =   1860
         TabIndex        =   8
         Top             =   300
         Width           =   1050
      End
      Begin VB.Label lblEmailAddressType 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "EMail Address Type:"
         Height          =   195
         Left            =   3600
         TabIndex        =   7
         Top             =   300
         Width           =   1455
      End
   End
   Begin VB.CommandButton cmdUpdate 
      Caption         =   "Update"
      Default         =   -1  'True
      Height          =   495
      Left            =   2100
      TabIndex        =   2
      Top             =   2700
      Width           =   1575
   End
   Begin GWNCCLib.GWncc GWncc1 
      Height          =   285
      Left            =   180
      TabIndex        =   1
      Top             =   450
      Width           =   5355
      _Version        =   65536
      _ExtentX        =   9446
      _ExtentY        =   503
      _StockProps     =   69
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ShowAddressList =   1
   End
   Begin VB.Label lblName 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Names:"
      Height          =   195
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   540
   End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
'/***************************************************************************
'$name: NCCEMAIL.FRM
'$version: 1.0 
'$date_modified: 121198 
'$description: Visual Basic form file
'$owner: GroupWise SDK Team Lead
'Copyright (c) 1998 Novell, Inc. All Rights Reserved.
'
'THIS WORK IS SUBJECT TO U.S. AND INTERNATIONAL COPYRIGHT LAWS AND TREATIES.
'USE AND REDISTRIBUTION OF THIS WORK IS SUBJECT TO THE LICENSE AGREEMENT
'ACCOMPANYING THE SOFTWARE DEVELOPMENT KIT (SDK) THAT CONTAINS THIS WORK.
'PURSUANT TO THE SDK LICENSE AGREEMENT, NOVELL HEREBY GRANTS TO DEVELOPER A
'ROYALTY-FREE, NON-EXCLUSIVE LICENSE TO INCLUDE NOVELL'S SAMPLE CODE IN ITS
'PRODUCT. NOVELL GRANTS DEVELOPER WORLDWIDE DISTRIBUTION RIGHTS TO MARKET,
'DISTRIBUTE, OR SELL NOVELL'S SAMPLE CODE AS A COMPONENT OF DEVELOPER'S
'PRODUCTS. NOVELL SHALL HAVE NO OBLIGATIONS TO DEVELOPER OR DEVELOPER'S
'CUSTOMERS WITH RESPECT TO THIS CODE.
'****************************************************************************/

Dim nCurrnet As Integer

Private Sub cmdUpdate_Click()

    Dim nCount As Integer
    Dim sString As String
    Dim nIndex As Integer

    ' Clear all ListBoxes
    For nIndex = 0 To Me.Controls.Count - 1
        If TypeOf Me.Controls(nIndex) Is ListBox Then
            Me.Controls(nIndex).Clear
        End If
    Next
    
    nCount = GWncc1.Count
    
    For nIndex = 1 To nCount
        'Display Name
        sString = GWncc1.DisplayName(nIndex - 1)
        lstDisplayName.AddItem sString
        
        'EMail Address
        sString = GWncc1.EMailAddress(nIndex - 1)
        lstEMailAddress.AddItem sString
        
        'EMail Address Type
        sString = GWncc1.EMailType(nIndex - 1)
        lstEMailType.AddItem sString
    Next

End Sub