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