IF Statement in VBA

Question

How would I code a IF statement if I was trying to say

IF the date today is equal to Monday THEN

Have Outlook prepare 3 emails

ELSE

Have Outlook prepare 2 emails

END IF

I just need help setting up the "IF the date today is equal to Monday." How would that code look.

---

Set omail = CreateItem(olMailItem)

    With omail

    .Subject = "Daily Report"
    .BodyFormat = olFormatHTML
    .HTMLBody = "<a href ='" & fileL & "'>Daily Report</a>"
    .To = [email protected]
    .Display

How can I add a second link to this email?

Answer 1

If Weekday(Now()) = vbMonday Then
    MsgBox "Monday"
End If

Answer 2

You can:

if (Weekday(Date, vbSunday) = vbMonday) then
   ...
else
   ...
end if

Answer 3

VBA offers you a variety of date functions. You would need the Date function to get the actual date, and the Weekday function to get the weekday from a given date.

You condition would have to look like

If Weekday(Date) = vbMonday then
    ' create email
Else
End If

Answer 4

Rather than using an IF statement, I would use a SELECT CASE statement instead:

Select Case Weekday(Now())    
    Case vbMonday    
      'Create 3 emails

    Case vbTuesday    
      'Create 2 emails

    Case Else       
      'Do something else

End Select