Question about redemption!

  • Thread starter Thread starter J.Alladien
  • Start date Start date
J

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!
 
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,...

Douglas J. Steele said:
Did you check the Redemption site? http://www.dimastr.com/redemption/

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


J.Alladien said:
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!
Click to expand...
Click to expand...
 
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.
 
J.Alladien said:
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!
Click to expand...
 
Back
Top