Help with code - Run time error 429

[Jack III]

When I put the following code in "after update" I get the run time error 429. ActiveX componet cannot create object.

Any suggestions would be greatly appeciated!



Public Sub SendMessage()
> Dim objOutlook As Outlook.Application
> Dim objOutlookMsg As Outlook.MailItem
> Dim objOutlookRecip As Outlook.Recipient
> Dim SafeItem
>
> Set SafeItem = CreateObject("Redemption.SafeMailItem")
> ' create the Outlook session
> Set objOutlook = CreateObject("Outlook.Application")
> ' create the Message
> Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
> SafeItem.Item = objOutlookMsg
> With SafeItem
> .Recipients.Add "MyRecipient<my_address@tesco.net>"
> .Subject = "Testing"
> .Body = "This is a test of Redemption"
> '.Display
> .Save
> .Send
> End With
> Set objOutlookMsg = Nothing
> Set objOutlookMsg = Nothing
> Set SafeItem = Nothing
>
> End Sub

 

[Travis]

Which line does this Occur on?

If you don't know, add a Break Point in the SUB and use the F8 key to step through the code.

Generally when this error occurs it is because a reference is not set or is corrupted.

 

[Jack III]

The line it stops on

Set SafeItem = CreateObject("Redemption.SafeMailItem")

 

[Mile-O]

MIght be a stupid question, but: do you have the Redemption ActiveX object?

 

[Jack III]

I'm pretty new to VBA...How do I get the Redemption ActiveX Object??

 

[Mile-O]

How do I get the Redemption ActiveX Object??

By paying for it, I'm afraid.

 

[Jack III]

Other ways?

Is there any other way of getting around automation server in outlook?

 

[Mile-O]

I personally haven't.

That's how I found out about Redemption. I refuse to pay, too.

 

[Travis]

I believe MicroSoft did it this way to add a way to notify you that your email may be hyjacked. This allows you just enough time to reach behind your PC and yank your internet connection