O365 VBA send email

Question

In office 2013 this VBA code worked fine. It was used in excel to send email via outlook.

Function sendMail(reciever As String, cc As String, subject As String, b