Thema Datum  Von Nutzer Rating
Antwort
29.01.2024 21:49:46 Eugen H.
NotSolved
30.01.2024 07:20:19 ralf_b
NotSolved
30.01.2024 08:48:11 Gast67283
NotSolved
30.01.2024 17:52:53 ralf_b
NotSolved
31.01.2024 08:20:28 Mase
NotSolved
Blau Outlook Anlagen einer Mail speichern
 31.01.2024 17:51:34 Gast21071
Solved

Ansicht des Beitrags:
Von:
Gast21071		 Datum:
31.01.2024 17:51:34		 Views:
166		 Rating:
     
Antwort:
 Nein
Thema:
Outlook Anlagen einer Mail speichern

Hallo Mase

Danke, das hat mich auf die Spur gebracht. Nun werden tatsächlich nur noch PDF Attachments gespeichert und vor allem die lästigen Bilder in der dazugehörigen  Mail mit Bild-Signaturen ignoriert... ;-))

Danke auch an ralf_b für Deine Beiträge.


Sub SaveAttachmentsFromSelectedItemsPDF()

    Dim currentItem As Object
    Dim currentAttachment As Attachment
    Dim saveToFolder As String
    Dim savedFileCountPDF As Long
    Dim Foldername As String

    'Pfadangabe
    saveToFolder = "c:\users\eugen\desktop\Mails"

    savedFileCountPDF = 0
    For Each currentItem In Application.ActiveExplorer.Selection
        For Each currentAttachment In currentItem.Attachments
            If UCase(Right(currentAttachment.DisplayName, 4)) = ".PDF" Then
                currentAttachment.SaveAsFile saveToFolder & "\" & Format(Date, "dd.mm.yyyy") & "_" & _
                    Left(currentAttachment.DisplayName, Len(currentAttachment.DisplayName) - 4) & ".pdf"
                savedFileCountPDF = savedFileCountPDF + 1
            End If
        Next currentAttachment
    Next currentItem

    MsgBox "Anlagen wurden gespeichert unter: ...\Desktop\Mails." & vbCr & "Anzahl der gespeicherten PDF: " & savedFileCountPDF, vbInformation
    
    Foldername = "c:\users\eugen\desktop\Mails"

Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus
  
End Sub

 

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
29.01.2024 21:49:46 Eugen H.
NotSolved
30.01.2024 07:20:19 ralf_b
NotSolved
30.01.2024 08:48:11 Gast67283
NotSolved
30.01.2024 17:52:53 ralf_b
NotSolved
31.01.2024 08:20:28 Mase
NotSolved
Blau Outlook Anlagen einer Mail speichern
 31.01.2024 17:51:34 Gast21071
Solved