Que comando me faltan para que la macro me envíe el mail?

Esta es la macro, crea todo bien, menos enviar el correo.

Muchas gracias!

Sub correo()

Range("b3:e5").Copy
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = "[email protected]"
dam.Subject = "Propuesta"
dam.display
'Application.SendKeys "^v"
Application.Wait Now + TimeValue("00:00:03")
SendKeys "^{home}", True
DoEvents
SendKeys "%nvo", True
DoEvents
SendKeys "{UP}", True
DoEvents
SendKeys "{UP}", True
DoEvents
SendKeys "{ENTER}", True
Set dam = Nothing
SendKeys "{ENTER}", True
Set dam = Nothing
DoEvents
End Sub