Excel Help Needed

[JenKay0118]

Hello,

I am looking for a way (possibly through a VBA Code) to have an email sent from Excel.

The email address is not in the Excel document so it would need to be embedded in the code.
I would like the email to be sent at 6 AM the day before the expiration date that is in a specific cell in the Excel document.
I would like the Subject line to contain a document number that is in a specific cell in the Excel document.
I would like the Body of the email to read "Expiration Date is tomorrow" or something like that.

I have never used VBA codes before so step-by-step instructions would be appreciated.

Thank you in advance

 

[mikenelena]

You should be able to accomplish this task with a VBA code. Here's a sample code that you can use as a starting point:

Sub Send_Excel_Email()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim ExpDate As Date
    Dim DocNumber As String

    'Get the expiration date and document number
    ExpDate = Range("A1").Value 'Change this depending on where the date is stored
    DocNumber = Range("B1").Value 'Change this depending on where the document number is stored

    On Error GoTo Errorhandler
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "example@example.com"
        .CC = ""
        .BCC = ""
        .Subject = "Expiration Date for " & DocNumber & " is tomorrow"
        .Body = "Expiration Date is tomorrow"
        .Send
    End With

Errorhandler:
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub