如果不是该月的第一个星期一，则停止发送电子邮件

Question

我有一个每周一发送电子邮件的脚本。我如何更新以下内容，以便除非是该月的第一个星期一，否则电子邮件不会发送。

    .CreateReports
    .CreateNewEmail keyName '"Email Subject"
    With .LastEmail
        .AddTo "email.recipient"
    End With
    .SendEmails
    .SetScriptRunSuccess True

我有下面这行，可以在周日发送一封额外的电子邮件，但想更改它，以防止发送电子邮件，除非是该月的第一个周一：

= (WeekdayName(Weekday(checkDate), True) = "Sun")

Answer 1

第一个星期一显然是在7天内，所以添加条件

1. 检查是否是星期一
2. 检查工作日是 <=7