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 = "
.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

Hi JC

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message ...
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 = "
.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

Reg settings OK
Default def Outlook 2003
Done a repair

Still no good


Thanks John


"Ron de Bruin" wrote in message
...
Hi JC

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
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 = "
.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

No idea then

uninstall/Install Office again

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message ...
Reg settings OK
Default def Outlook 2003
Done a repair

Still no good


Thanks John


"Ron de Bruin" wrote in message
...
Hi JC

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
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 = "
.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

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" wrote in message
...
No idea then

uninstall/Install Office again
--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
Reg settings OK
Default def Outlook 2003
Done a repair

Still no good


Thanks John


"Ron de Bruin" wrote in message
...
Hi JC

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
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 = "
.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

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message ...
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" wrote in message
...
No idea then

uninstall/Install Office again
--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
Reg settings OK
Default def Outlook 2003
Done a repair

Still no good


Thanks John


"Ron de Bruin" wrote in message
...
Hi JC

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
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 = "
.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

Hi Ron,

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

Set OutApp = CreateObject("Outlook.Application")


Thanks
John


"Ron de Bruin" wrote in message
...
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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
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" wrote in message
...
No idea then

uninstall/Install Office again
--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
Reg settings OK
Default def Outlook 2003
Done a repair

Still no good


Thanks John


"Ron de Bruin" wrote in message
...
Hi JC

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JC" wrote in message
...
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 = "
.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