[AccessD] Redemption question

Doug Murphy dw-murphy at cox.net
Mon Nov 16 18:59:49 CST 2009


Don't have a lot of experience with Redemption but I believe that all the
folder stuff is MAPI. Send may be CDO. Look at the examples on the
Redemption site. I don't have the pro version so don't have the official
documentation. 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Monday, November 16, 2009 4:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Redemption question

Because Redemption isn't working through Outlook, it's working through CDO.

Charlotte Foust 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe O'Connell
Sent: Monday, November 16, 2009 4:20 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Redemption question

Charlotte,

That is what Max had suggested earlier.  It gives me the desired result so
it is a good solution.  I was just curious as to why the delete in
Redemption behaved differently.

Joe O'Connell


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Monday, November 16, 2009 1:51 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Redemption question

I haven't programmed it in several years so I don't recall, but you should
be able to copy the email to the deleted folder and then delete it using
redemption.  Wouldn't that accomplish the same thing?

Charlotte Foust 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe O'Connell
Sent: Monday, November 16, 2009 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Redemption question

Charlotte,

Is there a way to delete an email message from the inbox and have it moved
to the deleted items folder?

Joe O'Connell

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Monday, November 16, 2009 12:41 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Redemption question

Redemption doesn't work through Outlook.  It uses the CDO object directly.

Charlotte Foust 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe O'Connell
Sent: Monday, November 16, 2009 8:02 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Redemption question

Max,

Thanks for the suggestion, I will give it a try.

I would still like to better understand Redemption.  Can anyone shed any
light on why Redemption behaves differently from Outlook?

Joe O'Connell

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Wanadoo
Sent: Monday, November 16, 2009 10:51 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Redemption question

Joe, change it to so that it moves the email to another folder,  in this
case the delete folder.
I cannot give you the code right now, but it should be easy enough to find
with intellisense.

Max


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe O'Connell
Sent: 16 November 2009 14:27
To: Access Developers discussion and problem solving
Subject: [AccessD] Redemption question

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


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




More information about the AccessD mailing list