Extract outlook message body text with VBA from Excel -


i have huge number of outlook .msg , outlook .eml files saved shared network folder (ie outside of outlook). trying write vba in excel extracts subjects，sender, cc, receiver, senttime, sentdate, message body text each file , import these info excel cells orderly

subject sender cc receiver senttime sentdate

re:.. mike jane tom 12:00:00 23 jan 2013

i've done similar thing word documents i'm struggling 'get at' text in .msg files.

so far have code below. think i'm on right track @ least, i'm stuck @ line i'm trying set reference msg file. advice appreciated...

dim myoutlook outlook.application dim mymail outlook.mailitem  set myoutlook = new outlook.application   set mymail =   dim filecontents string  filecontents = mymail.body

regards

so i've been able working .msg files saved outside of outlook. however, don't have access outlook express have no way of saving .eml files @ moment. here's sub i've come insert subject,sender,cc,to, , sendon excel worksheet starting @ row 2 column 1 (assuming header row @ row 1):

sub getmailinfo(path string)      dim myoutlook outlook.application     dim msg outlook.mailitem     dim x namespace      set myoutlook = new outlook.application     set x = myoutlook.getnamespace("mapi")      filelist = getfilelist(path + "*.msg")       row = 1      while row <= ubound(filelist)          set msg = x.openshareditem(path + filelist(row))          cells(row + 1, 1) = msg.subject         cells(row + 1, 2) = msg.sender         cells(row + 1, 3) = msg.cc         cells(row + 1, 4) = msg.to         cells(row + 1, 5) = msg.senton           row = row + 1     wend  end sub

which uses getfilelist function defined below (thanks spreadsheetpage.com)

function getfilelist(filespec string) variant '   taken http://spreadsheetpage.com/index.php/tip/getting_a_list_of_file_names_using_vba/ '   returns array of filenames match filespec '   if no matching files found, returns false      dim filearray() variant     dim filecount integer     dim filename string      on error goto nofilesfound      filecount = 0     filename = dir(filespec)     if filename = "" goto nofilesfound  '   loop until no more matching files found     while filename <> ""         filecount = filecount + 1         redim preserve filearray(1 filecount)         filearray(filecount) = filename         filename = dir()     loop     getfilelist = filearray     exit function  '   error handler     nofilesfound:         getfilelist = false end function

should straightforward, let me know if need more explanation.

edit: you'll have add reference outlook library

hth!

z


Comments

Post a Comment

Popular posts from this blog

Why does Ruby on Rails generate add a blank line to the end of a file? -

running rails generate controller foo home results in: class foocontroller < application controller def home end end (there's nothing on line in actual file, blank line) is there purpose blank line? it's common use newline indicate end of line, last line. many editors (like vi, use) add in newline silently. consensus text files (especially in unix world) should end in newline, , there have been problems historically if wasn't present. why should text files end newline? the tool used count lines in file "wc" counts newlines in file, without trailing newline show 3 instead of 4. it improves readability of templates used in generator. consider: https://github.com/rails/rails/blob/master/railties/lib/rails/generators/rails/controller/templates/controller.rb to remove trailing newline, template have last line of: end<% end -%> instead of: end <% end -%> that seems less readable me. the discussion below refers ...
Read more

keyboard - Smiles and long press feature in Android -

i've created android keyboard. how add features inserting smilies, , using long keypresses display symbols? to create long-press behavior allows select several options pop-up menu, follow guide (specifically pop-up menu section): http://developer.android.com/guide/topics/ui/menus.html smileys (also known emoticons) combination of keys, understood programs , parsed same way. have do, when clicks smiley face on keyboard, simulate pressing of key combination matching emoticon. example, when clicks smiley, should simulate key presses ':' , ')' :). here's list of emoticons: http://en.wikipedia.org/wiki/list_of_emoticons
Read more

node.js - Bad Request - node js ajax post -

i'm using express 3.0 , node v0.11.0. have button submits form , i'm using ajax post data json object node server. client code is: $('#contact').submit(function(e) { console.log('submit called'); var formdata = json.stringify($('form').serializeobject()); console.log(formdata); $.ajax({ url: "http://localhost:3000/savedata/", type: "post", datatype: 'json', data: {objectdata: formdata}, contenttype: "application/json", complete: function() { console.log('process complete'); }, success: function(data) { console.log('process sucess'); }, error: function() { console.log('process error'); }, }); return false; }); then on server: var express = require('express'); var app = express(); app.set('views', __dirname + '/views'); app.set('view engine', 'jade'); app.use(express.bodyparser());...
Read more