title: How to send email reminder from code
body: <pre><code>Sub SendReminderMail()
    Dim OutlookApp As Object
    Dim OutLookMailItem As Object
    Dim iCounter As Integer
    Dim MailDest As String
  
    Set OutlookApp = CreateObject("Outlook.application")
    Set OutLookMailItem = OutlookApp.CreateItem(0)
  
    With OutLookMailItem
      MailDest = ""
  
      For iCounter = 1 To WorksheetFunction.CountA(Columns(34))
        If MailDest = "" And Cells(iCounter, 34).Offset(0, -1) = "Send Reminder" Then
          MailDest = Cells(iCounter, 34).Value
        ElseIf MailDest &lt;&gt; "" And Cells(iCounter, 34).Offset(0, -1) = "Send Reminder" Then
          MailDest = MailDest &amp; ";" &amp; Cells(iCounter, 34).Value
        End If
      Next iCounter
  
      .BCC = MailDest
      .Subject = "ECR Notification"
      .HTMLBody = "Reminder: This is a test for an automatic ECR email notification. Please complete your tasks for ECR#"
      .Send
    End With
  
    Set OutLookMailItem = Nothing
    Set OutlookApp = Nothing
  End Sub
  </code></pre>
  
  <hr>
  
  <p>Need code to email the values in columns AE with the "set reminder" text</p>
  
  <p><a href="https://i.stack.imgur.com/wsqeW.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/wsqeW.png" alt="enter image description here"></a></p>