Where i have February below, i need the code to pick up the month from cell U4 so that each month it will automatically change.
Recipient = Array(str1)
MailDoc.Principal = Range("R5").Value
MailDoc.SendTo = Recipient
MailDoc.Subject = "Sales Manager Horis Report February 2015"
Set mailbody = MailDoc.CreateRichTextItem("Body")
Call mailbody.AppendText("Please find attached your Sales Manager Horis Reports for February 2015. ")