Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
Gast21071

Datum:
31.01.2024 17:51:34

Rating:

Antwort:

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