2017-06-29 57 views
0

我正在製作一個在Document_Close()上運行的單詞宏。我希望宏打開一個沒有收件人,沒有主題的outlook-「新郵件」窗口,只需連接一個包含一些保存的單詞模板PDF的floder。在Word-VBA中顯示outlook-instance?

我一直試圖做這種方式:

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 

我知道它會打開一個實例,因爲我印過一次,但我想它彈出TE屏幕上,這樣我可以手動輸入收件人等,並確認正確的PDF文件夾已附加。

,如果有一個oIten.Visible命令這將是很好...

+0

'oItem.Display' https://msdn.microsoft.com/VBA/Outlook-VBA/articles/mailitem-display-method-outlook –

+0

不工作@KostasK。 – tTim

+0

奇怪。它爲我工作好。 –

回答

1

使用的MailItem。 Display方法。

oItem.Display