值列表

Question

我的AppleScript有两个问题。该脚本应该通过电子邮件将删除的文件作为附件发送，并从列表中询问邮件的对象。 消息的内容必须为空。

1）如何设置＆＃34;空＆＃34;电子邮件签名，因为我的邮件内容应为空。我收到错误代码＆＃34;邮件错误无法解决签名......＆＃34;

2）我希望用户可以修改值列表{＆＃34; 00111111111111-number1，＆＃34; 0011111111111-number2＆＃34; ...}并添加更多数字。这样做的最佳方法是什么？

非常感谢您的建议。

property theSubject : "subject"
property theNumber : ""
property theContent : ""
property theSignature : "none"
property onRun : ""

on run
    tell application "Finder"
        set sel to (get selection)
    end tell
    set onRun to 1
    new_mail(sel)
end run

on open droppedFiles
    new_mail(droppedFiles)
end open

on new_mail(theFiles)
set chosen to choose from list {"0011111111111-number1", "0011111111111-number2"} with prompt "Thanks to select"
if chosen is false then return "" -- in case of 'Cancel' return empty string
set theNumber to text 1 thru 13 of (item 1 of chosen) -- as chosen returns a list by default it must be flattened

tell application "Mail"
    set newMessage to make new outgoing message with properties {visible:true, subject:theNumber}
    tell newMessage
        make new to recipient with properties {address:faxboxEmail}
        if onRun < 1 then
            make new attachment with properties {file name:theFiles as alias} at after last paragraph
        end if
        set the content to theContent
        set message signature of newMessage to signature theSignature
    end tell
    activate
    if onRun < 1 then
        send
    end if
end tell
end new_mail

Answer 1

在列表中添加新项目，这可能对您有帮助吗？

set BaseList to {"0011111111111-number1", "0011111111111-number2"}

set CList to BaseList & {"Add new item"}
set chosen to choose from list CList with prompt "Thanks to select"
if chosen is false then return "" -- in case of 'Cancel' return empty string
if "Add new item" is in chosen then
set OKNew to false
repeat until OKNew
    set NewItem to display dialog "Enter new value :" default answer ""
    set OKNew to (button returned of NewItem is "OK") and (text returned of NewItem is not "")
    set theNumber to text returned of NewItem
set BaseList to baseList & {theNumber}  -- to add the new item in the BaseList
end repeat
else
set theNumber to text 1 thru 13 of (item 1 of chosen) -- as chosen returns a list by default it must be flattened
end if