Question about redemption! *10142008

[J.Alladien]

Hello everybody,

Can somebody help me understand redemption,cause I don't seem to understand
it,
Here is what I did:

1.I downloaded the Redemption.dll file and checked/added it to my references !
2.If I understand correctly I now need to rewrite the codes setting
referance to redemption,but its not working out for me , here is the code I
need to rewrite(I Think):

'Arvin Meyer 03/12/1999
'Updated 7/21/2001
On Error GoTo Error_Handler

Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
.To = Forms![Names1]![E-mail Address]
.Subject = "Look at this sample attachment"
.body = "The body doesn't matter, just the attachment"
.Attachments.Add "C:\Documents and Settings\earl.JETZZA\Desktop\ALARM.pdf"
'.attachments.Add "c:\Path\to\the\next\file.txt"
.SEND
'.ReadReceiptRequested
End With

Exit_Here:
Set objOutlook = Nothing
Exit Sub

Error_Handler:
MsgBox Err & ": " & Err.Description
Resume Exit_Here


End Sub


What do I need to add/modify to this code for redemption to work?
Or am I totally wrong on this?
Thanks in advance!

 

[Maurice]

If you've downloaded the redemption file did you take a look at the FAQ on
the same site? Here you'll find some references to how to use the redemption
library.

Within the code you need to reference the redemption lib as such

redemption.[choose option here]

http://www.dimastr.com/redemption/faq.htm#1

hth