how to send file to email

[shaz0503]

All

I have file contining macros that I need to send via email (then enter
relevant recipient - this changes all the time).

The file works fine on my pc but when I send to colleagues to test, the
macros within the file work fine, but the 'send file as attachment to email'
component won't work on the pC

any thoughts

this is the code I am using (from a recorded macro)

Sub HeadofSchool()
'
' HeadofSchool Macro
'

'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Sheets("Delegate").Select
Application.Dialogs(xlDialogSendMail).Show
End Sub


any assistance appreciated

Shaz