HTML MAil per VBA

Private Sub sendmail(mail)
Dim OutApp As Object
Dim objOLMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set objOLMail = OutApp.CreateItem(1)
With objOLMail
.To = "max.mustermann@mustermann.de"
.CC = ""
.BCC = ""
.Sensitivity = 0
.Importance = 2
.Subject = "Test"
.Body = mail
.Send
.Display
End With
Set objOLMail = Nothing
Set OutApp = Nothing
MsgBox "E-Mail wurde erfolgreich versand.", , "ERFOLGREICH"
End Sub