Redemption problem error 429

[Schaap]

I read all the threads, but still it's not clear for me !

I'll send an email from my db-form. That works !!!

In other threads I read that to get around the security problem it's possible to use the outlook redemption.

Used code:

Titeltxt = "New "
Bodytxt = "User: " & username & "
Set APP = CreateObject("Outlook.Application")
Set ITM = APP.CreateItem(olMailItem)

Set ITM = GetObject(, "Redemption.SafeMailItem")
If ITM Is Nothing Then
Set ITM = CreateObject("Redemption.SafeMailItem")
End If

strRecipName = "name@piet.nl"
With ITM
.To = strRecipName
.Subject = Titeltxt
.Body = Bodytxt
.Send
End With

I get the following error: Runtime error 429: ActiveX
component can't create object.
Error appears at line: Set ITM = GetObject(,"Redemption.SafeMailItem").

I need some help (solution/explanation)!

 

[Schaap]

Problem solved with Mapilab free redemption stuff

thx 4 all the clues

 

[MasterLu]

Hi Schaap

Would you mind posting the link to where you found the Mapilab free redemption stuff? I'm running into the same problem here...

Thanks!