周末期间延迟发送电子邮件 [英] Delay email delivery in outlook during the weekend

问题描述

我是美国跨国公司的首席财务官。我经常在周末工作以清理我的电子邮件积压但不希望电子邮件在周末出去，因为这可能会迫使员工回复我不想要/不需要的电子邮件。工作/生活余额
非常重要。

I'm a CFO working for an American Multinational. Often I work in the weekend to clear out my email backlog but don't want the emails to go out during the weekend because that could pressurize employees to reply which I don't want/need. Work/Life balance is important.

我知道我可以通过改变Outlook中选项菜单中的交货日期/时间来延迟交货但我要做的就是每一封电子邮件，一次，当我忘记。

I know I can delay the delivery by changing the delivery date/time in the options menu in outlook but that I’ve to do with every email and once and while I forget.

一直在搜索互联网，发现你可以在visual basic中做到这一点。我已经能够将日期更改为星期一，但未能在特定时间收到电子邮件，比如08:00。

Have been searching the internet and found out you can do that in visual basic. I’ve been able to change the date to Monday but have failed the get the emails to be send at a specific time, let’s say 08:00.

你能帮忙吗？

谢谢，亚伯拉罕

Dim objMailItem As MailItem              
'保留邮件的对象

设置objMailItem =商品 的&NBSP;&NBSP;&NBSP;&NBSP; <跨度>的&NBSP;&NBSP; <跨度>的&NBSP;&NBSP;&NBSP;&NBSP ;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;
'将对象设置为刚刚发送的邮件项

  如果工作日（日期，vbMonday）= 6那么     
'检查今天是星期六

objMailItem.DeferredDeliveryTime = DateAdd（" D"， 2，现在）  
     '添加2天

结束如果

推荐答案

尝试这样的事情

Try something like this

Dim dy As Long, dtToSend As Date
dy = Weekday(Date, vbMonday)
If dy >= 6 Then
     dtToSend = Date + (dy - 5) + TimeSerial(8, 0, 0)
End If

如果日期是星期六或星期日，则在星期一晚上8:00发送

If Date is a Saturday or Sunday send at 8:00 following Monday

Peter Thornton

Peter Thornton

这篇关于周末期间延迟发送电子邮件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！