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]

dmkAlex,
It appears that Norton and MS Office don't play nice (like they ever have). I did a quick search at Google and it appears that this happens with every release that Norton has made. The solution appears to require un-intalling Office and re-installing to correct whatever dll's Norton corrupts.

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[firefytr]

Kind of taking a wild guess here, but maybe it doesn't like the constants. To find out, change this line ..

Set oItem = OL.CreateItem(0)

.. with this line ..

Set oItem = OL.CreateItem(olMailItem)

I'd bank on the dll corruption (Norton stinks IMHO) as CautionMP says, but it might be worth a shot. I've never had the chance to test with that program (OLRed).

-----------
Regards,
Zack Barresse

 

[PHV]

I have tried uninstlled both Redemption and Internet Security to no avail
Have you tried a System Restore ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[dmkAlex]

Un-installing and Re-installing MS Office did the trick.

Thank you for all the great advise.

Alex