diff --git a/Scripts/Dump messages.applescript b/Scripts/Dump messages.applescript
new file mode 100644
index 0000000..ad80d02
--- /dev/null
+++ b/Scripts/Dump messages.applescript
@@ -0,0 +1,13 @@
+set destPath to "Waiareka HD:Users:nstanger:Documents:Research:Spam filtering:Corpus:"
+
+tell application "Microsoft Entourage" to set theMessages to (get current messages)
+repeat with thisMsg in theMessages
+	tell application "Microsoft Entourage"
+		set theFilename to ID of thisMsg as string
+		set theSource to source of thisMsg as string
+	end tell
+	set outFile to open for access file (destPath & theFilename & ".txt") with write permission
+	write theSource to outFile
+	close access outFile
+end repeat
+beep