G'day Yvan, and thank you.
I had to make some alterations, and it actually generated the same 'failure to save' error message a few times, but the problem seems intermittant. I pasted the amended script into my 6000+ lines of script, and had to add timing. The 'repeat until exists sheet 1' routine failed on my machine.
Running 10.8.2 as well, on a late 2010 i7 iMac, 16GB ram.
Here's my amended script...
Santa.
property PrintDateTimeName : ""
set PrintDateTimeName to my dateTimeStamp()
tell application "Mail"
name of window 1
end tell
my SubRoutine1(result)
set PrintDateTimeName to ""
on SubRoutine1(tempWindowName)
-- Only way I can find of ensuring active message window opens, which is needed later. PITA.
tell application "Dock"
activate
end tell
tell application "System Events"
tell process "Dock"
set frontmost to true
activate
tell list 1
click UI element "Mail"
end tell
end tell
end tell
tell application "Mail" to activate
tell application "System Events" to tell process "Mail"
try
tell window 1
keystroke "s" using {command down, shift down}
delay 1
try
keystroke "d" using {command down}
end try
delay 1
keystroke PrintDateTimeName
delay 1
try
if value of checkbox 1 of group 1 of sheet 1 = 0 then click checkbox 1 of group 1 of sheet 1
end try
tell group 1 of sheet 1
tell pop up button 1
click
repeat
try
name of menu item 1 of menu 1
exit repeat
on error
delay 0.1
end try
end repeat
click menu item 1 of menu 1
end tell
end tell
end tell
click button 1 of sheet 1 of window 1
keystroke return
end try
end tell --tell system events
tell application "Mail"
try
close window 1 --tempWindowName
end try
end tell
end SubRoutine1
--=====
on dateTimeStamp()
return (do shell script "date -u +%Y-%m-%d" & character id 160 & "%H%M%S")
end dateTimeStamp