vba - Modal-Email 内の Outlook / VBA マクロ

Question

クリックすると、特定のフォルダーからいくつかのファイルを添付することになっている小さなマクロ (リボンに追加) があります。

これは、Outlook 内から「新しい」メールを作成するときに機能します。たとえば、Adobe Acrobat の「メールとして送信」機能を使用すると、Outlook のメールがモーダル ダイアログとして開かれます。

リボンのボタンは無効になりました。シンプルに何もしません。(最初の行の MessageBox でさえ表示されません) Developer Tools -> Macros を使用し、「そこ」からマクロを選択すると機能します。

リボンのボタンがモーダル メールで動作しない同じマクロを呼び出すのはなぜですか?

マクロ - しかし、前述のように、MessageBox さえ表示されません。

Sub AddAttachments()

Dim Path As String
Path = "C:\test\"

Dim NewMail As MailItem, oInspector As Inspector
Set oInspector = Application.ActiveInspector
If oInspector Is Nothing Then
    MsgBox "No active inspector"
Else
    Set NewMail = oInspector.CurrentItem
    If NewMail.Sent Then
        MsgBox "This is not an editable email"
    Else
       With NewMail
          d = Dir(Path & "*.*")
          While d <> ""
             .Attachments.Add Path & d
             d = Dir
          Wend
       End With
   End If
End If
End Sub

---

更新: メール送信アプリケーションにさらに多くの設定を提供する別のアプリケーションを使用して、次のことがわかりました。

• 「Outlook OLE」の電子メール送信方法を使用すると、すべてが期待どおりに機能します。
• メール送信方法として「MAPI」を使用すると、上記の効果が現れます。

そのため、Adobe Acrobat はデフォルトで (Simple) MAPI を使用しているようです。

編集: 実際の原因を知った後、これを見つけました: https://www.msoutlook.info/question/203 - Outlook が「完全に」ロードされていないため、MAPI を介して電子メールを作成するアプリケーションの既知の、解決できない制限のようですしかし、いくつかの基本的なスタブです。

---

アップデート：

「メール送信ボタン」(1)をクリックすると、以下のウィンドウが表示されます。リボン (2) 内の「マクロ ボタン」をクリックしても何も起こりません。

ただし、DeveloperTools に切り替え、「マクロ」を選択し、そこから同じマクロを選択すると機能します。

一方、ボタンは、Outlook で作成された「新着メール」と、Outlook OLErathen thanを使用して作成された「新着メール」に対して機能しますMAPI。