VBA Send a formatted mail without Outlook

Sub Send2()
Dim answer As Integer
answer = MsgBox("Shoul I send?", vbQuestion + vbYesNo + vbDefaultButton2, "Emails")
If answer = vbNo Then
Exit Sub
End If

Application.ScreenUpdating = False
On Error Resume Next

Dim ws As Worksheet
Dim oSMTP As New clsSMTP
Dim strTemplatePath As String
Dim templateContent As String

Set ws = Sheet33
strTemplatePath = "D:\template2.html"

' if no html
If Dir(strTemplatePath) = "" Then
MsgBox "HTML template file not found.", vbExclamation
Exit Sub
End If
' Reading the file
On Error Resume Next
templateContent = ReadFile(strTemplatePath)
On Error GoTo 0

' If no reading
If templateContent = "" Then
MsgBox "Failed to read the content of the HTML.", vbExclamation
Exit Sub
End If

' SMTP settings
oSMTP.SMTPServer = "mysettings"
oSMTP.SMTPServerPort = 25
oSMTP.UseTLS = True
oSMTP.BodyType = olFormatHTML

For i = 10 To ws.Cells(Rows.Count, "F").End(xlUp).Row
' Check if the email is not marked as Microsoft
If Not ws.Cells(i, "U").Value = "MS" Then
' Send email
oSMTP.FromAddress = "myemail@"
oSMTP.ToAddress = ws.Cells(i, "p").Value
oSMTP.Subject = "Subj"
oSMTP.Body = templateContent ' html as a body

oSMTP.EmailSend
End If
Next i

Application.ScreenUpdating = True
MsgBox "Emails have been sent.", , "Success"
End Sub

Function ReadFile(filePath As String) As String
Dim fileContent As String
Dim fileNumber As Integer

fileNumber = FreeFile
Open filePath For Input As #fileNumber
fileContent = Input$(LOF(fileNumber), fileNumber)
Close #fileNumber
ReadFile = fileContent
End Function