stevenrick

using terms from application "Mail"
	--save selected messages to text files
	on perform mail action with messages messageList
		set theFolder to choose folder with prompt "Save Exported Messages to..." without invisibles
		set the message_count to the count of messageList
		display dialog "Found " & (message_count) & " messages."
		repeat with i from 1 to the message_count
			set this_message to item i of messageList
			set theFile to (((theFolder) as Unicode text) & (i) as Unicode text) & ".txt"
			set theContent to (content of this_message) as Unicode text

stevenrick

Keybase proof

I hereby claim:

• I am stevenrick on github.
• I am stevenrick (https://keybase.io/stevenrick) on keybase.
• I have a public key whose fingerprint is 6AFA A6EE 60C4 1134 213F 9517 0E1E BECA 4825 2359

To claim this, I am signing this object: