tell application "ARENA 2.0 PPC" try set current connection set to connection set "デフォルト" display dialog "サーバーセットを「" & (name of current connection set as string) & "」に変更しました。" buttons {"OK"} default button "OK" on error display dialog "サーバーセットを変更することができませんでした。" buttons {"OK"} default button "OK" end try end tell
tell application "ARENA 2.0 PPC" if auto transfer is true then set auto transfer to false display dialog "着信転送機能を無効にしました。" buttons {"OK"} default button "OK" else set auto transfer to true display dialog "着信転送機能を有効にしました。" buttons {"OK"} default button "OK" end if end tell
tell application "ARENA 2.0 PPC" if online is true then set online to false display dialog "オフライン状態に変更しました。" buttons {"OK"} default button "OK" else set online to true display dialog "オンライン状態に変更しました。" buttons {"OK"} default button "OK" end if end tell
アートセットを切り替える
現在のアートセットを標準アートセットに戻すサンプルスクリプトです。
tell application "ARENA 2.0 PPC" set current art set to default art set display dialog "アートセットを「" & (name of current art set as string) & "」に変更しました。" buttons {"OK"} default button "OK" end tell
新規定型メールを作成する
新規定型メールを作成するサンプルスクリプトです。「new template mail "(テンプレートの内容)"」という書式です。
tell application "ARENA 2.0 PPC" activate new template mail "# #H{To:syukka@yourcompany.co.jp}# #H{Subject:出荷報告#D}# #Dの出荷報告です。
tell application "ARENA 2.0 PPC" with timeout of 600 seconds activate if online is false then set online to true end if if network activity is false then check mail end if end timeout end tell
ヘッダーの太字表示の設定を切り替える
ヘッダーの太字表示の設定を切り替えるサンプルスクリプトです。
tell application "ARENA 2.0 PPC" if header bold is true then set header bold to false display dialog "ヘッダーの太字表示を無効にしました。" buttons {"OK"} default button "OK" else set header bold to true display dialog "ヘッダーの太字表示を有効にしました。" buttons {"OK"} default button "OK" end if end tell