With CreateObject("Outlook.Application").CreateItem(0)

.To = 'nog in te vullen
.Subject = "Gefeliciteerd!!!!"
.body = "Hoi hoi," & vbNewLine & vbNewLine & _
"Van harte gefeliciteerd met je verjaardag! Maak er een leuke dag van." & vbNewLine & vbNewLine & _
"Groetjes," & vbNewLine & _
"Sander"
.Attachments.Add strAttachment
.display 'of send
End With

Option Explicit
 
Public Sub verzending_verjaardagsmail()
 
  Dim XLApp As Excel.Application
 
  Dim xlr As Excel.Range, xlTable As Excel.Range
 
  Dim olRecip As Outlook.Recipient
 
  Dim olMsg As Outlook.MailItem
 
  Dim olApp As Outlook.Application
 
  Dim xlWb As Excel.Workbook
 
   
 
  Set olApp = Outlook.Application
   
 
  ' open excel
 
  Set XLApp = CreateObject("Excel.Application")
 
  Set xlWb = XLApp.Workbooks.Open("\\servernaam...\programs\temp\verjaardagsmail\voorbeeld worksheet.xlsx", , True)
 
   
 
  'process
 
 
  Set xlTable = XLApp.Range("Blad1!f2")
 
  While Not IsEmpty(xlTable.Cells(1, 1))
 
    If xlTable.Cells(1, 6) = Date Then
 
      ' send mail
 
      Set olMsg = olApp.CreateItem(olMailItem)
 
      With olMsg
 
        Set olRecip = .Recipients.Add(xlTable.Cells(1, 5).Value)
 
        olRecip.Resolve
 
        olRecip.Type = olTo
 
 
 
        .Subject = xlTable.Cells(1, 2).Value
 
        .Body = "Van harte bla bla bla " & .Subject & "Gefeliciteerd namens het team van ..." & xlTable.Cells(1, 2).Value
 
        .Display
 
      End With
 
    End If
 
    Set xlTable = xlTable.Offset(1)
 
  Wend
 
   
 
  ' close excel
 
  xlWb.Close SaveChanges:=False
 
  XLApp.Quit
 
  Set XLApp = Nothing
  
  End Sub