写入新电子邮件：如果Date = vbMonday将日期更改为“文本”

Question

我开发了代码，允许我发送包含预定义文本的电子邮件，我将其设置为仅在日期为export default时更改

我需要添加其他功能：如果当天是Date -1，请插入“周末”而不是vbMonday

我正在考虑以下内容：Date - 1

这是部分：

If Date = vbMonday then instead of Date - 1 enter "weekend"

由于

Answer 1

strbody = "Hi," & vbNewLine & vbNewLine & _
          "No events: " & IIf(Weekday(Date) = vbMonday, "weekend", Date - 1) & vbNewLine & vbNewLine & _
          "Thanks" & vbNewLine & vbNewLine & _
          "Thomas"

Answer 2

在工作日尝试这样：

Public Sub TestMe()    
    If Weekday(Date) = vbWednesday Then
        Debug.Print "It is Wednesday!"
    End If    
End Sub