Question

我正在制作一个在Document_Close（）上运行的单词宏。我希望宏打开一个outlook-＆＃34;新消息＆＃34;窗口没有收件人，没有主题，只附加了一个文件夹，包括一些已保存的单词模板的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命令那就太好了......

Answer 1

使用MailItem。Display方法。

oItem.Display

使outlook-instance在Word-VBA中可见？

1 个答案: