Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.11.2025 15:24:59
Welche Masseinheit zeigt die Zeilenhöhe
08.11.2025 06:12:31
Automatisierte Grafische Lösung -Preisvergleich/ Ersparnis
07.11.2025 12:58:46
Fehlersuche Ereignismakro
07.11.2025 12:34:41
Datum aus Blatt- und Dateinamen bilden.
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Info aus Outlook-Mails in Excel übertragen

Forumthread: Info aus Outlook-Mails in Excel übertragen

Info aus Outlook-Mails in Excel übertragen
06.04.2024 00:33:34
Kisska
Hallo zusammen,

ich möchte aus Outlook-Emails, die eine gleiche Struktur haben, Inhalte in Excel übertragen.

In meiner Excel habe in der ersten Zeile diese Überschriften: 
A1: E-Mail erhalten am

B1: Produkt-Nummer

C1: Link zum Produkt

D1: Datum mit Uhrzeit


In die zweite Zeile sollen die Daten aus den Mails einkopiert werden.

Die Mails liegen in einem Unterordner von Posteingang namens "Test".
Eine E-Mail ist so aufgebaut: 
Hallo XY,

blabla Produkt_01 läuft aus am 01.01.2024 12:00



VG

Dabei ist hinter dem Produkt_01 ein Hyperlink.

Ich habe versucht ein VBA nach diesem Tutorial aufzubauen:
https://www.youtube.com/watch?v=R6kWnPLFNxE
Interessant wird's ab der 16. Minute.
Und da bekomme ich im Überwachungsfenster Folgendes: .
Ich kann also auf das Brillen-Symbol nicht gehen und den Rest wie im Video definieren.

Hat jemand eine Idee, warum?
Oder: Kennt jemand ein VBA-Code mit dem der Export wie beschrieben funktioniert?

VG
Kisska
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
06.04.2024 07:29:10
Oberschlumpf
Hi,

bei meinem Versuch, das Vodeo anzusehen, stockte dieses mehrmals während der Wiedergabe, und ich konnte nicht jede Sekunde/Minute sehen.
Ich weiß nicht, OB ES DAS ist, was du meinst.

Wenn man sich aber im Video "durchklickt", sieht man fast am Ende den gesamten Code:
Userbild

Wie gesagt, ich weiß nicht, ob du uns fragtest, "wie sieht der gesamte Code aus?", oder ob du ein anderes Problem hast.

Ach ja, du weißt aber schon, dass der Code a) eigtl für Outlook-VBA ist, also nicht in die Excel-datei gehört, oder b) wenn du das doch in Excel haben willst, musst du im VBE in Extras/Verweise den Outlook-Verweis setzen.
(wenn genau das im Video vllt zu Beginn erklärt/gezeigt wird, was ihc nicht gesehen habe, dann vergiss diesen Hinweis)

Kannst du bitte uns den Code hier in der nächsten Antwort reinschreiben, oder hab ich dir schon helfen können?

Ciao
Thorsten
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
06.04.2024 14:26:23
Kisska
Hi Thorsten,

danke für die Antwort.
Ich habe vergessen, meinen Code zu posten: 
Option Explicit



Sub ExtractData()





Dim O As Outlook.Application

Set O = New Outlook.Application



Dim OMAIL As Outlook.MailItem

Set OMAIL = O.CreateItem(olMailItem)



Dim ONS As Outlook.Namespace

Set ONS = O.GetNamespace("MAPI")



Dim MYFOL As Outlook.Folder



Set MYFOL = ONS.GetDefaultFolder(olFolderInbox).Folders("Test")

' für Posteingang: Set MYFAL = ONS.GetDefaultFolder(olFolderInbox)

Dim MYARRAY As Variant



For Each OMAIL In MYFOL.Items



    MYARRAY = Split(OMAIL.Body, vbCrLf)

    

Next OMAIL







End Sub


Diesen Code habe unter Excel im VBA-Editor eingefügt und auch den Outlook-Verweis in den Einstellungen gesetzt.

Wenn ich den Code bis dahin ausführe, bekomme ich im Überwachungsfenster das angezeigt:
Userbild

VG
Kisska

Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
06.04.2024 10:26:02
Fennek
Hallo,

als ersten Ansatz, um die Informationen aus der Mail zu lesen: 


Sub Kisska()

Dim EML As MailItem, Tag As Date, RegEx As Object, RR As Object

Dim Doc As Word.Document



If RegEx Is Nothing Then Set RegEx = CreateObject("VBScript.RegExp")

RegEx.Pattern = "\d{2}\.\d{2}\.\d{4}\s\d{2}:\d{2}"



