Email Workbook - Outlook object model (attachment) - runtime error

[JC]

Hi,

I'm using Ron de Bruin's "Mail the whole workbook" macro to attach the
current excel workbook to an email and let you write a message before
sending. It works fine on office 2007 & some office 2003 PC's but a couple
of 2003 machines are displaying:-

Run-time error `-2147024770 (8007007e)'

when getting to

Set OutApp = CreateObject("Outlook.Application")

I have followed http://www.rondebruin.nl/mail/problems.htm and searched
various post which mostly say "uninstall & reinstall office"

There are no missing references in the VBA editor

Anyone had this before??

Thanks
John



Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Ron de Bruin]

Hi JC

If the default mail program and the register settings are Ok try a repair of Office first

 

[JC]

Reg settings OK
Default def Outlook 2003
Done a repair

Still no good


Thanks John

 

[Ron de Bruin]

No idea then

uninstall/Install Office again

 

[JC]

Hi Ron,

Just an update on the problem I have.

I'm getting this problem on PC's with Office 2003 Basic installed, also I
didn't mention in my original post the second line of the error which is:-

-2147024770 Automation error
The specified module could not be found

Would the `specified module' be something that's not included with office
2003 basic possibly?

I have a number of machines with this error, I was kind off hoping I
wouldn't have to uninstall & reinstall all of them!

Thanks
John

 

[Ron de Bruin]

Hi JC

Do you have the same problem when you use Early binding

Try
http://www.rondebruin.nl/mail/folder3/smallmessage.htm

See how you can change the macro on the bottom of the page

 

[JC]

Hi Ron,

Tried that but came up with the same error .. when getting to:-

Set OutApp = CreateObject("Outlook.Application")


Thanks
John