to CreateFixFile(versionStr, mailBody)
set myFileName to ("Fix List for " & versionStr & ".htm")
set p2d to (path to desktop as string)
set myFile to p2d & myFileName
if exists file myFile then
set eof of file myFile to 0
else
tell application "System Events" to make new file at end of folder p2d with properties {name:myfilename}
end if
write mailBody as string to file myFile
end CreateFixFile
Yvan KOENIG (VALLAURIS, France) mardi 6 avril 2010 22:00:04