title: How can I get the work week and day number in VBA (outlook 2010)?
body: <p>We send out a daily email using Outlook that contains the work week and day in the format of WW.D Our work week starts on Monday, so like today would be 50.2 How can I add this using VBA? </p>
  
  <pre><code>Sub MakeItem()
      Dim objMail As MailItem   
  
      Set newItem = Application.CreateItemFromTemplate("C:\Users\Update.oft")
      ' Work week number
      WW = 50.2
  
      ' Setup Subject replacing the &lt;SHIFT&gt;
      newItem.Subject = Replace("&lt;WorkWeek&gt; Shift Passdown ", "&lt;WorkWeek&gt;", WW)
      newItem.Display
  
      Set newItem = Nothing
  End Sub
  </code></pre>