Then the second Kutools for Excel dialog box pops up, please select the corresponding column range which contains the recipients’ email addresses, and click the OK button. In the first popping up Kutools for Excel dialog box, please select the due date column range and then click the OK button. Notes: The line If CDate(xRgDateVal) - Date 0 Then in the VBA code means that the due date must be greater than 1 day and less than or equal to 7 days. XMailBody = xMailBody & 'Text : ' & xRgText.Offset(i - 1).Value & vbCrLf

XMailBody = xMailBody & 'Dear ' & xRgSendVal & vbCrLf XMailSubject = xRgText.Offset(i - 1).Value & ' on ' & xRgDateVal Set xOutApp = CreateObject('Outlook.Application') Set xRgText = Application.InputBox('Select the column with reminded content in your email:', 'KuTools For Excel',, ,, ,, 8)

Set xRgSend = Application.InputBox('Please select the recipients?email column:', 'KuTools For Excel',, ,, ,, 8) Set xRgDate = Application.InputBox('Please select the due date column:', 'KuTools For Excel',, ,, ,, 8) VBA code: Send email if due date is closed in Excel Public Sub CheckAndSendMail() Then copy and paste the below VBA code into the Module window. In the Microsoft Visual Basic for Applications window, please click Insert > Module. Press the Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.Ģ. Please do as follows to send an email reminder if the due date has been met in Excel.ġ. Amazing! Using Efficient Tabs in Excel Like Chrome, Firefox and Safari! Save 50% of your time, and reduce thousands of mouse clicks for you every day!

Access target outlook email 2017