Solved

Unable to create object Redemption.SafeMailItem

Posted on 2008-10-13
5
1,057 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

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Use email signature images to promote corporate certifications and industry awards.
Use these top 10 tips to master the art of email signature design. Create an email signature design that will easily wow recipients, promote your brand and highlight your professionalism.
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

708 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

14 Experts available now in Live!

Get 1:1 Help Now