VBA - User defined type not defined error

[ssh99]

My query for automating emails is coming up with the following error: User defined type not defined. I have the right object libraries selected in the References so am not sure how to fix this. The code is below. I can send a copy of the spreadsheet as well if that would help.

VBA code:
Sub sendemail()

Dim OutApp As New Outlook.Application
Dim OutMail As MailItem

LR = Cells(Rows.Count, "B").End(xlUp).Row
bodySignature = "Kind regards," & vbLf & "Quality Assurance Team"

For r = 2 To LR
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.To = Range("C" & r).Value
.Subject = Range("D" & r).Value
bodyHeader = "Dear " & Range("B" & r).Value & ","
bodyMain = Range("E" & r).Value
.Body = bodyHeader & vbLf & bodyMain & vbLf & bodySignature
.Attachments.Add Range("F" & r).Value
.Display
End With
Next r

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

 

[DanteAmor]

You must select the Microsoft Outlook ## Object Library reference, In the VBA Tools menu, Reference
Change ## by the version number that appears

 

[ssh99]

You must select the Microsoft Outlook ## Object Library reference, In the VBA Tools menu, Reference
Change ## by the version number that appears


View attachment 114197

The MIcrosoft Outlook object library is ticked in references already (see below). Not sure why this error is still coming up.

 

[DanteAmor]

Use the following code:

Sub sendemail()
  Dim OutApp As Object
  Dim OutMail As Object
  Dim lr As Long
  
  Set OutApp = CreateObject("Outlook.Application")

  lr = Cells(Rows.Count, "B").End(xlUp).Row
  bodySignature = "Kind regards," & vbLf & "Quality Assurance Team"
  
  For r = 2 To lr
    Set OutMail = OutApp.CreateItem(olMailItem)
    
    With OutMail
      .To = Range("C" & r).Value
      .Subject = Range("D" & r).Value
      bodyHeader = "Dear " & Range("B" & r).Value & ","
      bodyMain = Range("E" & r).Value
      .Body = bodyHeader & vbLf & bodyMain & vbLf & bodySignature
      .Attachments.Add Range("F" & r).Value
      .Display
    End With
  Next r
  
  Set OutMail = Nothing
  Set OutApp = Nothing
End Sub

 

[ssh99]

Use the following code:

Sub sendemail()
  Dim OutApp As Object
  Dim OutMail As Object
  Dim lr As Long
 
  Set OutApp = CreateObject("Outlook.Application")

  lr = Cells(Rows.Count, "B").End(xlUp).Row
  bodySignature = "Kind regards," & vbLf & "Quality Assurance Team"
 
  For r = 2 To lr
    Set OutMail = OutApp.CreateItem(olMailItem)
   
    With OutMail
      .To = Range("C" & r).Value
      .Subject = Range("D" & r).Value
      bodyHeader = "Dear " & Range("B" & r).Value & ","
      bodyMain = Range("E" & r).Value
      .Body = bodyHeader & vbLf & bodyMain & vbLf & bodySignature
      .Attachments.Add Range("F" & r).Value
      .Display
    End With
  Next r
 
  Set OutMail = Nothing
  Set OutApp = Nothing
End Sub

That works perfectly. Thank you so much!