>>We've received a bunch of feedback via email. I've moved all messages of interest into a separate Outlook folder. We would like all of the text in a single document. Is there an easy way to dump all of that text into Word?
>>
>>I tried "obvious" solutions like dragging the messages to Word, but Word did not divine my intention.
>>
>
>You could certainly do this with a little automation code. Open Outlook and Word, create a Word doc, dig down to the right folder in Outlook, and loop through the messages. For each message, grab the text (I think the relevant property is Body) and add it to the document.
>
>Let me know if you need to see some actual code.
Thanks, Tamar. I used roughly the following and it worked fine:
ww = CREATEOBJECT('Word.Application')
doc = ww.Documents.Add()
ol = CREATEOBJECT('Outlook.Application')
ns = ol.GetNamespace([MAPI])
fol = ns.Folders('Client Folders').Folders('Client A').Folders('Meetings').Folders(1)
FOR EACH Msg IN Fol.Items
ww.Selection.InsertAfter(Msg.Body)
ENDFOR
ww.Visible=.t.
-- Randy