on send_email_message(targetAddress, targetName, ¬
        subjectLine, messageText, fileAttachment)

    tell application "Mail"
        (* 電子メールアプリケーションのバージョン *)
        set mailversion to version as string

        (* 表示または送信の処理を指定 - displayForManualSend
        が true ならば、ユーザが送信できるように、メッセージが
        生成され、ウィンドウに表示されます。false の場合、
        メッセージはすぐに送られます *)
        set displayForManualSend to true

        (* メッセージの一般的な要素を指定 *)
        set bodyvar to messageText
        set addrVar to targetAddress
        set addrNameVar to targetName

        (* 件名を定義 *)
        set subjectvar to subjectLine

        (* メッセージを作成 *)
        set composeMessage to (a reference to (make new compose message ¬
            at beginning of compose messages))
        tell composeMessage
            make new to recipient at beginning of to recipients ¬
                with properties {address:addrVar, display name:addrNameVar}
            set the subject to subjectvar
            set the content to bodyvar

           (* 添付書類を指定 *)
           tell content
                make new text attachment ¬
                    with properties {file name:fileAttachment} ¬
                    at before the first word of the ¬
                    first paragraph
            end tell
        end tell

        (* メッセージを送信または表示 *)
        if displayForManualSend then
            set messageEditor to make new message editor ¬
                at beginning of message editors

            (* 次に、電子メールアプリケーションのバージョン 
            1.0 と 1.1 にはあるが以降のバージョンで修正されたバグの
            回避方法を示す *)
            if mailversion is "1.0" or mailversion is "1.1" then
                set compose message of last message editor to composeMessage
            else
                set compose message of first message editor to composeMessage
            end if
        else
            send composeMessage
        end if
    end tell
end send_email_message

リスト 1　位置引数を持つ AppleScript サブルーチンを含むスクリプト

注意：
リスト 1 のスクリプトは、電子メッセージに 1 個のファイルを添付する方法を示します。AppleScript のスクリプトを使って、複数のファイルをメッセージに添付することも可能です。この方法を示す例については、 QA1018, "Using AppleScript to send an email with an attachment" のスクリプト例を参照してください。

static OSStatus ExecuteCompiledAppleScriptEvent(AEDesc *scriptData,
                          AppleEvent *theEvent, AEDesc *resultData) {
    ComponentInstance theComponent;
    AEDesc scriptTextDesc;
    OSStatus err;
    OSAID contextID, resultID;

        /* ローカル変数を既知の状態に設定 */
    theComponent = NULL;
    AECreateDesc(typeNull, NULL, 0, &scriptTextDesc);
    contextID = kOSANullScript;
    resultID = kOSANullScript;

        /* スクリプティングコンポーネントを開く */
    theComponent = OpenDefaultComponent(kOSAComponentType, typeAppleScript);
    if (theComponent == NULL) { err = paramErr; goto bail; }

        /* スクリプトを新しいコンテキストにコンパイルする */
    err = OSALoad(theComponent, scriptData,
                    kOSAModeNull, &contextID);
    if (err != noErr) goto bail;

        /* スクリプトを実行する */
    err = OSAExecuteEvent( theComponent, theEvent,
                    contextID, kOSAModeNull, &resultID);

        /* 結果があれば集める */
    if (resultData != NULL) {
        AECreateDesc(typeNull, NULL, 0, resultData);
        if (err == errOSAScriptError) {
            OSAScriptError(theComponent, kOSAErrorMessage,
                        typeChar, resultData);
        } else if (err == noErr && resultID != kOSANullScript) {
            OSADisplay(theComponent, resultID, typeChar,
                        kOSAModeNull, resultData);
        }
    }
bail:
    AEDisposeDesc(&scriptTextDesc);
    if (contextID != kOSANullScript) OSADispose(theComponent, contextID);
    if (resultID != kOSANullScript) OSADispose(theComponent, resultID);
    if (theComponent != NULL) CloseComponent(theComponent);
    return err;
}

リスト 2　イベントハンドラを含むスクリプトの実行

static OSStatus ExecuteAppleScriptEvent(const void* text,
          long textLength, AppleEvent *theEvent, AEDesc *resultData) {
    ComponentInstance theComponent;
    AEDesc scriptTextDesc;
    OSStatus err;
    OSAID contextID, resultID;

        /* ローカル変数を既知の状態に設定 */
    theComponent = NULL;
    AECreateDesc(typeNull, NULL, 0, &scriptTextDesc);
    contextID = kOSANullScript;
    resultID = kOSANullScript;

        /* スクリプティングコンポーネントを開く */
    theComponent = OpenDefaultComponent(kOSAComponentType,
                    typeAppleScript);
    if (theComponent == NULL) { err = paramErr; goto bail; }

        /* スクリプトのテキストをアップルイベントディスクリプタレコードに挿入する */
    err = AECreateDesc(typeChar, text, textLength, &scriptTextDesc);
    if (err != noErr) goto bail;

        /* スクリプトを新しいコンテキストにコンパイルする。
           ハンドラを含むスクリプトをコンテキストにコンパイルするには、
           kOSAModeCompileIntoContext フラグを使用する  */
    err = OSACompile(theComponent, &scriptTextDesc,
                    kOSAModeCompileIntoContext, &contextID);
    if (err != noErr) goto bail;

        /* スクリプトを実行する */
    err = OSAExecuteEvent( theComponent, theEvent,
                    contextID, kOSAModeNull, &resultID);

        /* 結果があれば集める */
    if (resultData != NULL) {
        AECreateDesc(typeNull, NULL, 0, resultData);
        if (err == errOSAScriptError) {
            OSAScriptError(theComponent, kOSAErrorMessage,
                        typeChar, resultData);
        } else if (err == noErr && resultID != kOSANullScript) {
            OSADisplay(theComponent, resultID, typeChar,
                        kOSAModeDisplayForHumans, resultData);
        }
    }
bail:
    AEDisposeDesc(&scriptTextDesc);
    if (contextID != kOSANullScript) OSADispose(theComponent, contextID);
    if (resultID != kOSANullScript) OSADispose(theComponent, resultID);
    if (theComponent != NULL) CloseComponent(theComponent);
    return err;
}

リスト 3 イベントハンドラを含むスクリプトのコンパイルと実行

重要：
keyASSubroutineName（snam）パラメータには、呼び出されるサブルーチンの名前の全文字が小文字に変換されて含まれている必要があります。たとえば、スクリプトのサブルーチンの名前が GetDocumentSize ならば、keyASSubroutineName パラメータに渡される文字列は、getdocumentsize でなければなりません。

注意：
この節で示した形式のイベントは、AESend を使って、コンパイルされた実行中の AppleScript のアプレットアプリケーションに送って、それらのサブルーチンハンドラを呼び出すこともできます。

