guimou

Sub DeleteAllAttachments()
    Dim olkMsg As Object, intIdx As Integer, strBuffer As String
    For Each olkMsg In Application.ActiveExplorer.Selection
        For intIdx = olkMsg.Attachments.Count To 1 Step -1
            If Not IsHiddenAttachment(olkMsg.Attachments.Item(intIdx)) Then
                strBuffer = strBuffer & olkMsg.Attachments.Item(intIdx).FileName & vbCrLf
                olkMsg.Attachments.Item(intIdx).Delete
            End If
        Next
        Select Case olkMsg.BodyFormat

guimou

Sub SaveAllAttachments()
    '--> Define some constants
    Const msoFileDialogFolderPicker = 4
    
    '--> Define some variables
    Dim olkMsg As Object, _
        olkPos As Outlook.PostItem, _
        intIdx As Integer, _
        excApp As Object, _
        objFSO As Object, _

guimou

C:\Windows\System32\runas.exe /netonly /user:username@domainname "mmc %SystemRoot%\system32\dsa.msc /domain=domainname"