How do I create a new chat to myself in the Messages application, as the following script errs?
tell application "Contacts"
set myName to name of my card
end tell
tell application "Messages"
set thisAcount to 1st account whose service type is iMessage
set thisParticipant to 1st participant whose name contains myName
set ParticipantList to thisParticipant as list
set thisChat to make new chat at thisAcount with properties ¬
{participant:ParticipantList}
--> errs
end tell