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

chengi1982 2023-01-11 13:59:57

用的是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

...全文
502 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
CSDN-Ada助手 2023-01-13
  • 打赏
  • 举报
回复
您可以前往 CSDN问答-IT工具 发布问题, 以便更快地解决您的疑问

6,210

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