Question about redemption!

[J.Alladien]

Hello All,


I have following code:

Private Sub Form_Current()
'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 = Forms![Names1]![SUB]
.Body = Forms![Names1]![Body]
.Attachments.Add "C:\PROMO.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


How do I modify/change the abovementioned code in order for REDEMPTION to
work,I have the redemption.dll referance checked!

I have tried it on my own ,but not working out for me!
Thanks in advance!

 

[Douglas J. Steele]

Did you check the Redemption site? http://www.dimastr.com/redemption/

 

[J.Alladien]

Doug,

I did but it didn't work out, but while I was waiting for answers to my post
I snooped around a bit and found an excellent solution to my problem ,which I
suspect others have as well,and which they can use to solve the problem!

check out:http://www.mapilab.com/outlook/security/

Real easy and works great!

Thanks anyway Doug, I will repost the question again in a later stage/time
cause ultimately I would like to know how the redemption stuff works,...

Did you check the Redemption site? http://www.dimastr.com/redemption/

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Hello All,


I have following code:

Private Sub Form_Current()
'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 = Forms![Names1]![SUB]
.Body = Forms![Names1]![Body]
.Attachments.Add "C:\PROMO.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


How do I modify/change the abovementioned code in order for REDEMPTION to
work,I have the redemption.dll referance checked!

I have tried it on my own ,but not working out for me!
Thanks in advance!

 

[Arvin Meyer [MVP]]

Once the Redemption dll has been registered, nothing further is needed. Make
sure it's registered:

Start >>> Run

then type:

regsvr32.exe "C:\Windows\System32\Redemption.dll"

or the path to wherever you've put the file.

 

[Howard Burgman]

Hello All,


I have following code:

Private Sub Form_Current()
'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 = Forms![Names1]![SUB]
.Body = Forms![Names1]![Body]
.Attachments.Add "C:\PROMO.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


How do I modify/change the abovementioned code in order for REDEMPTION to
work,I have the redemption.dll referance checked!

I have tried it on my own ,but not working out for me!
Thanks in advance!