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 Suby 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