Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook 365 Anhang aus Mail entfernen
 08.03.2019 16:01:33 Peter
NotSolved
09.03.2019 17:36:01 Peter
NotSolved
09.03.2019 19:39:27 Gast63325
NotSolved
21.03.2019 11:27:34 Gast4724
NotSolved

Ansicht des Beitrags:
Von:
Peter		 Datum:
08.03.2019 16:01:33		 Views:
852		 Rating:
     
Antwort:
  Ja
Thema:
Outlook 365 Anhang aus Mail entfernen

Hallo!

Ich habe ein VBA Skript für Outlook 365 gesucht, das mir aus selektierten E-Mails die Anhänge in einen bestimmten Ordner abspeichert und anschließend die Anhänge aus dieser E-Mail entfernt. Das funktioniert insofern gut, als dass die Anhänge tatsächlich abgespeichert werden. In Outlook hat die E-Mail aber nach wie vor das "Büroklammer"-Symbol, das symbolisch für "E-Mail mit Anhang" steht und auch die Dateigröße dieser E-Mail hat sich laut Anzeige nicht geändert. Öffne ich allerdings diese E-Mail, sind die Anhänge nicht mehr da bzw. zumindest nicht sichtbar.

Hier das Makro:

Sub Anhang()

Dim FilePath As String
Dim OutlookApp As New Outlook.Application
Dim OutlookExpl As Outlook.Explorer
Dim OutlookSelect As Outlook.Selection
Dim Mail, Anhang As Object

FilePath = InputBox("Speicherort", "Anhänge Speichern unter: ", "C:\Anhaenge\")

On Error Resume Next

Set OutlookExpl = OutlookApp.ActiveExplorer
Set OutlookSelect = OutlookExpl.Selection

For Each Mail In OutlookSelect

    Set Anhang = Mail.Attachments
    
    If Anhang.Count <> 0 Then
    
        For i = 1 To Anhang.Count
            Anhang(i).SaveAsFile FilePath & Anhang(i).DisplayName
        Next i
        
        While Anhang.Count <> 0
            Anhang.Remove 1
        Wend
        
        Mail.Save
        
    End If

Next

Set Mail = Nothing
Set Anhang = Nothing
Set OutlookApp = Nothing
Set OutlookExpl = Nothing
Set OutlookSelect = Nothing

Resume

End Sub
Kann mir bitte jemand das Verhalten von Outlook erklären? E-Mail ohne Anhang, allerdings als mit solchem gekennzeichnet und mit unveränderter Dateigröße? Vielen Dank im Voraus!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook 365 Anhang aus Mail entfernen
 08.03.2019 16:01:33 Peter
NotSolved
09.03.2019 17:36:01 Peter
NotSolved
09.03.2019 19:39:27 Gast63325
NotSolved
21.03.2019 11:27:34 Gast4724
NotSolved