Macro para enviar hoja de Excel por Correo Electrónico.

Estimados:

Quiero hacer una solicitud de materiales que se elabore en Excel y cada uno
de mis colegas, al terminarla, presione un botón "Enviar" y me haga llegar
la comunicación. Sin embargo, he investigado toda esta tarde y he llegado a
la conclusión que debería usar la instrucción "SendMail" en una macro. Pero
no me funciona.

Ejemplo:
Sub EnviarHojaPorCorreoElectrónico()
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="dirección@dominio", Subject:="Envío
libro de Excel"
ActiveWorkbook.Close savechanges:=False
End Sub

Pero, al ejecutarla arroja lo siguiente: "Se ha producido el error '1004' en
tiempo de ejecución. Error en el método "SendMail" de objeto '_Workbook'.
Presiono "Depurar" y tiñe amarillo la línea que incluye "SendMail". Sin
saber qué hacer.

Podrían ayudarme?

Atte.

Ren.