Set EML = ActiveExplorer.Selection(1)



Set RR = RegEx.Execute(EML.Body)



Set Doc = EML.GetInspector.WordEditor



Debug.Print EML.ReceivedTime, CDate(RR(0)), Doc.Hyperlinks(1).Address

End Sub


Jetzt fehlt noch eine Schleife über die Mails in Test (ohne Doppelte)

Dim FLD as Folder
set Folder = ...
for i = 1 to fld.items.count
set EML = fld.items(i)
next i

Ergänzt werden muss jede Art von Fehlermöglichkeit, z.B. im Ordner liegen Nicht-Mailitems

mfg
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
06.04.2024 14:32:50
Kisska
Hallo Fennek,

danke für deine Antwort.

Deinen Ansatz verstehe ich leider nicht, liegt wohl daran, dass ich mich mit VBA nicht auskenne.
Bei dem ersten Teil des Codes kommt direkt eine Fehlermeldung: ... Typ nicht definiert und zwar bei dieser Zeile "Dim Doc As Word.Document"

Den zweiten Teil weiß ich nicht wie zu ergänzen und was nach "set Folder = ..." folgen muss

VG
Kisska
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
06.04.2024 15:52:38
Alwin Weisangler
Hallo,

ich habe es mal auf die Schnelle getestet. Da ich nur ein paar Mails im Ordner für gelöschte Mails drin hatte, kam dieser Weg unter Nutzung der Intellisense (Aktivierung der Outlook Bibliothek "Microsoft Outlook 16.0 Object Library") heraus, welcher problemlos funktioniert. 


Option Explicit



Sub BodyAusGeloeschtenEmailsLesen()

    Dim O As Outlook.Application

    Dim OMAIL As Outlook.MailItem

    Dim ONS As Outlook.Namespace

    Dim MYFOL As Outlook.Folder

    Dim MYARRAY As Variant

    

    Set O = New Outlook.Application

    Set OMAIL = O.CreateItem(olMailItem)

    Set ONS = O.GetNamespace("MAPI")

    Set MYFOL = ONS.GetDefaultFolder(olFolderDeletedItems)



    For Each OMAIL In MYFOL.Items

        MYARRAY = Split(OMAIL.Body, vbCrLf)

    Next OMAIL

End Sub


Gruß Uwe
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
06.04.2024 16:53:41
Alwin Weisangler
anbei mal noch der Weg dies in ein ausgabefähiges Array zu übergeben.
Damit kann man den Inhalt des Arrays in ein Tabellenblatt schreiben. 


Option Explicit



Sub BodyAusGeloeschtenEmailsLesen()

    Dim O As Outlook.Application

    Dim OMAIL As Outlook.MailItem

    Dim ONS As Outlook.Namespace

    Dim MYFOL As Outlook.Folder

    Dim MYARRAY As Variant

    Dim arr(), i&, iZeilen&, iItems&

    

    Set O = New Outlook.Application

    Set OMAIL = O.CreateItem(olMailItem)

    Set ONS = O.GetNamespace("MAPI")

    Set MYFOL = ONS.GetDefaultFolder(olFolderDeletedItems)

    

    For Each OMAIL In MYFOL.Items  ' Schleife zum lesen der maximalen Dimensionierung des Arrays

        MYARRAY = Split(OMAIL.Body, vbCrLf)

        iItems = iItems + 1

        If UBound(MYARRAY) > iZeilen Then iZeilen = UBound(MYARRAY)

    Next OMAIL

    ReDim arr(1 To iItems + 1, 1 To iZeilen)    ' Dimensionierung des Arrays

    iItems = 0

    For Each OMAIL In MYFOL.Items               ' Schleife zum füllen des Arrays

        MYARRAY = Split(OMAIL.Body, vbCrLf)

        iItems = iItems + 1

        For i = 1 To UBound(MYARRAY)

            arr(iItems, i) = MYARRAY(i - 1)

        Next i

    Next OMAIL

    Tabelle1.Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr

End Sub


Gruß Uwe
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
07.04.2024 13:52:40
Kisska
Hallo Uwe,

danke für die Antwort.
Da mein Outlook-Ordner Test heißt, habe ich in deinem Code, folgende Zeile angepasst: 
 Set MYFOL = ONS.GetDefaultFolder(olFolderDeletedItems)

Zu der hier: 
Set MYFOL = ONS.GetDefaultFolder(olFolderTest)


Mir wird aber als Fehler angezeigt "Variable nicht definiert".
Was müsste ich ergänzen?

VG
Kisska
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
07.04.2024 14:58:29
Alwin Weisangler
Hallo,

