email - 删除文本，Applescript

Question

所以我制作了一个脚本，允许我复制电子邮件的发件人并将其粘贴到 Numbers 文档中，复制的地址列出了两封不同的电子邮件，我需要删除其中的一封。

      tell application "Mail"
	set theSenderList to {}
	set theMessages to the selected messages of message viewer 0
	repeat with aMessage in theMessages
		set end of theSenderList to {address of to recipients of aMessage, " OR"}
	end repeat
	set AppleScript's text item delimiters to " "
	set the clipboard to (theSenderList as string)
	set AppleScript's text item delimiters to ""
    beep
end tell

tell application "Numbers" to tell document 1 to tell sheet 1 to tell table 1
	set value of cell "a1" to (the clipboard as text)
end tell

tell application "Numbers" to tell document 1 to tell sheet 1 to tell table 1
	set value of cell "b1" to current date
end tell

Answer 1

您可以将所有发件人拆分为单独的文本项，并选择仅复制第一个邮件地址，如下所示。text item 1如果要保留第二个地址并删除第一个地址，可以更改为另一个文本项。

tell application "Mail"
    set theSenderList to {}
    set theMessages to the selected messages of message viewer 0

    repeat with aMessage in theMessages
        set end of theSenderList to {address of to recipients of aMessage, " OR"}
    end repeat

    set AppleScript's text item delimiters to " "
    -- Set all the senders to a string
    set allSenders to (theSenderList as string)
    -- Sort these senders by " Or "
    set AppleScript's text item delimiters to " OR "

    -- Get every sender as an individual text item
    set everySender to every text item of allSenders

    -- Set the clipboard to the first sender
    set the clipboard to (item 1 of everySender as string)

    beep
end tell

tell application "Numbers"
    -- Try to add to open document in Numbers
    try
        tell document 1 to tell sheet 1 to tell table 1
            set value of cell "a1" to (the clipboard as text)
            set value of cell "b1" to current date
        end tell
    on error -- Create a new document if there is currently no document open
        set myDocument to make new document
        tell document 1 to tell sheet 1 to tell table 1
            set value of cell "a1" to (the clipboard as text)
            set value of cell "b1" to current date
        end tell
    end try
end tell