Clever-Excel-Forum

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?

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

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

Vortex

Fennek

snb