Scan PST

Das folgende Script liest den Outlook-Posteingang nach Absender-EMail-Adressen aus und schreibt sie in eine Textdatei.
Bedingt durch einen Outlook-Versionswechsel sollte eine PST-Datei, deren Posteingangsordner sehr viele Unterordner enthielt,
nachdiesen Daten durchsucht werden. 

option explicit
on error resume next


Dim OLA, Folder, objmail, FSO, mailfile, ordner

Set OLA = CreateObject("Outlook.Application")
Set Folder = OLA.getNameSpace("MAPI").GetDefaultFolder(6)
Set fso = CreateObject("Scripting.FileSystemObject")
Set Mailfile= fso.CreateTextFile("c:\absender.txt", True)

'Posteingang
mailfile.writeline ("Root - Posteingang :")
mailfile.writeline (" ")
For Each objmail In folder.items
mailfile.writeline (objmail.SenderName & " : " & objmail.SenderEmailAddress)
next

mailfile.writeline (" ")
mailfile.writeline (" ")
mailfile.writeline (" ")

for each ordner in folder.folders
mailfile.writeline (Ordner & ":")
For Each objmail In ordner.items
mailfile.writeline (objmail.SenderName & " : " & objmail.SenderEmailAddress)
next
mailfile.writeline (" ")
mailfile.writeline (" ")
mailfile.writeline (" ")

next

  • Donnerstag, 22 März 2018

Leave a comment

You are commenting as guest.