【问题标题】:File portability which use Microsoft Outlook 15.0 Object Library使用 Microsoft Outlook 15.0 对象库的文件可移植性
【发布时间】:2019-12-12 14:21:54
【问题描述】:

我希望能够在 Outlook 中自动执行某些操作(例如撰写一封新电子邮件并填充其中的一部分)。我在 IT 相关事务方面的经验比那些将要使用这些文件的人多得多。

我昨天必须启用 Microsoft Outlook 15.0 库才能完成我正在做的事情。是否可以不需要在将使用我的文件的其他计算机上启用该功能?或者在 VBA 代码中启用它?我愿意接受其他解决方案。

我只知道我没有使用绝对可以帮助我简化某些任务的工具(在本例中为 Outlook)...

我昨天正在阅读有关早期绑定和后期绑定的信息,并认为我已将代码更改为后期绑定。但是,我仍然遇到问题。这是我的代码。

Private Sub btnGenerateEmail_Click()
    Dim obApp As Object
    Dim objMsg As MailItem

    Set obApp = Outlook.Application
    Set objMsg = obApp.CreateItem(olMailItem)

    With objMsg
        .To = "test@test.com"
        .cc = "test@test.com"
        .Subject = "Scrap Face Incident Report"
        .Display
    End With
End Sub

【问题讨论】:

  • 研究早期与晚期绑定。好吧,我不确定你的问题是什么。
  • 实际上我昨天正在阅读。我以为我将代码更改为适用于后期绑定技术。也许我错过了什么。我会编辑我的帖子并在其中发布我的代码。
  • 如果您删除对 Outlook 库的引用并且代码仍然成功,您将知道您的后期绑定有效。
  • MailItemolMailItemOutlook.Application 都是早期绑定...例如,参见 this question

标签: vba outlook


【解决方案1】:

MailItemOutlook.ApplicationolMailItem 都是早期绑定 - 它们属于 Outlook 对象模型。

后期绑定可能如下所示:

Private Sub btnGenerateEmail_Click()
    Dim App As Object
    Dim Msg As Object

    Const olMailItem As Long = 0

    Set App = CreateObject("Outlook.Application")
    Set Msg = App.CreateItem(olMailItem)

    With Msg
        .To = "test@test.com"
        .cc = "test@test.com"
        .Subject = "Scrap Face Incident Report"
        .Display
    End With
End Sub

【讨论】:

  • 嗯,好吧,是的。我现在正在阅读更多关于它的内容。谢谢你。在查看了您为修复它所做的工作之后,我确定我走错了方向。
猜你喜欢
  • 2018-10-19
  • 1970-01-01
  • 2017-01-28
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
相关资源
最近更新 更多