编写Apple脚本以发送来自号码的电子邮件

Question

所以我正在尝试编写一个苹果脚本，将电子邮件发送到选定的数字信息块。

Numbers的格式如下：

这是我的苹果脚本：

on run {input, parameters}
if the class of input is not string then set input to input as string

set currentRow to my theSplit(input, "*")

set row to 1

repeat while row <= (count of currentRow)

    set fullInput to {}
    set fullInput to my theSplit(item row of currentRow, "  ")
    set row to row + 1

    set theName to ""
    if item 2 of fullInput is "" then
        set theName to item 1 of fullInput
    else
        set theName to item 2 of fullInput
    end if

    set theContent to "Hello " & theName & ", Email Body"

    tell application "Mail"
        set thisMessage to make new outgoing message with properties {subject:"HTML5 Game Sponsorships", content:theContent}
        tell thisMessage
            make new to recipient with properties {address:(item 3 of fullInput)}
            set visible to true

        end tell
    end tell

end repeat

end run

onSplit（theString，theDelimiter）     将oldDelimiters设置为AppleScript的文本项分隔符     将AppleScript的文本项分隔符设置为“分隔符”     将theArray设置为theString的每个文本项     将AppleScript的文本项分隔符设置为oldDelimiters     归还阿雷 结束分裂

脚本正确创建电子邮件，正确格式化信息。但问题在于数字中的行不包含名称。当名称为空时，该脚本假设为Hello'Company Name'。

这样做，但由于某种原因它写道：

您好 '公司名称'，

它不应该在下一行。我假设这是因为有一些不可见的字符代表我需要以某种方式删除的换行符。奇怪的是，只有在第二次需要使用公司名称时才会这样做，这是第一次正确。

嗯，我希望有意义，非常感谢任何帮助。

Answer 1

您可以尝试使用以下方法修剪公司名称中的回车继承：

set theName to characters 2 thru -1 of (item 1 of fullInput)

这将它设置为第二个直到最后一个字符。 （-1表示最后一个，-2表示最后一个等等。）