schau dir mal die Verzeichniskonstanten an:
https://learn.microsoft.com/de-de/office/vba/api/outlook.oldefaultfolders

Jetzt wäre die Frage, in welchen der Standartverzeichnisse von Outlook befindet sich das Verzeichnis "Test" 


Set MYFOL = ONS.GetDefaultFolder(olFolderInbox).Folders("Test")    '  für Posteingangsordner

Um ein neues Verzeichnis im Posteingangsordner zu erzeugen, kann man mit der Objektvariable MYFOL dies so machen: 


MYFOL.Folders.Add ("TestIrgenwas")

Um dieses Verzeichnis wieder zu löschen, wäre der Weg so: 


MYFOL.Folders("TestIrgenwas").Delete


Gruß Uwe
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
07.04.2024 15:49:48
Alwin Weisangler
Sollte der Ordner "Test" in "Persönliche Ordner" angelegt sein, wäre der Zugriff so: 


Set MYFOL = ONS.Folders.Item("Persönliche Ordner").Folders("Test")


Gruß Uwe
AW: Info aus Outlook-Mails in Excel übertragen
10.04.2024 13:44:07
Kisska
Hallo Uwe,

dein Code: 


Option Explicit



Sub BodyAusGeloeschtenEmailsLesen()

    Dim O As Outlook.Application

    Dim OMAIL As Outlook.MailItem

    Dim ONS As Outlook.Namespace

    Dim MYFOL As Outlook.Folder

    Dim MYARRAY As Variant

    Dim arr(), i&, iZeilen&, iItems&

    

    Set O = New Outlook.Application

    Set OMAIL = O.CreateItem(olMailItem)

    Set ONS = O.GetNamespace("MAPI")

    Set MYFOL = ONS.GetDefaultFolder(olFolderDeletedItems)

    

    For Each OMAIL In MYFOL.Items  ' Schleife zum lesen der maximalen Dimensionierung des Arrays

        MYARRAY = Split(OMAIL.Body, vbCrLf)

        iItems = iItems + 1

        If UBound(MYARRAY) > iZeilen Then iZeilen = UBound(MYARRAY)

    Next OMAIL

    ReDim arr(1 To iItems + 1, 1 To iZeilen)    ' Dimensionierung des Arrays

    iItems = 0

    For Each OMAIL In MYFOL.Items               ' Schleife zum füllen des Arrays

        MYARRAY = Split(OMAIL.Body, vbCrLf)

        iItems = iItems + 1

        For i = 1 To UBound(MYARRAY)

            arr(iItems, i) = MYARRAY(i - 1)

        Next i

    Next OMAIL

    Tabelle1.Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr

End Sub


mit dieser Zeile von dir: 
Set MYFOL = ONS.GetDefaultFolder(olFolderInbox).Folders("Test")    '  für Posteingangsordner


funktioniert nun auch bei mir.
Der Body aus dem E-Mails wird in Excel übertragen, jede Zeile oder jeder Abschnitt in eigene Spalte.
Da ich nicht den gesamt Inhalt brauche, sondern nur einzelne Daten aus der E-Mail, möchte ich wie im Video Überwachung für MYARRAY hinzufügen. Wenn ich das mache, bekomme ich trotzdem im Überwachungsfenster angezeigt "Außerhalb des Kontexts" bei Wert. Was mache ich falsch?

VG
Kisska
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
10.04.2024 18:58:41
Alwin Weisangler
Hallo,

Das Video habe ich keine 2 Minuten ausgehalten. Es ist einfach nur endloses Geplapper um wenig Erforderliches.

Welche Daten benötigst du??
Beschreibe bitte exakt was du ausgeben möchtest.

Gruß Uwe

AW: Info aus Outlook-Mails in Excel übertragen
10.04.2024 22:20:39
Kisska
Hallo Uwe,

hier meine Aufgabe nochmal veranschaulicht:
Userbild

In meinem Outlook-Unterordner "Test" (Unterordner vom Posteingang) befinden sich E-Mails mit der gleichen Struktur (wie im Bild links).
Rechts im Bild sieht man wie ich die Übersicht gestalten möchte. In der ersten Zeile befinden sich vier Überschriften. Ab Zeile sollen die entsprechenden Daten aus den E-Mails übertragen werden.
In der Spalte A sollte das Datum stehen, wann ich die E-Mails erhalten habe (Datum & Uhrzeit).
In der Spalte B sollte die Produkt-Nummer stehen. Diese befindet sich als Hyperlink in der E-Mail in der Zeile nach der Begrüßung. Hier A-001. Diese Nummer steht aber auch im Betreff.
In der Spalte C sollte der Hyperlink zum Produkt stehen.
In der Spalte D sollte die Frist (Datum & Uhrzeit) stehen. Diese Info steht sowohl im Body von der E-Mail als auch im Betreff.

