Empfängeradressen aus Outlook-Ordner Auslesen
12.10.2018 14:10:28
Matthias
aus diversen Gründen ist es meiner Abteilung zu Teil geworden, die Empfänger der gesendeten Emails eines Postfachs in eine Excel-Tabelle zu übertragen.
Benötigt wird (so fern vorhanden) Anrede, Name und Mail-Adresse.
Das Makro müsste also folgendes können:
Den zu exportierenden Ordner auswählen (in der Regel "Gesendete Objekte") und dort alle Empfänger mit ggf. Namen auslesen und in eine Excel-Tabelle übertragen.
Folgendes Makro habe ich gefunden und etwas umgebastelt (in Outlook):
Sub OutputSelectedMessagesToExcel()
Dim myOlExp As Outlook.Explorer
Dim MyOlsel As Outlook.Selection
Dim objItem As Object
Dim objWkb As Object
Dim objWks As Object
Dim objExcel As Object
Dim i As Integer, j As Integer
Set myOlExp = Application.ActiveExplorer
Set MyOlsel = myOlExp.Selection
Set objExcel = CreateObject("Excel.Application")
Set objWkb = objExcel.Workbooks.Add
Set objWks = objExcel.ActiveSheet
objWks.Cells(1, 3).Value = "Sender Name"
For i = 1 To MyOlsel.Count
Set objItem = MyOlsel.Item(i)
objWks.Cells(i + 1, 3).Value = objItem.To
Set objItem = Nothing
Next
objExcel.Visible = True
Set objWks = Nothing
Set objExcel = Nothing
Set objWkb = Nothing
Set myOlExp = Nothing
Set MyOlsel = Nothing
End Sub
Dieses Makro schreibt aber nur die Empfänger der aktuell ausgewählten E-Mail in eine Excel-Tabelle.
Über Lösungsvorschläge wäre ich sehr dankbar.
Wenn es irgendwo ein funktionierendes Makro/Add-In gibt, sei es kostenpflichtig, nehme ich auch das. Leider etwas dringend.
Vielen Dank und liebe Grüße,
Matthias K.