Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte E-Mails oder zu einem bestimmten Datum aus OUTLOOK 2013 auslesen
 25.07.2018 09:16:17 Mathias
NotSolved

Ansicht des Beitrags:
Von:
Mathias		 Datum:
25.07.2018 09:16:17		 Views:
927		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte E-Mails oder zu einem bestimmten Datum aus OUTLOOK 2013 auslesen
Hallo, ich suche jetzt schon seit längerem einen VBA Code, um bestimmte E-Mails (an einem bestimmten Tag und mit einem bestimmten Betreff versendet/empfangen) auslesen zu können. Mein VBA Code bisher schafft es lediglch alle E-Mails aus Posteingang/-Ausgang zu extrahieren. Gibt es da eine Möglichkeit über eine UserForm ein bestimmtes Datum auszuwählen und dann eventuell den zugehörigen Betreff?! Wäre echt super, wenn ihr mir helfen könnntet. Leider sind meine VBA Kenntnisse nicht so ausgeprägt. Das wäre echt super, ich brauche dies beruflich, da wir bestimmte Postein-und Ausgänge dokumentieren müssen. Meinen bisherigen VBA-Code habe ich aus dem Internet und auf mein Outlook angepasst: Public Sub ReadMailItems() Dim olapp As Object Dim olName As Object Dim olHFolder As Object Dim olUFolder As Object Dim Mail As MailItem Dim Sender As String Dim strAttCount As String Dim olItemsCount As Long Dim lngAttCount As Long Dim letzteZeile As Long On Error Resume Next Set olapp = CreateObject("Outlook.Application") Set olName = olapp.GetNamespace("MAPI") Set olHFolder = olName.Session.Folders("Kontoname") ' Kontoname Set olUFolder = olHFolder.Folders("Posteingang") 'Ordnername letzteZeile = Sheets("Master").Range("A" & Rows.Count).End(xlUp).Row For olItemsCount = 1 To olUFolder.Items.Count With olUFolder.Items.Item(olItemsCount) For lngAttCount = 1 To .Attachments.Count If strAttCount = "" Then strAttCount = .Attachments.Item(lngAttCount).Filename Else strAttCount = strAttCount & vbCrLf & .Attachments.Item(lngAttCount).Filename End If Next lngAttCount Sheets("Master").Range("A" & olItemsCount + letzteZeile).Value = olHFolder. _ Name & "->" & olUFolder.Name Sheets("Master").Range("B" & olItemsCount + letzteZeile).Value = .Sender Sheets("Master").Range("C" & olItemsCount + letzteZeile).Value = .SenderEmailAddress Sheets("Master").Range("D" & olItemsCount + letzteZeile).Value = .ReceivedTime Sheets("Master").Range("E" & olItemsCount + letzteZeile).Value = .Subject Sheets("Master").Range("F" & olItemsCount + letzteZeile).Value = strAttCount strAttCount = "" End With Next olItemsCount On Error GoTo 0 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
Rot Bestimmte E-Mails oder zu einem bestimmten Datum aus OUTLOOK 2013 auslesen
 25.07.2018 09:16:17 Mathias
NotSolved