Re: Outlook Redemption - HELP

Tech-Archive recommends: Fix windows errors by optimizing your registry

Which line causes the error?
If it is
Set rMail = New Redemption.SafeMailItem
try to replace it with
Set rMail = CreateObject("Redemption.SafeMailItem")

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Rob" <Rob@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:EE15B21F-8A22-4AB2-A71B-F16B3A265392@xxxxxxxxxxxxxxxx
I have an application that I coded to programmatically send emails using
Redemption, on a machine running Outlook 2002. It has been replaced, and
the
machine is using Outlook 2003. I installed Redemption as per
instructions,
even used regsrvr on it, yet keep getting a "Library Not Registered"
error.
Here's the snippet of code before the error:

Dim rMail As Object
Dim rContact As Object
Dim oItem As Object
Dim NS As Object
Dim Sync As Object
Dim Utils As Object
Dim oSent As Object
Dim oSentFolder As Object
Dim Prop As Outlook.UserProperty
'CREATE MAIL ITEM ITEM
Set rMail = New Redemption.SafeMailItem
Set oItem = myApp.CreateItem(olMailItem)

It errors at the Set oItem = myApp.CreateItem(olMailItem) line. Reference
to MSOutlook 11 Object Library is checked, as well as to teh Redemption
Object Library.

Does anyone have any insight, as this has become a major issue.

Thank you



.

Relevant Pages

  • Re: Send document as attachment in Outlook
    ... Dim oOutlookApp As Outlook.Application ... 'Get Outlook if it's running ... Set oOutlookApp = CreateObject ... Set oItem = oOutlookApp.CreateItem ...
    (microsoft.public.word.vba.general)
  • Re: Formatted e-mails
    ... Dim oOutlookApp As Object ... 'Outlook wasn't running, start it from code ... Set oOutlookApp = CreateObject ... Set oItem = oOutlookApp.CreateItem ...
    (microsoft.public.word.vba.general)
  • Re: Send document as attachment in Outlook
    ... Dim oOutlookApp As Outlook.Application ... 'Get Outlook if it's running ... Set oOutlookApp = CreateObject ... Set oItem = oOutlookApp.CreateItem ...
    (microsoft.public.word.vba.general)
  • RE: Format Email in body
    ... Dim oOutlookApp As Outlook.Application ... 'Get Outlook if it's running ... Set oOutlookApp = CreateObject ... Set oItem = oOutlookApp.CreateItem ...
    (microsoft.public.word.vba.general)
  • Re: Formatted e-mails
    ... Dim source As Document, Maillist As Document, TempDoc As Document ... ' Check if Outlook is running. ... Set oOutlookApp = CreateObject ... Set oItem = oOutlookApp.CreateItem ...
    (microsoft.public.word.vba.general)