Como enviar email desde excel

Prueba con esto

Sub EnviarLibro()
If MsgBox("Atención...!" & vbCrLf & "Esta a punto de
enviar la Requisición de Tecnología." & vbCrLf
& "Verifique que todos los datos del formulario estan
completados correctamente.", vbExclamation +
vbYesNo, "Solicitud de requisisión") = vbYes Then
MsgBox "Es posible que se presente una ventana de
MIcrosof Outlook, preguntando si desea permitir el envío
de esta requisición; haga clic en Si",
vbExclamation, "Solicitud de requisisión"
var = Hour(Time) & Minute(Time) & Second(Time)
Worksheets(2).Range("M5").Value = var
Do
titulo = "Requisición de tecnología " & var
Loop Until titulo <> False
ThisWorkbook.SaveAs Filename:=titulo
' ThisWorkbook.SendMail Recipients:="Sistemas y
Procedimientos", Subject:=titulo, ReturnReceipt:=True
ThisWorkbook.SendMail Recipients:="Raiza Nuñez",
Subject:=titulo, ReturnReceipt:=True
MsgBox "Se ha enviado: " & titulo & "
Satisfactoriamente...!", vbExclamation, "Solicitud de
requisisión"
End If
End Sub

Hola

El problema es el siguiente, quiero que en excel cuando

coloque cierto valor

en una celda, se envie un email a cierta direccion con

un mensaje

especifico.

Gracias de antemano


.