Es wäre schön, wenn man alle E-Mails, die sich in dem Test-Unterordner befinden, auf Knopfdruck in die Excel-Übersicht übertragen könnte.
Dabei sollte die Übersicht nach der ersten Spalte aufsteigend gefiltert werden.
Wenn neue E-Mails in den Test-Ordner kommen, dann sollte die Übersicht um neue Daten ergänzt werden, d.h. alte Daten sollen bleiben.
Doppelte E-Mails sollten erkannt werden und nicht doppelt übertragen werden.

VG
Kisska
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
10.04.2024 22:56:19
Alwin Weisangler
Hallo Kisska,

es sind ja alles Daten aus dem Body und somit im Array drin enthalten.
Setze am Ende der Prozedur in Zeile 34 einen Haltepunkt.
Lass die Prozedur bis zum Haltepunkt laufen.
Benutze/Aktiviere das Direktfenster und Schau ins Array "arr".
Da findest du die relevanten Zellen mit den gewünschten Inhalten.
Da ich nicht sehen kann was in welchen Zellen des Arrays steht, musst dir ab dieser Stelle selbst helfen und dich mit der Verarbeitung/Manipulation von Arrays beschäftigen. Dann kannst du daraus eine brauchbare/gewünschte Ausgabe stricken.
Ohne exakte Kenntnisse zum Inhalt der Arrayzelle kann ich dir leider ab hier nicht weiterhelfen.

Gruß Uwe
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
10.04.2024 23:32:50
Kisska
Hallo Uwe,

ich kann dir nicht ganz folgen. Von welcher Zeile 34 sprichst du? Meinst du den Code im Video? Du hast mir einen etwas abgeänderten Code geschickt. Welchen soll ich nun nehmen?

VG
Kisska
AW: Info aus Outlook-Mails in Excel übertragen
11.04.2024 05:58:31
Oberschlumpf
Hi,

da es nicht anders geht, als für dich punktgenau etwas zu programmieren, ist es erforderlich, dass du uns eine Bsp-eMail-Datei per Upload zeigst.
Ja, ich weiß, böse böse, dann würde man ja auch das sehen, was du geschwärzt hast.
Aber..geht ja nich anders, weil du es noch nich selbst hinbekommst, den schon gezeigten Code für deine Zwecke anzupassen.
Und grundsätzlich funktioniert auch der Code ganz zu Beginn aus dem Video - hab ich getestet!

Also, speicher in Outlook eine Mail mit dem Text, den du verarbeiten willst, als MSG-Datei (msg = Dateiendung, also speicher die Datei z Bsp unter dem Namen "Mail mit Text für Excel.msg").
Komprimier die msg-Datei z Bsp mit 7ZIP in eine ZIP-Datei, da hier im Forum msg-Dateien nicht per Upload gezeigt werden können.
Aber die ZIP-Datei kannst du dann per Upload zeigen.
Und wir (vllt nur noch ich) passen den Code dann an die von dir gezeigte Mail-Datei (msg-Format) an.

Wenn du meinst, das geht nicht, dann bin ich wieder raus, weil...no file = no party

Ciao
Thorsten
Anzeige
AW: Info aus Outlook-Mails in Excel übertragen
11.04.2024 08:49:24
schauan
Hallöchen,

den Haltepunkt kannst Du in dieser Zeile setzen:
Tabelle1.Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
Da hast Du das komplette Array. Oder du setzt ihn eine Zeile drüber bei Next OMAIL und hast dann schon bei der ersten Mail Zeit zum Nachschauen :-)
.
Anzeige
;

Forumthreads zu verwandten Themen

Outlook Emails einlesen und löschen
Peter

Ich würde gerne den Outlook Posteingang in Excel einlesen und danach den Outlook Posteingang löschen.
Wie kann so etwas in VBA realisiert werden?
19.08.2008 18:20:00
Thread-ID: 1003019
3 Beiträge
Outlook Email einlesen/löschen
Peter

Ich bin zwar in der Lage Emails von Excel/VBA via Outlook abzusenden.
Jetzt würde ich jedoch gerne via VBA/Excel Emails einlesen, den Header der eingehenden Email auslesen und danach die Email wieder löschen.
Danke für die Unterstützung.
Grüße
Peter
29.08.2008 15:07:44
Thread-ID: 1005850
3 Beiträge
Anzeige
Email versenden Outlook - Problem
Peter

