[AccessD] Redemption question

Joe O'Connell joeo at appoli.com
Mon Nov 16 08:26:38 CST 2009


What is the proper way to use Redemption to move email messages from the
inbox to the deleted items folder?

An Access 2003 application had been using Outlook objects to read each
email in the inbox, process it, and then delete it.  The delete behaved
just like Outlook - the email was moved to the deleted items folder.
Requirements changed and properties needed to be accessed that caused
the "confirmation" message box to be displayed.  To eliminate the
message box, the code was changed to use Redemption.  The processing of
the emails is working properly, but the delete now deletes the emails
completely from Outlook instead of moving them to the deleted items
folder.  Business rules require all email messages to be retained for a
specific period of time after being processed.

Here is the relevant code:
   
    Dim i As Integer
    Dim lngNumItems As Long
    Dim Session As Object, Folder As Object, olItems As Object
    
    Set Session = CreateObject("Redemption.RDOSession")
    Session.Logon
    Set Folder = Session.GetDefaultFolder(olFolderInbox)
    lngNumItems = Folder.Items.Count                   
    Set olItems = Folder.Items                         

    If lngNumItems > 0 Then
        For i = 1 To lngNumItems
            .... process email, works OK .......
        Next i
    
        For i = lngNumItems To 1 Step -1
            olItems(i).Delete
        Next i
    End If

Any help on how to change the "olItems(i).Delete" statement to move the
email to the deleted items folder is greatly appreciated.

Joe O'Connell




More information about the AccessD mailing list