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