Thema Datum  Von Nutzer Rating
Antwort
30.10.2018 17:39:01 Lukas Möller
NotSolved
30.10.2018 22:52:54 Flotter Feger
NotSolved
31.10.2018 16:14:18 Lukas Möller
NotSolved
31.10.2018 18:20:51 Flotter Feger
NotSolved
01.11.2018 08:53:17 Gast28612
NotSolved
Blau Email Anhänge in Outlook speichern
 05.11.2018 19:46:00 Lukas Möller
NotSolved

Ansicht des Beitrags:
Von:
Lukas Möller		 Datum:
05.11.2018 19:46:00		 Views:
517		 Rating:
     
Antwort:
  Ja
Thema:
Email Anhänge in Outlook speichern

Hallo,

danke für Eure Antworten. Ich habe jetzt diese Codes, die beide funktionieren. Allerdings habe ich relativ wenig Ahnung in VBA und weiß nicht, wie ich diese nun kombinieren kann. Deswegen bitte ich um Eure Hilfe!

Dim objNS As Outlook.NameSpace: Set objNS = GetNamespace("MAPI")
Dim olFolder As Outlook.MAPIFolder
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Dim Item As Object

For Each Item In olFolder.Items
    If TypeOf Item Is Outlook.MailItem Then 
        Dim oMail As Outlook.MailItem: Set oMail = Item
        Debug.Print oMail.SenderEmailAddress
    End If
Next
Dim strSavePath As String
Dim objMail As MailItem
Dim intAnlagen As Integer, i As Integer
On Error Resume Next
'Pfad zu meinem Ordner
strSavePath = BrowseForFolder
'Schleife
For Each objMail In Outlook.ActiveExplorer.Selection
With objMail
'Mails auf vorh. Anlagen prüfen
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
'Anlagen im vordefinierten Verzeichnis sichern
.Attachments.Item(i).SaveAsFile strSavePath & Format(.ReceivedTime, "DD.MM.YYYY_hh-mm_") & .Attachments.Item(i).FileName
Next i
End If
End With
Next objMail

Die Lösungsvorschläge mit den Bildern funktionieren leider nicht, da in den Mail-Anhängen auch Bilder vorkommen. Ich will jedoch nur explizit die Bilder aus der Signatur ausgrenzen. Gibt es vielleicht eine Möglichkeit, die Signatur einer Mail in VBA anzusprechen?

Gruß Lukas

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
30.10.2018 17:39:01 Lukas Möller
NotSolved
30.10.2018 22:52:54 Flotter Feger
NotSolved
31.10.2018 16:14:18 Lukas Möller
NotSolved
31.10.2018 18:20:51 Flotter Feger
NotSolved
01.11.2018 08:53:17 Gast28612
NotSolved
Blau Email Anhänge in Outlook speichern
 05.11.2018 19:46:00 Lukas Möller
NotSolved