Problem with VBA coding sending email thru Outlook:

[dmkAlex]

I have the following code in my Excel. It worked perfectly until I install Norton Internet Security 2006 yesterday.

Here's the code:

Sub RedemptionMail(xAdd, xMsg, subj)
Dim SafeItem, oItem
Dim OL As New Outlook.Application
Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem

Set oItem = OL.CreateItem(0) 'Create a new message
SafeItem.Item = oItem 'set Item property
SafeItem.to = xAdd
SafeItem.Body = xMsg
SafeItem.Recipients.ResolveAll
SafeItem.Subject = subj
SafeItem.Send
End Sub

I have Microsoft Outlook 11.0 Object Library checked in my reference and Redemption.dll is in my program directory.

It sent out emails using Outlook 2003.

But right now I bombed in the line:

Set oItem = OL.CreateItem(0)

The error said "Automation Error. Module not found".

Is there a conflict between Outlook and Internet Security 2006, or Redemption.

I have tried uninstlled both Redemption and Internet Security to no avail.

Need some help here.

Thanks.

Alex

 

[CautionMP]

Question moved to: VBA Visual Basic for Applications (Microsoft) Forum