It took me a while to work out the required format from Shanes suggestions, as I'm new to this ApplescriptObjC.
So, for posterity, 'cause I know how hard it is for beginners, and with thanks to Shane, here's the working result.
on SaveColors()
set ThetempColor1 to theBusinessColorWell's |color|
set ThetempColor to ThetempColor1's colorUsingColorSpaceName_(current application's NSCalibratedRGBColorSpace)
set tempR to ThetempColor's redComponent()
set tempG to ThetempColor's greenComponent()
set tempB to ThetempColor's blueComponent()
set TheBusinessNameColor to {(tempR * 65535), (tempG * 65535), (tempB * 65535)}
set ThetempColor2 to theTextColorWell's |color|
set ThetempColor to ThetempColor2's colorUsingColorSpaceName_(current application's NSCalibratedRGBColorSpace)
set tempRR to ThetempColor's redComponent()
set tempGG to ThetempColor's greenComponent()
set tempBB to ThetempColor's blueComponent()
set theTextColor to {(tempR * 65535), (tempG * 65535), (tempB * 65535)}
set ThetempColor3 to theMainColorWell's |color|
set ThetempColor to ThetempColor3's colorUsingColorSpaceName_(current application's NSCalibratedRGBColorSpace)
set tempRRR to ThetempColor's redComponent()
set tempGGG to ThetempColor's greenComponent()
set tempBBB to ThetempColor's blueComponent()
set TheColor to {(tempR * 65535), (tempG * 65535), (tempB * 65535)}
set ptRF to current application's NSBundle's mainBundle()'s resourcePath() as text
set myDefs to {tempR:tempR, tempG:tempG, tempB:tempB, tempRR:tempRR, tempGG:tempGG, tempBB:tempBB, tempRRR:tempRRR, tempGGG:tempGGG, tempBBB:tempBBB}
set theDict to current application's NSDictionary's dictionaryWithDictionary_(myDefs)
theDict's writeToFile_atomically_((ptRF & "/Mail Manager Reporter.plist"), true)
try
set ThetempColor to NSColor's colorWithCalibratedRed_green_blue_alpha_(tempR, tempG, tempB, 1)
Messages's setTextColor_(ThetempColor)
end try
end SaveColors
on SetColors()
try
set ptRF to current application's NSBundle's mainBundle()'s resourcePath() as text
set theDict to current application's NSDictionary's dictionaryWithContentsOfFile_((ptRF & "/Mail Manager Reporter.plist"), true)
set {tempR:tempR, tempG:tempG, tempB:tempB, tempRR:tempRR, tempGG:tempGG, tempBB:tempBB, tempRRR:tempRRR, tempGGG:tempGGG, tempBBB:tempBBB} to theDict as record
set TheBusinessNameColor to {(tempR * 65535), (tempG * 65535), (tempB * 65535)}
set theTextColor to {(tempRR * 65535), (tempGG * 65535), (tempBB * 65535)}
set TheColor to {(tempRRR * 65535), (tempGGG * 65535), (tempBBB * 65535)}
set theTestColor to {tempRRR, tempGGG, tempBBB}
try
set ThetempColor to NSColor's colorWithCalibratedRed_green_blue_alpha_(tempR, tempG, tempB, 1)
Messages's setTextColor_(ThetempColor)
theBusinessColorWell's setColor_(ThetempColor)
set ThetempColor to NSColor's colorWithCalibratedRed_green_blue_alpha_(tempRR, tempGG, tempBB, 1)
theTextColorWell's setColor_(ThetempColor)
set ThetempColor to NSColor's colorWithCalibratedRed_green_blue_alpha_(tempRRR, tempGGG, tempBBB, 1)
theMainColorWell's setColor_(ThetempColor)
end try
end try
end SetColors