"Create Notes From Message" Script - Where can I find it?

T

The Terminator

Was this script supposed to be included with the Office 2004 CD? I have
³Create Task From Message² and ³Create Event From Script², but not ³Create
Note². Can someone tell me where I could download it?

Much thanks.
 
M

Mickey Stevens

This is the one on my machine (hasn't been changed to my knowledge).

(*
Create Note from Message

Copyright (c) Microsoft Corporation. All rights reserved.
*)

tell application "Microsoft Entourage"

-- get the currently selected message or messages
set selectedMessages to current messages

-- if there are no messages selected, warn the user and then quit
if selectedMessages is {} then
display dialog "Please select a message first and then run this
script." with icon 1
return
end if

repeat with theMessage in selectedMessages

-- get the information from the message, and store it in variables
set theName to subject of theMessage
set theCategory to category of theMessage
set theContent to content of theMessage

-- create a new note with the information from the message
set newNote to make new note with properties {name:theName,
category:theCategory, content:theContent}

-- create a link between the message and the new note
link theMessage to newNote

-- if there was only one message selected, then open that new note
if (count of selectedMessages) = 1 then open newNote
end repeat
end tell
 
Top