Solved

Unable to create object Redemption.SafeMailItem

Posted on 2008-10-13
5
1,079 Views
Last Modified: 2012-05-05
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
Comment
Question by:jrameuwissen
  • 2
  • 2
5 Comments
 
LVL 92

Accepted Solution

by:
Patrick Matthews earned 250 total points
ID: 22702357
Which line does the debugger jump to?
0
 
LVL 84

Assisted Solution

by:Scott McDaniel (Microsoft Access MVP - EE MVE )
Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 250 total points
ID: 22702500
Is Outlook Redemption installed on the machine?
0
 
LVL 1

Author Comment

by:jrameuwissen
ID: 22704894
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
 
LVL 1

Author Comment

by:jrameuwissen
ID: 22706184
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
 
LVL 92

Expert Comment

by:Patrick Matthews
ID: 22706722
Glad to help :)
0

Featured Post

Control application downtime with dependency maps

Visualize the interdependencies between application components better with Applications Manager's automated application discovery and dependency mapping feature. Resolve performance issues faster by quickly isolating problematic components.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Find out what you should include to make the best professional email signature for your organization.
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now