时间戳

首页 > 解决方案 > 自定义 Outlook 宏仅在 VBA 编辑器中运行

vba - 自定义 Outlook 宏仅在 VBA 编辑器中运行

问题描述

我基于仅在 VBA 编辑器中成功运行的博客文章创建了一个宏。当我从 Outlook 本身运行它时，什么也没有发生。也许你可以看到我遗漏的一些明显的东西。

  1. 按Alt+F11打开编辑器。
  2. 命名模块并粘贴在代码中。
  3. 编译并运行。有问题的电子邮件按预期以 HTML 格式打开。
  4. 关闭编辑器并将按钮添加到我想要的工具栏。什么都没发生。
  5. 返回到 VBA 编辑器并运行代码。它按预期工作。
  6. 关闭并重新打开 Outlook 以再次尝试该按钮。什么都没发生。

这是代码，下面是编辑器中代码的屏幕截图。

Sub ReplyInHtmlFormat()
    Dim olSel As Selection
    Dim oMail As MailItem
    Dim oReply As MailItem

    Set olSel = Application.ActiveExplorer.Selection
    Set oMail = olSel.Item(1)

    If oMail.BodyFormat = olFormatPlain Or olFormatRichText Or olFormatUnspecified Then
       oMail.BodyFormat = olFormatHTML
       oMail.Save
    End If

    Set oReply = oMail.Reply
    oReply.Display

    Set olSel = Nothing
    Set oMail = Nothing
    Set oReply = Nothing
End Sub

VBA 编辑器

标签： vbaoutlook

解决方案

您可能需要检查宏权限以确保它被允许运行。我希望这会有所帮助！;-)

推荐阅读