Send email with reminder

Hello,

I would like to ask your help to solve a reminder issue. My target is to send a file as attachment through email with reminder. Currently the blocking point is that how to set the reminder for the next calendar weekday?

Here is the part of code:

With OutMail
  .To = ""
  .CC = ""
  .BCC = ""
  .Subject = ""
  .body = ""
  .Attachments.Add Destwb.FullName
  .Importance = olImportanceHigh
  .FlagStatus = olFlagMarked
  .FlagRequest = ""
  .FlagDueBy = Date + 1 & " 10:45 AM" '<- My goal is to set the next calendar working day.
  .Display
End With

Thank you for the help!

Hello AlphaFrog,

Perfect for me!
Thank you for the help!