Eudora personality

Can anyone help please? I’m trying to set the personality of a new eudora message from an input from a user - ie type the personality you would like to use - then call this up in a droplet for a new message - I seem to of tried all ways but I’m very new to Apple Script - I get different messages when I try different ways - such as - can’t set personality “whatever you typed” - Could anyone help? Thank You

Would something like this be suitable? It might help to avoid typos in
personality names.

set PersList to {}
tell application "Eudora" 
set x to count personalities 
repeat with thisPers from 1 to x 
copy name of personality thisPers to end of PersList 
end repeat 
end tell
set persChoice to choose from list PersList with prompt ¬ 
"Please choose a personality." without multiple selections allowed and empty selection allowed
tell application "Eudora" 
make new message at end of mailbox "Out" 
set messID to id of message 0 
set personality of message messID to personality (item 1 of persChoice) 
end tell

If you don’t like this, let me know and I’ll come up with a simple dialog as requested.
Rob J