Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Ganz bestimmte E-Mails oder zu einem bestimmten Datum aus OUTLOOK 2013 auslesen |
24.07.2018 16:25:28 |
Mathias |
|
|
|
24.07.2018 16:29:13 |
Mathias |
|
|
Von:
Mathias |
Datum:
24.07.2018 16:25:28 |
Views:
975 |
Rating:
|
Antwort:
|
Thema:
Ganz 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 = Mail. _
SenderEmailAddress
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Ganz bestimmte E-Mails oder zu einem bestimmten Datum aus OUTLOOK 2013 auslesen |
24.07.2018 16:25:28 |
Mathias |
|
|
|
24.07.2018 16:29:13 |
Mathias |
|
|