Вставка текста в начале сообщения

Question

Я пытаюсь написать applescript, который вставляет некоторый предопределенный текст в начале сообщения. Это то, что я в настоящее время:

set msgClass to (choose from list {"Green", "Blue", "Purple"} with title "Choose:") 
if result is false then 
    stop 
else 
    set msgClasstxt to the result 
    set msgClasstxt to "Classification: " & msgClasstxt 

    tell application "System Events" 
     key code 126 using {command down} 
     keystroke return 
     keystroke return 
     key code 126 using {command down} 
    end tell 
tell application "Microsoft Outlook" to set selection to msgClasstxt 
end if 

Я уверен, что есть лучший способ сделать это, но цель заключается в следующем:

• Go домой ж/CMD + Up
• Создать две пустые строки
• Go домой
• Вставьте текст

Мои проблема заключается в том, что текст вставляется до того, как выполняются нажатия клавиш. Досадно. Может ли кто-нибудь помочь?

Answer 1

Нажатие клавиш и другие задачи gui вводятся во внешнее приложение. Таким образом, вы должны всегда активировать приложение, которое вы хотите использовать, непосредственно перед выполнением этих действий. Таким образом, я советую вам поставить следующее непосредственно перед кодом вашей системы событий. Даже если вы считаете, что приложение находится на самом переднем плане, вы должны сделать это в любом случае, чтобы быть уверенным.

tell application "Microsoft Outlook" to activate 
delay 0.2 

Кроме того, как было предложено в других комментариях вам нужно короткие задержки между каждой линии графического интерфейса кода, чтобы обеспечить компьютер успевает физически выполнить код.

Поэтому используйте задержки и активируйте приложение. Это должно помочь вам.

Answer 2

Итак, это то, что я сделал: -Добавлена ​​положением, чтобы убедиться, что я имею дело с активным окном сообщения -activate этого окном -Done всех действий через системные события

tell application "Microsoft Outlook" to get the id of the first window 
set currentWindow to the result 

set msgClass to (choose from list {"Green", "Blue", "Purple"} with title "Choose:") 

if the result is false then 
    stop 
else 
    set msgClasstxt to "Classification: " & the result 
    tell application "Microsoft Outlook" 
     activate window currentWindow 
     tell application "System Events" 
      key code 126 using {command down} 
      keystroke return 
      keystroke return 
      key code 126 using {command down} 
      keystroke msgClasstxt 
     end tell 
    end tell 
end if 

Эта первая строка работает, потому что Outlook сначала отображает самое первое окно. Это делает то, что я хочу сейчас.