Outlook Mails in Excel exportieren

[Vortex]

Hallo,

ich würde gerne folgendes basteln:

Eine Excel Tabelle die mir aus einem Ordner in Outlook 365 alle Mails (Wie ein Formular aufgebaut) auflistet, so dass ich sie mir als
CSV abspeichern kann und dann im anderen System einfach importieren kann.

Wie stelle ich dies am besten an?

[Fennek]

Hallo,

hier ist ein Beispiel-Code, der aus Excel aller Mails eines bestimmten Ordners in Outlook auflistet.

Einige Anpassungen muss Du noch machen:

Code:

Sub XL_get_OL_Mails()
Dim OL As Object, NSp As Object, FLD As Object, EML As Object
Dim iName As String

Set OL = CreateObject("Outlook.Application")
Set NSp = OL.GetNameSpace("MAPI")

iName = "myEmail-Adress"

Debug.Print iName

Set FLD = NSp.Folders.Item(iName).Folders("Posteingang").Folders("Soll_gelesen_werden")

Debug.Print vbCrLf & FLD.Items.Count, FLD.FolderPath

For i = 1 To FLD.Items.Count
    Debug.Print FLD.Items(i).Subject
    if i > 30 then exit for
Next i

Set OL = Nothing
End Sub

mfg

[snb]

Code:

Sub M_snb()
  For each it in CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).items
    it.SaveAs "G:\" & it.subject & ".txt"
  Next
End Sub