title: How to get current week number in email body (.HTMLBody) using vba
body: <p>We are publishing emails in which the body contains current week number. I have the vba code ready for the email (reference rondebruin) but I'm not able to get current week to populate in the email body.</p>
  
  <pre><code>Private Sub Send_Email() 
    Dim OutApp As Object 
    Dim OutMail As Object 
  
    On Error GoTo errorhandler 
    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItem(0) 
  
    With OutMail 
      .to = "" 
      .CC = "" '' 
      .BCC = "" 
      .Subject = "Reports" 
      .HTMLBody = "Hello All," &amp; "&lt;br&gt;" &amp; "&lt;br&gt;" &amp; "Reports for [week_nm] have been published and saved to the designated locations." 
      .Send 
    End With 
  
    On Error GoTo 0 
    Set OutMail = Nothing 
    Set OutApp = Nothing 
  End Sub
  </code></pre>