make email add forward the work sheet

[toecutter]

hi
how do i make email add forward the work sheet.
i hav added a hypolink the the email add but i need it to forward the
page to the email add as a att if possible?
any ideas?
cheers toecutter

 

[toecutter]

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 "(e-mail address removed)"
..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]

hi
how do i make email add forward the work sheet.
i hav added a hypolink the the email add but i need it to forward the
page to the email add as a att if possible?
any ideas?
cheers toecutter

i carnt belive no one nose how to do this.
i thought it would be simple for an exsperienced person