excel - 自动化 Outlook 邮件调度程序
问题描述
我在 Excel VBA 中遇到了一个代码,它根据代码中的给定时间范围通过 Outlook 发送邮件。“收件人、抄送、主题和邮件正文”均仅在 Excel 中输入。
该代码工作正常,但.Send
给出错误287-Application or object defined error
。该代码在我同事的笔记本电脑上运行良好,所以我猜这是我的 Outlook 或 excel 中的一些设置错误。我在执行代码时保持我的前景开放。代码写在下面。谁能指出可能出了什么问题?
Sub Send_Email()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
'''''''''' Update Next ''''''''''''''
Call Update_Next_Schedule_Time
Application.OnTime sh.Range("K20").Value, "Send_Email"
''''''''''''''''''''''''''''''''''''''
Dim oa As Object
Dim msg As Object
Set oa = CreateObject("outlook.application")
Set msg = oa.createitem(0)
With msg
.To = sh.Range("C2").Value
.CC = sh.Range("C4").Value
.Subject = sh.Range("C6").Value
.Body = sh.Range("C8").Value
.display
.send
End With
End Sub
解决方案
我相信这是由于您的 Outlook 安全策略。检查它是否允许编程访问。如果没有,并且您无法说服您的 IT 部门进行任何更改,那么您应该自动化打开的 Outlook 应用程序,而不是创建一个新的 Outlook 实例。另外,您是否尝试将电子邮件发送给自己?
推荐阅读
- google-apps-script - Apps 脚本:GmailApp 未定义
- wordpress - 自定义 Wordpress 查询中自定义帖子的顺序与预期不符
- ios - 使用 nspredicate 获取“'Can't modify a named fetch request in an immutable model”
- firebase - 当我尝试将数据值从 NodeMCU 传输到 firebase 时,出现错误 [Error compile for board NodeMCU 1.0 (ESP-12E Module)]
- javascript - 使用 Javascript 或 Typescript 编写 React.js 应用程序
- c# - 使用自定义操作设置和部署项目本地化
- perl - 如何打开通道并将数据推入while循环?
- mysql - 创建事件以删除会话时 SQL 语法错误
- bash - 让脚本以独占方式运行
- bixby - 您可以在 Bixby 上播放 MP3/音频文件吗?