Thema Datum  Von Nutzer Rating
Antwort
15.05.2018 09:20:12 Joe
Solved
16.05.2018 14:06:19 codo
NotSolved
16.05.2018 16:58:51 Joe
NotSolved
17.05.2018 09:11:21 codo
NotSolved
17.05.2018 11:26:40 Joe
NotSolved
17.05.2018 11:34:06 codo
NotSolved
17.05.2018 17:23:52 Joe
NotSolved
Blau E-Mail-Anhang in Outlook finden & abspeichern
 18.05.2018 08:50:24 codo
NotSolved
18.05.2018 13:16:40 Joe
NotSolved

Ansicht des Beitrags:
Von:
codo		 Datum:
18.05.2018 08:50:24		 Views:
482		 Rating:
     
Antwort:
  Ja
Thema:
E-Mail-Anhang in Outlook finden & abspeichern

Dann vielleicht so:

 

Sub OutlookPosteingang()
Dim olApp As Outlook.Application
Dim folder As Object
Dim verz As Object
Dim i As Integer
Dim intAnlagen As Integer
Dim strPath As String

strPath = "L:\"

Set olApp = Outlook.Application
Set items = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Posteingang").items 'eMails im Posteingang
For anz = 1 To items.Count
    If items(anz).Class = olMail Then
       With items(anz) 'Mails auf vorh. Anlagen prüfen
            intAnlagen = .Attachments.Count And .Subject Like "*" & "abc.xlsx" & "*"
            If intAnlagen > 0 Then
               For i = 1 To intAnlagen 'Anlagen im vordefinierten Verzeichnis sichern
                   .Attachments.item(i).SaveAsFile strPath & "\" & .Attachments.item(i).FileName
               Next i
            End If
       End With
    End If
Next
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
15.05.2018 09:20:12 Joe
Solved
16.05.2018 14:06:19 codo
NotSolved
16.05.2018 16:58:51 Joe
NotSolved
17.05.2018 09:11:21 codo
NotSolved
17.05.2018 11:26:40 Joe
NotSolved
17.05.2018 11:34:06 codo
NotSolved
17.05.2018 17:23:52 Joe
NotSolved
Blau E-Mail-Anhang in Outlook finden & abspeichern
 18.05.2018 08:50:24 codo
NotSolved
18.05.2018 13:16:40 Joe
NotSolved