(Continued from previous message)
              Msgbox "Could not create the EXTRA System object.  Aborting 
macro
playback."
              STOP
        End If
        Set Sessions = System.Sessions
        If (Sessions is Nothing) Then
                x& = EndWaitBox(hwnd&)
                Msgbox "Could not create the Sessions collection object.
Aborting macro playback."
                STOP
        End If
'-----------------------------------------------------------------------------
-
' Set the default wait timeout value
        g_HostSettleTime = 2000         ' milliseconds
        OldSystemTimeout% = System.TimeoutValue
        If (g_HostSettleTime > OldSystemTimeout) Then
                System.TimeoutValue = g_HostSettleTime
        End If
' Get the necessary Session Object
        Dim Sess0 As Object
        Set Sess0 = System.ActiveSession
        If (Sess0 is Nothing) Then
                x& = EndWaitBox(hwnd&)
                Msgbox "Could not create the Session object.  Aborting macro
playback."
                STOP
        End If
        Sess0.Visible = TRUE
        Dim MyScreen as Object
        Set MyScreen = Sess0.Screen
        Dim MyArea as Object
'-------------------------------------------------------------------
   'look for LIST OF IN-BASKET ITEMS (One of 3 possible PAGES)
    Set MyArea = MyScreen.Area(1,29,1,51,,3)
    Dim directive%
    directive% = 1
   if MyArea.Value  "LIST OF IN-BASKET ITEMS" then
    directive% = 2
    'look for DESCRIPTION OF NOTE     IN IN-BASKET
     Set MyArea = MyScreen.Area(1,22,1,57,,3)
       if MyArea.Value  "DESCRIPTION OF NOTE     IN IN-BASKET" then
         directive% = 3
         Set MyArea = MyScreen.Area(1,34,1,42,,3)
         if MyArea.Value  "VIEW NOTE" then
          x& = EndWaitBox(hwnd&)
          MsgBox "Sorry " & chr(13) & "You are not looking at your list of
notes" & chr(13) & "or description of note" & chr(13) & MyArea.Value
          STOP
         end if
       end if
   end if
   x& = EndWaitBox(hwnd&)
   hwnd& = WaitBox("Navigating Screen Object")
   if directive% = 1 then
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("x")
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("1")
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
   end if
   if directive% = 2 then
        Sess0.Screen.Sendkeys("1")
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
   end if
   x& = EndWaitBox(hwnd&)
   Dim Word As Object                    'Declare an object variable
   hwnd& = WaitBox("Starting OLE link to Word")
   Set Word = CreateObject("Word.Basic") 'Set the object pointer
   Word.FileNew                          'Create a new File in Word
 ' Word.Bold                             'Make the Font Bold
(Continued to next message)
--- WILDMAIL!/WC v4.12 
---------------