I am sending outlook mail through VBA every week. I want to update the week no (1st week or 2nd week or 3rd week or 4th week or 5th week ) on my mail body.
My code is
sMessage = "<br>" & "<font size=""3"" face=""Cambria"" >" & "Dear Sir, <br><br>" _ & " Herewith I am forwarding the " & "<b> CRM Weekly Preplanner </b>" & " report for the " _ & WorksheetFunction.WeekNum(DefinedDate, vbMonday) & "st week of " & Format(Date, "mmm") & " " & Year(Date) & ".<br><br>" _ & " Kindly find the attachment. "
when I run the above code my output is
Herewith I am forwarding the CRM Weekly Preplanner report for the 1st week of Jun 2021.
Kindly find the attachment.
I checked to change my system date manually. It is updating 1st week only.
Can anyone help me with how to update as per my requirement