[Oorexx-bugs] [ oorexx-Bugs-3169587 ] OLE Outlook issue - Windows 7

[SourceForge.net <no...@so...>]

Bugs item #3169587, was opened at 2011-02-01 02:53
Message generated for change (Comment added) made by miesfeld
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=684730&aid=3169587&group_id=119701

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: v4.1
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: https://www.google.com/accounts ()
Assigned to: Nobody/Anonymous (nobody)
Summary: OLE Outlook issue - Windows 7

Initial Comment:
/* Rexx -------------------------------------------------------------*/
/*                                                                   */
/* you have to change OleFolder !!!!!!                               */
/*                                                                   */
/* Outlook 2003 (11.8325.83299) SP3 used with Windows 2003 and       */
/* Windows7 x64                                                      */
/*                                                                   */
/* Program works on Windows 2003 - error on Windows 7                */
/*                                                                   */
/* Windows 7 trace :                                                 */
/*                                                                   */
/* d:\oorexx\$Work>mailatta                                          */
/*     19 *-*   if ( mail_Item~unread )                              */
/*        >V>     MAIL_ITEM => "an OLEObject"                        */
/*        >M>     "UNREAD" => "1"                                    */
/*        >>>     "1"                                                */
/*     19 *-*     then                                               */
/*     20 *-*       mail_Item~Unread(false)                          */
/*        >V>         MAIL_ITEM => "an OLEObject"                    */
/*        >V>         FALSE => "FALSE"                               */
/*        >A>         "FALSE"                                        */
/*     20 *-*       mail_Item~Unread(false)                          */
/* Error 92 running D:\OORexx\$Work\MailAttA.rex line 20:  OLE error */
/* Error 92.901:  An unknown OLE error occurred (HRESULT=00000001).  */
/*                                                                   */
/*-------------------------------------------------------------------*/
   call on Error

   MS_Outlook = .OLEObject~New('Outlook.Application')
   mapi = MS_Outlook~GetNameSpace('MAPI')

   OleFolder = mapi~Folders('Postfach - Hugo, Habicht')~Folders('_AV')
   OleItem = OleFolder~Items
   count   = OleItem~Count

   do aa = count to 1 by -1
      mail_Item = OleFolder~Items(aa)
      trace i
      if ( mail_Item~unread ) then ,
           mail_Item~Unread(false)
      trace o

   end
   return

/*-------------------------------------------------------------------*/

Error:
    say 'Error in Line -' sigl '- RC =' rc
    exit

----------------------------------------------------------------------

>Comment By: Mark Miesfeld (miesfeld)
Date: 2011-02-01 06:57

Message:
Thanks for opening this.  I don't have Outlook set up on my Windows 7
machine, so it might take me a week or two to take a good look at this.

However, this looks suspicious to me:

mail_Item~Unread(false)

I think you should use .false  On your Windows 7 system, try changing that
and see if the error goes away.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=684730&aid=3169587&group_id=119701