Send mail with reminder - How to set the next calendar working day problem

[Villalobos]

Hello,

I use the below mentioned part of code to send mail with reminder but my problem is that regarding the reminder: How to set the next calendar working day?

Could you please give some advice how should I set this?

  With OutMail
  .To = ""
  .CC = ""
  .BCC = ""
  .Subject = "" & Format(Date, "dd mmm yyyy")
  .body = ""
  .Attachments.Add Destwb.FullName
  .Importance = olImportanceHigh
  .FlagStatus = olFlagMarked
  .FlagRequest = ""
  .FlagDueBy = Date + 1 & " 10:00 AM" '<- How to set the next calendar working day?
  .Display
  End With

Thank you in advance your help!

 

[Villalobos]

Do you have some idea?