Solved

Unable to create object Redemption.SafeMailItem

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

NFR key for Veeam Backup for Microsoft Office 365

Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.

Question has a verified solution.

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

MS Outlook is a world-class email client application that is mainly used for e-communication globally.  In this article, we will discuss the basic idea about MS Outlook, its advanced features, and types of MS Outlook File formats.
As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

830 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