Esto es una publicación cruzada, porque no estoy seguro de a dónde pertenece realmente. Es una pregunta de programación, pero también una pregunta específica de Apple.
Aquí está el enlace de stackoverflow: enlace
Prueba:
on run {input, parameters}
set theSource to {}
tell application "Mail"
repeat with aMessage in input
set end of theSource to aMessage's source & return
end repeat
end tell
return theSource as text
end run
Lea otras preguntas en las etiquetas applescript automator