Uma rápida e suja tentativa do AppleScript de conseguir o que você quer, mas certamente pode ser melhorada, isto é, estar vinculado a ações do Automator, com base na seleção de itens selecionados em seu catálogo de endereços.
Para usar isso, abra o "Editor AppleScript" (em / Aplicativos / Utilitários / ou use o Spotlight), cole o seguinte como o corpo do texto e clique em "executar". Se estiver tudo bem, você pode salvar o script e depois executá-lo clicando nele.
set recipientList to display dialog "Enter the email address:" default answer ""
tell application "Mail"
set composeMessage to make new outgoing message at beginning with properties {visible:true}
tell composeMessage
set recipientList to (text returned of recipientList)
make new to recipient at end of to recipients with properties {address:recipientList}
set AppleScript's text item delimiters to "@"
set domain to text item 2 of recipientList
set subject to "[" & domain & "]"
end tell
end tell
Claro, isso pode ser melhorado.
Além disso, você deve saber, como apontado por Daniel Beck, que o destinatário está livre para remover esse campo; é melhor confiar em cabeçalhos de correio ocultos. Mas, como você já tem o domínio, essas informações são armazenadas com segurança no destinatário do email.