Office - Word, Excel und Co. 9.751 Themen, 41.573 Beiträge

Wie Anlagen (Bilder) im Outlook 2003 nach dem Senden

gal211 / 6 Antworten / Flachansicht Nickles

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

bei Antwort benachrichtigen
mumpel1 gal211 „Wie Anlagen (Bilder) im Outlook 2003 nach dem Senden“
Optionen

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é

bei Antwort benachrichtigen