AppleScript从文件夹中复制两个图像并粘贴到outlook邮件正文中

tell application "Finder"
    set imageFolderPath to choose folder with prompt "请选择包含图像的文件夹"
    set imageFiles to files of folder imageFolderPath
    set image1 to item 1 of imageFiles as alias
    set image2 to item 2 of imageFiles as alias
end tell

tell application "Microsoft Outlook"
    set newMessage to make new outgoing message with properties {subject:"", content:""}
    tell newMessage
        make new attachment with properties {file name:image1} at after the last word of the content
        make new attachment with properties {file name:image2} at after the last word of the content
    end tell
    activate
end tell