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"