*-- A single message deleter LPARAMETERS lnCurrentMessage, lcMessageSubject lnReturn = -1 loInbox = THIS.oOutInbox && The default Inbox folder - already defined loDeletedItems = THIS.oOutDeleted && The default Deleted Items folder - already defined lnWork = 0 FOR EACH loMsg IN loInbox.Items lnWork = lnWork+1 lcWorkSubject = THIS.GetInSubject(lnWork) IF lnWork = lnCurrentMessageNo .AND. LOWER(lnWorkSubject)=LOWER(lcMessageSubject) *-- Right, by reckoning, this should move the message I am on.... *-- ERROR SPOT!!!! Remember this spot!!! The error occurs here!!! loMsg.Move( loDeletedItems ) lnReturn = 0 *-- Okay, remember, I only want ONE message deleted, this one... so we can go now... EXIT ENDIF ENDFOR *--- Do all the cleanup stuff.... *-- Return a '0' - we did good, Return -1, no message deleted RETURN lnReturnRight, well this is what I get at the 'ERROR SPOT'
OLE error code 0x8002000f: Parameter Not OptionalI can only jump from a bridge from here... lol... does anyone have a clue here? I have tried to reverse the count, etc... to no avail...