VBA code to extract metadata from .msg files