VBOffice

Mehrere Anlagen gleichzeitig löschen

Entfernen Sie die Anlagen mehrerer Emails gleichzeitig mit nur einem Klick.

Zuletzt geändert: 08.08.2012 | Aufrufe: 37.011  | #94
◀ Vorheriges Beispiel Nächstes Beispiel ▶
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.

Ob Sie nur eine Email oder mehrere bearbeiten wollen, in Outlook gibt es keine Funktion, die alle Anlagen auf einmal löscht. Dieses Beispiel listet die Anlagen namentlich auf und löscht diese dann auf Wunsch.


tip  So fügen Sie Makros in Outlook ein
Public Sub DeleteAttachments2()
  Dim coll As VBA.Collection
  Dim obj As Object
  Dim Atts As Outlook.Attachments
  Dim Att As Outlook.Attachment
  Dim Sel As Outlook.Selection
  Dim i&, Msg$

  Set coll = New VBA.Collection

  If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    coll.Add Application.ActiveInspector.CurrentItem
  Else
    Set Sel = Application.ActiveExplorer.Selection
    For i = 1 To Sel.Count
      coll.Add Sel(i)
    Next
  End If

  For Each obj In coll
    Set Atts = obj.Attachments
    Msg = ""
    For i = Atts.Count To 1 Step -1
      Msg = Msg & Atts(i).FileName & vbCrLf
    Next
    If MsgBox(Msg, vbYesNo Or vbQuestion, "Löschen?") = vbYes Then
      For i = Atts.Count To 1 Step -1
        Atts.Remove i
      Next
      obj.save
    End If
  Next
End Sub
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.
email  Senden Sie eine Nachricht