OSStatus CreateEmailMessageEvent(AppleEvent *theEvent,
        char* targetAddress, char* targetName, char* subjectLine,
        char* messageText, AliasHandle fileAttachment) {
    AEAddressDesc targetAddr;
    AEDescList theParameters;
    OSStatus err;
    ProcessSerialNumber PSN = {0, kCurrentProcess};
    char* handlerName = "send_email_message";
    char theState;

        /* 復元可能な状態を用意 */
    AECreateDesc(typeNull, NULL, 0, theEvent);
    AECreateDesc(typeNull, NULL, 0, &theParameters);
    AECreateDesc(typeNull, NULL, 0, &targetAddr);


        /* 自身を対象にしたアドレスを作成 */
    err = AECreateDesc(typeProcessSerialNumber, (Ptr) &PSN,
            sizeof(PSN), &targetAddr);
    if (err != noErr) goto bail;

        /* アップルイベントを作成 */
    err = AECreateAppleEvent('ascr', kASSubroutineEvent,
        &targetAddr, kAutoGenerateReturnID,
        kAnyTransactionID, theEvent);
    if (err != noErr) goto bail;

        /* 引数のリストを作成、追加 */

            /* コンテナのリストを作成 */
        err = AECreateList(NULL, 0, false, &theParameters);
        if (err != noErr) goto bail;

            /* 文字列を追加 */
        err = AEPutPtr(&theParameters, 0, typeText, targetAddress,
            strlen(targetAddress));
        if (err != noErr) goto bail;
        err = AEPutPtr(&theParameters, 0, typeText, targetName,
            strlen(targetName));
        if (err != noErr) goto bail;
        err = AEPutPtr(&theParameters, 0, typeText, subjectLine,
            strlen(subjectLine));
        if (err != noErr) goto bail;
        err = AEPutPtr(&theParameters, 0, typeText, messageText,
            strlen(messageText));
        if (err != noErr) goto bail;

            /* エイリアスハンドルを追加 */
        theState = HGetState((Handle) fileAttachment);
        HLock((Handle) fileAttachment);
        err = AEPutPtr(&theParameters, 0, typeAlias, *fileAttachment,
                GetHandleSize((Handle) fileAttachment));
        HSetState((Handle) fileAttachment, theState);
        if (err != noErr) goto bail;


        /* 上記で作成したパラメータリストを追加 */
    err = AEPutParamDesc(theEvent, keyDirectObject,
        &theParameters);


        /* ハンドラ名を追加 */
    err = AEPutParamPtr(theEvent, keyASSubroutineName,
        typeText, handlerName, strlen(handlerName));
    if (err != noErr) goto bail;


        /* クリーンアップ処理と終了 */
bail:
    AEDisposeDesc(&targetAddr);
    AEDisposeDesc(&theParameters);
    if (err != noErr) {
        AEDisposeDesc(theEvent);
    }
    return err;
}

リスト 4 リスト 1 で定義されている AppleScript サブルーチンを呼び出すのに適したアップルイベントの作成

OSStatus CreateEmailMessageEvent(AppleEvent *theEvent,
        char* targetAddress, char* targetName, char* subjectLine,
        char* messageText, AliasHandle fileAttachment) {

    OSStatus err;
    ProcessSerialNumber PSN = {0, kCurrentProcess};

        /* コンテナのリストを作成 */
    err = AEBuildAppleEvent(
        'ascr', kASSubroutineEvent,
        typeProcessSerialNumber, (Ptr) &PSN, sizeof(PSN),
        kAutoGenerateReturnID, kAnyTransactionID,
        theEvent,
        NULL,
        "'----':[TEXT(@),TEXT(@),TEXT(@),TEXT(@),alis(@@)],"
        "'snam':TEXT(@)",
        targetAddress, targetName, subjectLine, messageText,
        fileAttachment, "send_email_message");

    return err;
}

リスト 5 AEBuildAppleEvent ルーチンを使った、スクリプトのイベントハンドラを実行するのに適したアップルイベントの作成

AppleEvent theAEvent
AEDesc scriptData;
OSStatus err;
AliasHandle theAlias;
Ptr data;
Size count;

theAlias = GetAnAliasToSomeFile();

err = LoadMyScriptData(&data, &count);
if (err == noErr) {
    err = AECreateDesc(typeOSAGenericStorage,
                        data, count, &compiledScript);
    if (err == noErr) {
        err = CreateEmailMessageEvent(&theAEvent,
            "bogus@apple.com",
            "bogus address",
            "hello world subject",
            "This is a test message\n\n",
            theAlias);
        if (err == noErr) {
                err = ExecuteCompiledAppleScriptEvent(&scriptData,
                    &theAEvent, NULL);
                ...

リスト 6　上記のリストで提供されている呼び出しの順序

注意事項
スクリプトエディタは通常、コンパイル済みスクリプトデータを、生成するファイルの中の 'scpt' タイプのリソースに格納します。このデータは、Get1IndResource を呼び出して、これらのファイルの 1 つにある最初の scpt リソースを取得することによってロードできます。Mac OS X の場合、コンパイル済みスクリプトデータを、ファイル拡張子、.scpt を持つファイルのデータフォークに保存することを推奨します。このデータを取得するには、データフォーク全体を読み込みます。スクリプトをコンパイルするときに、コマンドラインツール、osacompile に -d オプションを指定して実行すれば、コンパイル済みスクリプトをファイルのデータフォークに保存できます（詳細については、osacompile の man ページを参照してください）。