Puedes colocar el siguiente código en el evento open del objecto Thisworkbook
Private Sub Workbook_Open()
Dim dDate As Date
Dim sCorreo As String
dDate = ThisWorkbook.Sheets("nombre de tu hoja").Range("D9")
sCorreo = ThisWorkbook.Sheets("nombre de tu hoja").Range("H9")
MsgBox "La Fecha " & dDate & " esta por vencer", vbInformation
sendMail dDate, sCorreo
End Sub
y en un modulo aparte pega el siguiente codigo:
Public Sub sendMail(ByVal dDate As Date, ByVal sCorreo As String)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Fecha cercana a Vencer o el texto que desees"
objMessage.From = "[email protected]"
objMessage.To = sCorreo
objMessage.TextBody = "La Fecha " & dDate & " esta por vencer"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com" ' usa el smtp correcto, de lo contrario no funcionara.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
End Sub