I was able to automatically e-mail an Excel file using
Outlook with the following code:
Sub EmailFile()
'Create reference to Outlook
Set olApp = CreateObject("Outlook.Application")
Set MailItem = olApp.CreateItem(olMailItem)
'Enter all required details in e-mail
With MailItem
.to = "xxxx.com"
.Subject = ThisWorkbook.Name
.Body = "File attached."
.Attachments.Add ThisWorkbook.FullName
.Display 'Optional
End With
'Send e-mail
MailItem.Send
'Release object variable
Set olApp = Nothing
Set MailItem = Nothing
End Sub

Now that our e-mail system is on Lotus Notes, this macro
fails in the first line of code. The error message is:
ActiveX component can't create object (error no. 429). I
have not been able to successfully get the code to point
to Lotus Notes instead of Outlook.

Any help in solving this problem would be much
appreciated. Thanks in advance. I am using Excel97.

Partho