Question

求outlook定期每周定时发送邮件VBA程序。

Answer 1

那个是可以的
情况是这样的，因为我每天需要MAIL的邮件不一样。需需要通过VBA搜取WORD中的文件。然后再通过OUTLOOK每天定时发送邮件。
OUTLOOK自身带的延时发送功能只能发送当时所延时的邮件吧。
Private Sub Workbook_Open()
call auto
End Sub

sub auto()

Application.OnTime Now + TimeSerial(24, 0, 0) , "auto"
application.run
"'定时邮件.xls'!sm"
End Sub

追问

我需要（每周三）8点发给某人提醒他去做某项工作。有四个人轮流做这个工作，经常有人忘记做，我想每周三都自动发给这四个人一个提醒邮件，让他们确认是不是自己该去做这项工作了。求大神帮忙写个小程序。