Rendre Outlook-instance visible dans Word-VBA?

Question

Je crée une macro de mots qui s'exécute sur Document_Close(). Je veux que la macro ouvre une fenêtre de perspectives - "nouveau message" avec aucun destinataire, aucun sujet, juste un floder attaché comprenant quelques pdf sauvés du modèle de mot.

J'ai essayé de le faire de cette façon:

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 

Je sais qu'il ouvre une instance, parce que j'imprimé une fois, bien que je voudrais que ce menu local sur te écran de sorte que je peux entrez manuellement le destinataire, etc., et confirmez que le bon dossier PDF a été joint.

Ce serait bien s'il y avait une commande oIten.Visible ...

Answer 1

Utilisez le MailItem. Display Méthode.

oItem.Display