Excel 如何使用vba获取电子邮件正文（.HTMLBody）中的当前周数

我们正在发布电子邮件，其中正文包含当前周数。我已经为电子邮件准备好了vba代码（参考rondebruin），但我无法在电子邮件正文中填充本周的代码

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," & "<br>" & "<br>" & "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

Private Sub Send_Email（）
Dim OutApp作为对象
将邮件变暗为对象
关于错误转到错误处理程序
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
发邮件
.to=“”
.CC=”“”
.BCC=“”
.Subject=“报告”
.HTMLBody=“大家好，&”
“&”
“&”已发布[week_nm]的报告并保存到指定位置。”
邮寄
以
错误转到0
发送邮件=无
设置应用程序=无
端接头

要获取一年中的当前周数，请使用：

Application.WorksheetFunction.IsoWeekNum (Now())

在代码中，将主体行更改为

.HTMLBody = "Hello All," & "<br>" & "<br>" & "Reports for week " & Application.WorksheetFunction.IsoWeekNum(Now()) & " have been published and saved to the designated locations."

.HTMLBody=“大家好，&”
“&”
“&”每周报告“&Application.WorksheetFunction.IsoWeekNum（Now（））&”已发布并保存到指定位置

您应该提供相关的代码片段，在该代码片段中，您粘贴了“code”私有子发送\u Email（）Dim OutApp As Object Dim OutMail As Object On Error GoTo errorhandler Set OutApp=CreateObject（“Outlook.Application”）Set OutMail=OutApp.CreateItem（0），其中OutMail.to=“.CC=”“.BCC=“.Subject=”Reports.HTMLBody=“大家好，&”&“
”&“
”&“[week_nm]的报告已发布并保存到指定位置。”。发送结束时出错转到0 Set OutMail=无Set OUTPAPP=无结束子私人子发送电子邮件（）Dim MainWb，LogWb As工作簿Dim OutApp As Object Dim OutApp As Object错误转到错误处理程序Set OutApp=CreateObject（“Outlook.Application”）Set OutApp=OutApp.CreateItem（0），带有OUTAIL.to=“”.CC=“”.BCC=“”.Subject=”报告。HTMLBody=“大家好，&”
“&
”&”[week_nm]的报告已发布并保存到指定位置。“.Send End With On Error GoTo 0 Set-OutMail=Nothing Set-OutApp=Nothing End Subtanks！成功了。但是，我想知道是否还有其他方法可以获得财政周数？只需从

Now（）中减去

element从1月1日到会计日历第一天之间的天数。感谢您的帮助！