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
Blau E-Mail-Anhang in Outlook finden & abspeichern
 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
18.05.2018 08:50:24 codo
NotSolved
18.05.2018 13:16:40 Joe
NotSolved

Ansicht des Beitrags:
Von:
codo		 Datum:
17.05.2018 09:11:21		 Views:
591		 Rating:
     
Antwort:
  Ja
Thema:
E-Mail-Anhang in Outlook finden & abspeichern

Hallo,

es bedarf einer zusätzlichen Prüfung. So sollte es hoffentlich klappen:

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


strPath = "L:\"
Set olApp = Outlook.Application
Set Items = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Posteingang").Items 'eMails im Posteingang
For Each objMail In Items
    If objMail.Class = olMail Then
       With objMail 'Mails auf vorh. Anlagen prüfen
            intAnlagen = .Attachments.Count And objMail.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
Blau E-Mail-Anhang in Outlook finden & abspeichern
 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
18.05.2018 08:50:24 codo
NotSolved
18.05.2018 13:16:40 Joe
NotSolved