email triggers from dates in excel

From my understanding the people I work for would like an email sent to the sales rep on a specific date (that is filled in a column labeled Follow-up) the dates vary that and unfortunately they have not been filling that column out consistently. The log is a quote log in which sales rep provides a quote to a customer and then is supposed to follow-up with them. I guess if it needs to be a set value then I would say every 30 days. I am sorry I am not sure if I answered the question. The email would need to contain the customer name and quote number and would only have to be sent one time to the sales rep unless the rep provides a later date. Thank you for your help.

You should be able to use this code for your workbook. Assuming that you have the emails and everything in the same place otherwise it needs to be modified. Also I did not know how you wanted the email phrased so you may want to look it over

Sub email()
Dim rngCell As Range
Dim rngMyDataSet As Range
Dim rng As Range
Dim OutApp As Object

Dim OutMail As Object
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As String
Dim EmailRecipient As String
Dim Signature As String
Dim SigString As String
Dim strbody As String
Application.ScreenUpdating = False
With ActiveSheet
If .FilterMode Then .ShowAllData
For Each rng In Range("N1:N4")
If Cells(rng.Row, "O").Value > 0 Then

ElseIf Cells(rng.Row, "B").Value >= Evaluate("Today() ") And _
Cells(rng.Row, "B").Value <= Evaluate("Today() +30") Then
Cells(rng.Row, "O").Value = Date


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Dear " & Cells(rng.Row, "E").Value & vbNewLine & vbNewLine & "According to our records your quote number " & Cells(rng.Row, "A").Value & " expired on " & Cells(rng.Row, "B").Value & vbNewLine & _
"Could you please contact us about this."
Signature = "C:\Documents and Settings\" & Environ("rmm") & _
"\Application Data\Microsoft\Signatures\rm.htm"
EmailSendTo = Cells(rng.Row, "B").Value
EmailSubject = "the subject"
EmailRecipient = Cells(rng.Row, "E").Value
On Error Resume Next
With OutMail
.to = EmailSendTo
.CC = ""
.BCC = ""
.Subject = EmailSubject
.Body = strbody
.display

End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing

End If

Next rng
Application.ScreenUpdating = True
End With
End Sub

Thank you so much for your help!!

Hi All,

Greetings and I'am a new member to this forum.

I require to trigger auto emails from the excel macro to a specified email id based on the date field. I require 3 email alerts to be generated based on the date. If the today's date is less than 90 days of the date field, less than 60 days of the date field, less than 30 days of the date field and one more for the overdue (greater than the / equal to the date field). I wish to trigger one email for each condition to specified email ids (in To / CC / BCC) summarising the other data from the row. For eg, if Today's date is less than 90 days of the visa expiry date, the other data in that column to be selected in the email body. Once, all the rows of the sheet are checked, the email is to be triggered.

Please guide me in achieving the same. I use excel 2007 and would like the code to work on other higher versions of excel as well. I have attached the excel sheet with the required fields for your reference.

Thanks & Regards,

SrikaSample by Date.xlsm