library(reticulate)

# On the command line:
# pip install https://github.com/mattgwwalker/msg-extractor/zipball/master
#
# You may need to use pip3 if using Python 3

xm <- import("ExtractMsg")

msg <- xm$Message(path.expand("~/data/unicode.msg"))

msg$date

## [1] "Mon, 18 Nov 2013 10:26:24 +0200"

msg$sender

## [1] "Brian Zhou <brizhou@gmail.com>"

msg$to

## [1] "brianzhou@me.com"

msg$cc

## [1] "Brian Zhou <brizhou@gmail.com>"

msg$subject

## [1] "Test for TIF files"

msg$body

## [1] "This is a test email to experiment with the MS Outlook MSG Extractor\r\n\r\n\r\n-- \r\n\r\n\r\nKind regards\r\n\r\n\r\n\r\n\r\nBrian Zhou\r\n\r\n"