Unable to create object Redemption.SafeMailItem

Dear Experts,

I have a problem using automated emailing out of ms access to ms outlook 2003.
When i try to send an email using Redemption.SafeMailItem, Access return an error message that the ActiveX is unbale to create the object.

I use attached code.
Any ideas?

Thanks in advance

Dim ObjOutlook As Outlook.Application
        Dim objOutlookMSG As Outlook.MailItem
        Dim objOutlookRecip As Outlook.Recipient
        Dim objOutlookAttach As Outlook.Attachment
        Dim objSafeMail As Object
        ' Create the Outlook session.
        Set ObjOutlook = CreateObject("Outlook.Application")
        ' Create the message.
        Set objOutlookMSG = ObjOutlook.CreateItem(olMailItem)
        With objOutlookMSG
            .Subject = strSubject
            .Body = strMessage
            If strAttach <> "" Then
                Set objOutlookAttach = .Attachments.Add(strAttach)
            End If
            .To = strTo
            .CC = strCC
            .BCC = strBCC
            If blnHighImportance = True Then
                .Importance = olImportanceHigh
            End If
            If blnFlagEmail = True Then
                .FlagStatus = olFlagMarked
            End If
        End With
        'Passes the Outlook Message to Redemption to Bypass security prompts.
        objOutlookMSG.Save
        Set objSafeMail = CreateObject("Redemption.SafeMailItem")
        Set objSafeMail.item = objOutlookMSG
        objSafeMail.Recipients.Add strTo
        objSafeMail.Send

Open in new window

LVL 1
jrameuwissenAsked:
Who is Participating?
 
Patrick MatthewsCommented:
Which line does the debugger jump to?
0
 
Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
Is Outlook Redemption installed on the machine?
0
 
jrameuwissenAuthor Commented:
Gents,

Thanks for your response.
The debugger jumped to line Set objSafeMail = CreateObject("Redemption.SafeMailItem").
I reinstalled an up to date version of Redemption and now I do not receive the errormessage anymore.
The only issue remaining is when I open Outlook, the message is stored in concepts and is not send automaticly..

Thanks
0
 
jrameuwissenAuthor Commented:
Gents,

Thanks for your responses. I was able to fix the problem by reconfiguring my email account.
Split point for your responses.

Thanks for trying!

Regards, Johan
0
 
Patrick MatthewsCommented:
Glad to help :)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.