请教VBA 调用OUTLOOK ，遇到的奇怪的问题。

[chengi1982]

用的是office 2016 , excel VBA 调用Outlook建立新邮件保存，代码如下，但是发现问题，运行后，有个别的电脑无法保存草稿箱，而且DISPLAY之后的邮件继续手动发送，Outlook提示失败，但是Outlook sent item 里面是存在的，这可能是什么原因，请大佬解答一下疑惑？

Sub TestMsg()
    Dim OL As Object
    Dim Msg As Object

 

    Set OL = CreateObject("Outlook.Application")
    Set Msg = OL.CreateItem(olAppointmentItem)
    Msg.body = "Test Message"
    Msg.Subject = "hello"
    Msg.display
    Msg.Save

 

    Set Msg = Nothing
    Set OL = Nothing
End Sub

[CSDN-Ada助手]

您可以前往 CSDN问答-IT工具 发布问题, 以便更快地解决您的疑问