Outlook und VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marcus,
anbei ein Muster, das auf der Kombination xls2010,outlook2010,exchangeserver funktioniert.
https://www.herber.de/bbs/user/95453.xlsm
1. Das Makro liest die Namen aller offenen PST-files aus, listet als 1. bis n.te Zeile untereinander.
2. Über die Eingabe der Zeilennummer entscheidest Du von welcher PST die Emails auf dem 1. Level
ausgelesen werden sollen. (Unterordner werden (derzeit) nicht ausgelesen.
3. Alle Emails werden mit den wichtigsten Atrributen tabellarisch in eine XLS-Tabelle kopiert.
4. Spalte A ist eine laufende Nr, die auch gleichzeitig der eindeutige ID jeder Email ist.
5. Sollte Attachments in den Emails enthalten sein, werden diese mit eigenem Namen separat
abgespeichert.
6. Die Email-ID wird beim Namen der separat abgespeicherten Attachments als Prefix angefügt. Damit kann jede separat gespeicherte Datei eindeutig dem richtigen Email zugeordnet werden.
VBA-Code Sauberkeit: Sorry - war eine Spielwiese mit try and error, ABER es funktioniert.
Gruß
Firmus
PS: habe leider keine Zeit weiter darauf einzugehen.

Bedenke dass Du bei langen Emails nicht alles in den Zellen lesen kannst. Die Spaltenbreite ist auf 255 und die Zeilenhöhe auf 409 begrenzt. Code gehört in Outlook, nicht in Excel. Noch den/die Namen der/des Ordner(s) bei "olFolders" und Pfad/Dateiname der Exceldatei anpassen.

Option Explicit

Public Sub ExcelTest()
Dim objXLApp          As Excel.Application
Dim objXLWB           As Excel.Workbook
Dim lngLastRow        As Long
Dim olApp             As Outlook.Application
Dim olName            As Outlook.Namespace
Dim olFolder          As Outlook.MAPIFolder
Dim olItems           As Outlook.MailItem

Set olApp = Application
Set olName = olApp.GetNamespace("MAPI")
Set olFolder = olName.Session.Folders("RMH Software").Folders("Posteingang")

Set objXLApp = New Excel.Application

On Error Resume Next

With objXLApp
    .Visible = True
      Set objXLWB = .Workbooks.Open(Environ("USERPROFILE") & "\Desktop\Test2.xlsb")
          lngLastRow = .Workbooks("Test2.xlsb").Sheets("Tabelle1").Range("A" _
                                                       & Rows.Count).End(xlUp).Row + 1
          For Each olItems In olFolder.Items
             .ActiveWorkbook.Sheets("Tabelle1").Range("A" _
                                    & lngLastRow).Value = olItems.SenderEmailAddress
             .ActiveWorkbook.Sheets("Tabelle1").Range("B" _
                                    & lngLastRow).Value = olItems.Body
             lngLastRow = lngLastRow + 1
          Next olItems
'         .ActiveWorkbook.Save 
'         .ActiveWorkbook.Close 
'         .Quit 
End With


End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Office 2002-2013 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:mumpel
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread