Outlook/ öffentl. - bzw. Netzwerkordner auslesen
11.09.2003 17:01:37
Mike E.
mit folgendem Beispiel (aus der Recherche) ist es möglich, E-Mail-Inhalte aus Outlook in Excel zu übertragen.
Dies funktioniert aber lediglich mit meinen persönlichen Ordnern.
Nun gibt es jedoch "öffentliche"-Ordner, auf die außer mir auch andere, am Netzwerk angeschlossene Personen zugreifen können. Hat jemand eine Idee, wie ich den Code zu diesem Zweck abändern kann?
Sub MailNachExcel()
Dim Outl As Outlook.Application
Dim Ns As NameSpace
Dim Ordner As MAPIFolder
Dim Mails As Object ' oder MailItem
Dim i As Integer
Set Outl = CreateObject("Outlook.Application")
Set NS = Outl.GetNamespace("MAPI")
Set Ordner = NS.GetDefaultFolder(olFolderInbox)
i = 2
Cells(1, 1) = "Von"
Cells(1, 2) = "gesendet"
Cells(1, 3) = "empfangen"
Cells(1, 4) = "Inhalt"
'On Error Resume Next
For Each Mails In Ordner.Items
Cells(i, 1) = Mails.SenderName
Cells(i, 2) = Mails.CreationTime
Cells(i, 3) = Mails.ReceivedTime
Cells(i, 4) = Mails.Body
i = i + 1
Next
End Sub
Viele Grüße und besten Dank
Mike