Dim strProf,OuFolder,Text,Item,objMess,rcp

Dim objShell:Set objShell = CreateObject("WScript.Shell")

Dim Outlook:Set Outlook = CreateObject("Outlook.Application")

Dim MAPI:Set MAPI = Outlook.GetNameSpace("MAPI")

strProf = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\" & _
          "Windows Messaging Subsystem\Profiles\DefaultProfile"


MAPI.Logon objShell.RegRead(strProf),"",False,True 

Set OuFolder = MAPI.GetDefaultFolder( 6 )


For Each Item In OuFolder.Items

    WScript.Echo Len(Item.Subject)
    
    If Len(Item.Subject) >  8  Then
        
                 'ЗДЕСЬ хочу получить SenderEmailAddress (данное свойство есть в Outlook 2003)
                 'Но применительно к Outlook  97  его нет. Могу лишь получить Адрес Кому предназначено письмо

        Item.To ' Мой адрес
            
    End If

Next 'End For Each Item In OuFolder.Items

MAPI.Logoff