From: SourceForge.net <no...@so...> - 2011-02-01 10:53:40
|
Bugs item #3169587, was opened at 2011-02-01 10:53 Message generated for change (Tracker Item Submitted) made by 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 ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=684730&aid=3169587&group_id=119701 |