Te dejo una macro extraída de mi Guía Temática 1, allí encontrarás otros ejemplos resueltos.
Entra al Editor de macros (con Alt y F11), inserta un módulo y allí pegá la macro.
Además, desde el mismo Editor, menú Herramientas, Referencias, debes buscar y tildar la que se llame Microsoft Outlook 14.0 ... (el nro puede variar porque depende de la versión).
Volviendo a la hoja, clic derecho sobre la imagen, Asignar macro, y le asignas la que has copiado en el módulo.
Sub enviaMail_Ej1()
'x Elsamatilde
'-------EJEMPLO 1: Envío de un mensaje a un destinatario
'Las variables se utilizan para indicar las referencias.
Dim myOLApp
Dim myOLItem
Dim miasunto As String, mitexto As String, midire As String
'se la celda A2 está vacía cancela el proceso
If Range("A2") = "" Then Exit Sub
'ajustar según las referencias de cada libro
midire = "[email protected]" 'o puede estar contenido en 1 celda y en ese caso sería x ej: Range("G8").Value
miasunto = "Test"
mitexto = Range("A2").Value
'se crea un objeto Outlook, Mail
Set myOLApp = CreateObject("Outlook.Application")
Set myOLItem = myOLApp.CreateItem(olMailItem)
'se establecen los campos del mensaje
With myOLItem
.To = midire 'campo A o Para
.Subject = miasunto 'campo Asunto
.body = mitexto 'cuerpo del mensaje
.display '.send 'mostrar o enviar
End With
'se liberan las variables creadas
Set myOLApp = Nothing
Set myOLItem = Nothing
End Sub
Si el tema queda resuelto no olvides valorar y finalizar la consulta.