J
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!
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!