Ouverture de la boîte de dialogue de sauvegarde de toutes les pièces jointes

Question

J'essaie d'ouvrir la boîte de dialogue de sauvegarde de toutes les pièces jointes afin de pouvoir choisir ce qui doit être sauvegardé et où ne pas enregistrer toutes les pièces jointes.

Answer 1

Vous pouvez cliquer sur les boutons comme décrit ici.

https://msdn.microsoft.com/VBA/Office-Shared-VBA/articles/commandbars-executemso-method-office

Private Sub SaveAllAttachments_ExecuteMso() 

Dim objItem As Object 
Dim objInsp As Inspector 

Set objItem = ActiveInspector.currentItem 

Set objInsp = objItem.GetInspector 
' Hover over the "SAveAllAttachments..." button in the dialog for adding buttons. 
' You will see SaveAttachments, in brackets, at the end of the text. 
objInsp.CommandBars.ExecuteMso ("SaveAttachments") 

ExitRoutine: 
    Set objItem = Nothing 
    Set objInsp = Nothing 

End Sub