Ich versende via Excel/VBA alle 3 Minuten ein Email.
Nun kommt es ca. 1x am Tag vor, dass Outlook Emails nicht sofort sendet und sich die Emails im Postausgang sammeln bis ich Outlook schließe und wieder öffne.
Danke für die Unterstützung.
Grüße
Peter
29.09.2008 13:58:00
Thread-ID: 1013103
2 Beiträge
Email aus Excel über Outlook versenden
ray

Hallo,
ich plane grad neue Projekte und hab eine Frage, wo ich nur die Antwort aber keinen code brauche.
Ich möchte den Inhalt der Label oder textboxen von ein UserForm an Outlook übergeben und via Outlook versenden.
Dabei soll diese Mail in dem Outlookordner 'gesendete Objekte' e...
02.12.2008 10:35:00
Thread-ID: 1029428
3 Beiträge
Outlook-Mail aus Excel - Statusabfrage
Peter

Hallo,
aus Excel generiere ich Mail-Items mit nachfolgendem Code. Versendet werden diese durch manuelles Betätigen des "Senden"-Buttons. Gibt es eine Art Return-Code? Kann abgefragt werden, ob der "Senden"-"Button gedrückt wurde oder ob das Item ohne Senden geschlossen wurde?
Set MyOutA...
04.12.2008 14:07:27
Thread-ID: 1030167
6 Beiträge
Anzeige
Email über Outlook, Konto ändern
Nico

Hallo!
Ich schicke eine Email über ExcelVBA mit Outlook und dem Standardkonto.
Gibt es eine Möglichkeit die Email nicht über das Standardemailkonto zu verschicken, sondern über ein anderes Konto?
Wie kann ich das Konto vorher festlegen?
Sub EmailVerschickenKINDERSKIKURS() Dim...
16.12.2008 20:16:33
Thread-ID: 1033418
2 Beiträge
eMail aus Outlook in Excel einlesen
Heinzs

Hallo,
ich möchte eine in Outlook in einem bestimmten Ordner angekommene eMail in Excel weiterverarbeiten, d.h. wenn bestimmter Absender und bestimmter Betreff in bestimmten Ordner und bestimmtes Empfangsdatum vorliegt dann soll der Emailbody in die Exceltabelle ans Ende angefügt werden.
21.01.2009 15:36:17
Thread-ID: 1042242
3 Beiträge
Anzeige
Serienmail Outlook
Ilka

Hallo,
ich bräuchte mal wieder eure Hilfe. Ich möchte an einen bestimmten Personenkreis eine Art Serienmail verschicken, zu der jeder einen individuellen Datei-Anhang erhalten soll.
D. h. bei Herrn Müller soll der Anhang A, bei Frau Mayer Anhang B und bei Herr Schmitt Anhang C automati...
27.04.2009 08:15:33
Thread-ID: 1071278
3 Beiträge
Anzeige
Outlook Attachment abspeichern
jogi

Hallo zusammen,
ich möchte in Outlook ein Makro schreiben, dass mir von der E-Mail die Attachments in ein bestimmtes Verzeichnis speichert, jedoch soll an den gespeicherten Dateinamen das Datum der E-Mail drangehängt werden.
Bsp:
Die E-Mail vom 12.05.2009 enthält die Attachments: pa...
13.05.2009 10:04:32
Thread-ID: 1074731
2 Beiträge
Mailversand via Outlook
F.

Hallo
Möchte ein Reminder per Mail an mehrere Personen verschicken. Da ich auf den Geschmack von VBA gekommen bin, habe ich mir den folgenden Code zusammengesucht. Da ich die Sicherheitsabfrage umgehen möchte, habe ich zusätzlichen Code eingefügt.
Es erscheint die Fehlermeldung: Next o...
16.07.2009 15:48:48
Thread-ID: 1089111
7 Beiträge
Outlookmail aus Excel versenden
Peter

Hallo
ich erstelle von Excel aus mit VBA ein neues Mail in Outlook und versende es
Auszug:
Text = "Hier die Dateien"
Bereich = Sheets("Basis").Range("F19:H23") '? in Text einfügen
Sheets("Basis").Range("F19:H23").Copy '? in Text einfügen
Se...
07.10.2009 09:33:30
Thread-ID: 1107734
2 Beiträge
Email mit Anhang versenden ueber outlook
abu

Hallo Zusammen,
habe folgenden Code gefunden und wuerde den gerne fuer meine Beduerfnisse umstricken. Leider bekomme ich immer eine Fehlermeldung bei dieser Zeile:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
Wuerde mich ueber hilfe sehr freuen...
16.12.2009 13:28:45
Thread-ID: 1122907
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige