Sub CreateHTMLMail(text)


    Set olApp = CreateObject("Outlook.Application")
    

        
    Set objMail = olApp.CreateItem(olMailItem)
 
       

	objMail.To = "ekleijne@flipseautomatisering.nl"
       	objMail.Subject = "Testonderwerp"
       	objMail.HTMLBody = text
       	objMail.Display

        
	
    

End Sub