如何在VBA（outlook 2010）中获取工作周和工作日数？

我们使用Outlook每天发送一封电子邮件，其中包含WW.D格式的工作周和工作日。我们的工作周从周一开始，所以今天是50。2如何使用VBA添加此内容

Sub MakeItem()
    Dim objMail As MailItem   

    Set newItem = Application.CreateItemFromTemplate("C:\Users\Update.oft")
    ' Work week number
    WW = 50.2

    ' Setup Subject replacing the <SHIFT>
    newItem.Subject = Replace("<WorkWeek> Shift Passdown ", "<WorkWeek>", WW)
    newItem.Display

    Set newItem = Nothing
End Sub

子生成项（）
Dim objMail作为邮件项
Set newItem=Application.CreateItemFromTemplate（“C:\Users\Update.oft”）
“工作周数
WW=50.2
'设置主题替换
newItem.Subject=Replace（“Shift Passdown”，“”，WW）
newItem.Display
Set newItem=Nothing
端接头

试试这个：

WW = Format(Now, "ww") & "." & Weekday(Now, vbMonday)

“Format”函数从使用提供的“Format”参数格式化的字符串（

ww

，在本例中，它返回一年中的一周）返回表达式，

Weekday（）

函数返回一周中编号的一天，其中第一天是作为第二个参数提供的

VBDayOfWeek

枚举（

vbMonday

在本例中）