found this in a earlyer post

Sub SendOneSheet()

Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

ThisWorkbook.Sheets(2).Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
"Order.xls"

With olMail
..Recipients.Add "
..Subject = "That one sheet"
..Body = "Here you go" & vbCrLf
..Attachments.Add ActiveWorkbook.Order.xls
..Display
End With

ActiveWorkbook.Close False

Kill ThisWorkbook.Path & "\" & "Sheet2.xls"

Set olMail = Nothing
Set olApp = Nothing

End Sub

but dos not work for me?
what am i doing wrong?
pls help
toecutter


--
toecutter
------------------------------------------------------------------------
toecutter's Profile: http://www.excelforum.com/member.php...o&userid=27545
View this thread: http://www.excelforum.com/showthread...hreadid=470710