What 's wrong with the coding? -- about using outlook to send attachment in excel
 

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
Terr

Sub send(
Dim objOutlook As Outlook.Applicatio
Dim objEMailMsg As Outlook.mailite
Dim myAttachment
Dim Recor
Dim Sh
Dim

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

Set myrecipient = .Recipients.Add(Sht
myrecipient.Type = olT
x = x +
Loop Until x = Recor

.Subject = "Testing by Terry
.htmlbody = "hello
.displa
.sen

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

End Wit

End Sub

What 's wrong with the coding? -- about using outlook to send attachment in excel
 

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