Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1310
  • Last Modified:

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

0
jrameuwissen
Asked:
jrameuwissen
  • 2
  • 2
2 Solutions
 
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.

Join & Write a Comment

Featured Post

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now