Gmail Email inhalt nach Excel exportiere

Hallo zusammen.
Leider bin ich bei meiner Recherche nicht weitergekommen, weswegen ich mich nun an euch wende.
Aktuell nutze ich noch Excel 365 über meine Uni, gehe daher von der Businessversion aus.
Ich erhalte (aktuell bei gmail) pro Tag zwischen 20 und 50 standardisierte Nachrichten von einem Empfänger. Diese sind von der Struktur komplett identisch.
Der Name und die Artikelnummer sind Zeichenketten, die Informationen (hier a / b genannt) sind Zahlen.
Name
Artikelnummer
Information 1: a / b
Information 2: a / b
usw.
Da das händische eintragen bei Excel extrem viel Zeit kostet würde ich das ganze gerne automatisieren. (vor allem weil es zukünftig immer mehr werden)
Dabei sollte alles mit dem selben Namen in ein separates Blatt. Insgesamt sind es maximal 10 Blätter auf die es sich dann aufteilen würde.
Anschließend dann in jedem Blatt welches zu dem Namen gehört in Spalte A die Artikelnummer, in Spalte B die Information 1a, in Spalte C die Information 1b usw
Ist das aus gmail heraus überhaupt möglich oder muss ich die Emails erst irgendwo anders bündeln zum exportieren?
Braucht ihr weitere Informationen um mein Problem zu verstehen?
Kann man das auch für schon angekommene Mails machen oder geht es dann nur für zukünftig ankommende?
Ich hoffe ihr könnt mir weiterhelfen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Marvin,
hier eine Variante, die in Outlook aufgerufen wird, und als Ausgabe eine XLSX erzeugt.
Den Email-Body stelle ich nur in eine Zelle, da kannst du ihn weiter "verarzten".


Option Explicit
Sub XLSTAB_erzeugen_Emails_ausFolder()
Dim o As Outlook.Application
Dim R As Long, i As Long
Set o = New Outlook.Application
Dim ons As Outlook.NameSpace
Set ons = o.GetNamespace("MAPI")
Dim myAccName As String
Dim myfol As Outlook.Folder
myAccName = "emailuser@gmail.com"
For i = 1 To ons.Session.Folders.Count
If ons.Session.Folders(i).FolderPath = "\\" & myAccName Then
Set myfol = ons.Session.Folders(i).Folders(2)               'inbox von GMAIL erreicht
Exit For
End If
Next i
Dim oXLApp As Object, oXLwb As Object, oXLws As Object
On Error Resume Next
Set oXLApp = GetObject(, "Excel.Application")           'XLS ansprechen, falls bereits geöffnet
If Err.Number  0 Then
Set oXLApp = CreateObject("Excel.Application")      'XLS erzeugen, falls noch nicht geöffnet
End If
Err.Clear
On Error GoTo 0
oXLApp.Visible = True
Set oXLwb = oXLApp.Workbooks.Add                        'neuer workbook anlegen
Set oXLws = oXLwb.Sheets("Tabelle1")
R = 2
With oXLws
.Range("A:G").Clear
.Range("A1:G1").Value = Array("lfd", "Erhalten", "von Person", "Emailadresses", "Betreff", "Body", "# attached")
R = 3
For i = 1 To myfol.Items.Count
DoEvents
If myfol.Items(i).Class = olMail Then                   'nur Emails auslesen, alle anderen ignorieren
.Cells(2, 1).Value = R & " von " & myfol.Items.Count
.Cells(R, 1).Value = R & " von " & myfol.Items.Count
.Cells(R, 2).Value = myfol.Items(i).ReceivedTime
.Cells(R, 3).Value = myfol.Items(i).SenderName
.Cells(R, 4).Value = myfol.Items(i).SenderEmailAddress
.Cells(R, 5).Value = myfol.Items(i).Subject
.Cells(R, 6).Value = myfol.Items(i).Body
.Cells(R, 7).Value = myfol.Items(i).Attachments.Count
R = R + 1
End If
Next i
Set o = Nothing
Set ons = Nothing
Set myfol = Nothing
End With
R = R   'debug only
End Sub

Verweise auf Outlook und Excel in VBA nicht vergessen!
Gruß,
Firmus

Beliebteste Forumthreads (12 Monate)

Gmail Email inhalt nach Excel exportiere

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

39 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gmail Email inhalt nach Excel exportiere

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

39 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread