主题：[讨论]今天无论如何都要给后台假死一个解决方案~

楼主，你可以监测下后台死的时候，VBA是否正常，这点我也没经验。

VBA发邮件：

Sub SendMail(Subject,Content)
 Set mail = CreateObject("WWSCommon.SmtpMail")
    with mail
        .SenderName = "程序化交易"
        .SenderAddress = "请输入发件人email地址"
        .Subject = Subject & cdate(date+time)
    end with
    call mail.AddReceiver("MY","请输入收件人email地址")
    call mail.AddTextContent(Content)
    call mail.Sender("smtp.163.com","abc@163.com","123456")
    Set mail = nothing
End Sub

我是从163发给139。老的163支持smtp

然后在需要发邮件的时候，调用SendMail函数