Solved

Unable to create object Redemption.SafeMailItem

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

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

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

If you don't know how to downgrade, my instructions below should be helpful.
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
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…

770 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