Seemed to me when I ran it that putting the .send AFTER
myattachments.add made it work.

I also specifically defined
Dim myAttachments As Outlook.Attachments

Simon


Hello,
I would like to send the excel file through Outlook with attachment. The email addresses are on the column B. And I
use the following code to do so. The problem occurred on the attachment part. The error message is "Internal Application


Error" . Could you help me to find out the problem from the following coding?
Thanks in advance.

Regards,
Terry

Sub send()
Dim objOutlook As Outlook.Application
Dim objEMailMsg As Outlook.mailitem
Dim myAttachments
Dim Record
Dim Sht
Dim x

Set objOutlook = New Outlook.Application
Set objEMailMsg = objOutlook.CreateItem(olMailItem)
Set myAttachments = objEMailMsg.Attachments
Record = Application.CountA(Sheets("Sheet1").Range("B:B")) + 1
With objEMailMsg
x = 1
Do
Sht = Worksheets("Sheet1").Cells(x, 2)

Set myrecipient = .Recipients.Add(Sht)
myrecipient.Type = olTo
x = x + 1
Loop Until x = Record

.Subject = "Testing by Terry"
.htmlbody = "hello"
.display
.send

myAttachments.Add "C:\Documents and Settings\terry\Desktop\email.xls" ******

End With

End Sub