title: Excel VBA - Send outlook email
body: <p><br>
  In Cell A I have names, e.g. John Smith<br>
  In Cell B I have a criteria - Due/ Not Due.<br>
  I need to somehow modify the below code to do the following: <br>
  Generate emails from cell A, in the format john.smith@company.com
  and Then send out a reminder email, but only to unique emails in one email.
  So far this is what I have:</p>
  
  <pre><code>Sub SendEmail()
  
      Dim OutlookApp As Outlook.Application
      Dim MItem As Outlook.MailItem
      Dim cell As Range
      Dim Subj As String
      Dim EmailAddr As String
      Dim Recipient As String
      Dim Msg As String
  
      'Create Outlook object
      Set OutlookApp = New Outlook.Application
  
      'Loop through the rows
      For Each cell In Columns("A").Cells.SpecialCells(xlCellTypeVisible)
          If cell.Value Like "*@*" And _
             LCase(Cells(cell.Row, "B").Value) = "Due" _
              Then
              EmailAddr = EmailAddr &amp; ";" &amp; cell.Value
          End If
      Next
  
      Msg = "Please review the following message."
      Subj = "This is the Subject Field"
  
      'Create Mail Item and view before sending
      Set MItem = OutlookApp.CreateItem(olMailItem)
      With MItem
          .To = EmailAddr
          .Subject = Subj
          .Body = Msg
          .Display
      End With
  
  End Sub
  </code></pre>
  
  <p>I can't get much further, unfortunately. Can anyone help me please?</p>