alle gleichzeitig löschen? Wenn ich mit Outlook 2003 (Windows XP Pro) größere Mengen an Bilder versendet habe, und danach die Bilder aus der Anlage wieder löschen möchte, dann kann ich die Bilder nur einzeln aus der Anlage löschen und nicht alle auf einmal, was sehr zeitraubend ist, damit mein Outlook-Postfach nicht so voll wird. Geht es auch das man alle Bilder auf einmal löschen kann? Gibt es dafür eine Einstellung? Oder das die gesendeten Bilder „nach dem versenden“ überhaupt nicht mehr in der Anlage erscheinen? Danke! Gruß Georg
Office - Word, Excel und Co. 9.751 Themen, 41.573 Beiträge
Hallo!
Du kannst es mit folgendem Makro versuchen. Hab es nur schnell erstellt, aber nicht getestet. Du musst nur in den Ordner "Gesendete Objekte" gehen, die Mail auswählen und das Makro ausführen.
----- Beginn Makro -----
Sub AnlagenLöschen()
Dim obj As Object
Dim objInspector As Inspector
Dim intAnlagen As String
Dim i As Integer
If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
Set obj = Application.ActiveWindow
Set obj = obj.Selection(1)
Else
Set objInspector = ActiveInspector
objInspector.Activate
If objInspector.IsWordMail Then
Set obj = Application.ActiveInspector.CurrentItem
End If
End If
With obj
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
.Attachments.Item(i).Delete
Next i
End If
End With
End Sub
---- Ende Makro -----
Gruß, René