Find & replace in HTML mail message to change color

Question

I have a script someone wrote for me to automatically print my school's attendance list when it comes into my inbox. I have a very limited understanding of AppleScript, but it seems to clean up the message and then send it to print. The one thing I would like to change is the color of the banner at the top of the page which is blue (coded cyan in the html) since it keeps using up all of the blue ink in my printer before the other colors. I am pasting the script below. How can I include some lines that will change cyan to gray or even white?
Anthony
on performmailaction(info)
tell application "Mail"
set selectedMessages to |SelectedMessages| of info
repeat with eachMsg in selectedMessages
set theSource to source of eachMsg as text
set AppleScript's text item delimiters to (ASCII character 10) & (ASCII character 10)
set theSource to text items 2 thru -1 of theSource as text
set AppleScript's text item delimiters to "=" & (ASCII character 10)
set theSourceItems to text items of theSource
set AppleScript's text item delimiters to ""
set theSource to theSourceItems as text
set AppleScript's text item delimiters to "=3D"
set theSourceItems to text items of theSource
set AppleScript's text item delimiters to "="
set theSource to theSourceItems as text
set AppleScript's text item delimiters to "=20"
set theSourceItems to text items of theSource
set AppleScript's text item delimiters to " "
set theSource to theSourceItems as text
set AppleScript's text item delimiters to "</HTML>"
set theSource to text item 1 of theSource as text
set AppleScript's text item delimiters to "<PRE>"
set theSourceItems to text items of theSource
set AppleScript's text item delimiters to ""
set theSource to theSourceItems as text
set AppleScript's text item delimiters to "</PRE>"
set theSourceItems to text items of theSource
set AppleScript's text item delimiters to ""
set theSource to theSourceItems as text
set theFile to open for access (((path to desktop folder) as text) & "Mail_tmp.html") with write permission
set eof of theFile to 0
write theSource & "</HTML>" to theFile starting at eof
close access (((path to desktop folder) as text) & "Mail_tmp.html") as file specification
tell application "Finder"
print alias (((path to desktop folder) as text) & "Mail_tmp.html")
delete alias (((path to desktop folder) as text) & "Mail_tmp.html")
end tell
end repeat
tell application "TextEdit"
quit
end tell
end tell
end performmailaction

Answer 1

Hello
As my goal is only to check that what I wrote runs correctly, I commented all your code which is not of "my responsability".
I ran the "stripped code" and got exactly what was wished: the words "Date:" and "Subject:" are in bold while all the remaining text is in plain .
At this time I am unable to apply Times to the plain text.
You may check the "stripped script" and when you will be convinced that this piece of code does its duty, you will have to search what is the wrongdoer in your own code.
-- [SCRIPT]
tell application "Mail"
activate
set selectedMessages to the selected messages of front message viewer
set saveFolder to choose folder with prompt "Please pick an empty folder for me to store the manuscript information:"
tell application "Finder"
set parentFolder to folder saveFolder
set parentFolderPath to parentFolder as Unicode text
end tell -- to Finder
repeat with aMessage in selectedMessages
properties of aMessage
set messageSender to sender of aMessage
set messageSubject to subject of aMessage
set messageSent to date sent of aMessage as string
set messageContent to content of aMessage
if (messageSender is "[email protected]") and (messageSubject begins with "manuscript #") then
-- Get manuscript number from message subject after '#'
set oldDelimiter to my SwitchDelimiterTo({"#"})
set manuscriptNumber to last text item of messageSubject
my SwitchDelimiterTo(oldDelimiter)
log "NOTE: Email for manuscript #" & manuscriptNumber
-- Make the folder in which to store the stuff for this manuscript;
-- variable "manuscriptFolder" will point to place to store files
tell application "Finder"
try --ignore problems with folder creation, like existing folders/files
set manuscriptFolder to make new folder in parentFolder with properties {name:manuscriptNumber}
on error errorName number errorNumber
if errorNumber is -48 then -- Folder already exists
log "NOTE: folder " & parentFolderPath & manuscriptNumber & " already exists."
set manuscriptFolder to folder manuscriptNumber in parentFolder
end if
end try
end tell -- to Finder
set manuscriptFolderPath to manuscriptFolder as Unicode text
set messageFileName to manuscriptFolderPath & "email.rtf"
log "NOTE: Saving manuscript to file: " & messageFileName
-- Use TextEdit to construct an RTF file of the message to print out later
set messageSent to "mardi 13 mars 2007"
set messageSubject to "sujet du message"
set messageContent to "blablabla…"
tell application "TextEdit"
activate
close every document saving no
set aDocument to make new document at beginning of documents
set fontReg to "Courier New"
set fontBold to "Courier New Bold"
set font of aDocument to fontReg
-- Assemble the document using the clipboard and pasting
-- Stick in "Date:"
set the clipboard to "Date:"
my triggerCmdKey("v", "TextEdit") -- Cmd-v, paste
set font of last word of document 1 to fontBold
-- Stick in date string
set the clipboard to tab & tab & messageSent & return
my triggerCmdKey("v", "TextEdit") -- Cmd-v, paste
-- Stick in "Subject:" and boldify it
set the clipboard to "Subject:"
my triggerCmdKey("v", "TextEdit") -- Cmd-v, paste
delay 1
set font of last word of document 1 to fontBold
-- Stick in the subject
set the clipboard to tab & messageSubject & return & return
my triggerCmdKey("v", "TextEdit") -- Cmd-v, paste
-- Stick in the message content
set the clipboard to messageContent & return
my triggerCmdKey("v", "TextEdit") -- Cmd-v, paste
-- Save the document as an RTF in the messageFileName
tell front document
save in messageFileName
end tell -- to front document
end tell -- to TextEdit
else
log "Message from \"" & messageSender & "\" with subject \"" & messageSubject & "\" will not be processed."
end if
end repeat
end tell -- to Mail
-- Change the text item delimiter and return the existing ones
on SwitchDelimiterTo(delimiterList)
local x
set x to (get AppleScript's text item delimiters)
set AppleScript's text item delimiters to delimiterList
return x
end SwitchDelimiterTo
-- Trigger a System Event for a Command-<key> in the named application
on triggerCmdKey(k, appName)
tell application appName to activate
tell application "System Events" to tell application process appName to keystroke k using {command down}
end triggerCmdKey
--[/SCRIPT]
Yvan KOENIG (from FRANCE jeudi 15 mars 2007 21:09:53)