使 Outlook 实例在 Word-VBA 中可见？答案

【问题标题】：Make outlook-instance visible in Word-VBA?使 Outlook 实例在 Word-VBA 中可见？
【发布时间】：2017-12-02 22:33:22
【问题描述】：

我正在制作一个在 Document_Close() 上运行的 word 宏。我希望宏打开一个 Outlook-“新消息”窗口，没有收件人，没有主题，只有一个附件，包括一些保存的 PDF 的单词模板。

我试过这样做：

Sub Document_Close()

ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument

    Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem


On Error Resume Next


Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
    .Subject = "New subject"
    .Attachments.Add Source:="C:\temp\PDFSaves", Type:=olByValue
End With
End Sub

我知道它会打开一个实例，因为我打印了一次，尽管我希望它在屏幕上弹出，以便我可以手动输入收件人等，并确认附加了正确的 PDF 文件夹。

如果有 oIten.Visible 命令就好了……

【问题讨论】：

oItem.Display msdn.microsoft.com/VBA/Outlook-VBA/articles/…
不起作用@KostasK。
奇怪。它对我有用。
嗯，准备在另一个文档中做一些测试，如果不成功我会再联系你
@KostasK。你是说如果我只放 oItem.Display 它会起作用吗？我可以看看你的代码吗？

标签： vba object pdf outlook ms-word

【解决方案1】：

使用 MailItem.Display 方法。

oItem.Display

【讨论】：