數字|電子郵件| Applescript

Question

我想創建一個數字電子表格。在該電子表格中，我想要COL A電子郵件地址欄B城市名稱COL C其他城市名稱等。我將手動輸入該數據。

接下來我要做的是讓applescript在數字電子表格中逐行瀏覽並向列中的每個人發送電子郵件。我想在電子郵件主題或正文中使用其他變量。

任何幫助，將不勝感激！我是最好的程序員新手。我知道一些python，但是對於applescript是新的。

僞代碼（也許？）

tell numbers to open spreadsheet 
repeat for each line of spreadsheet 
tell mail to create email 
for address COL A 
for subject "Hello (COL B) I need the following Information (COL C) 
for email Body "Blah Blah Blah (Col D) blah blah." 
send email 
end repeat 

電子郵件功能

on email(a, b, c, d) 
    set recipientName to a 
    set recipientAddress to b 
    set theSubject to c & " --> " & d & "Shipment" 
    set theContent to a & ", if you would like assistance with your shipment moving from " & c & " to " & d & " , or any other shipment you may have, please let me know. We have drivers available in your Area of Operations ready for pick up." 

    tell application "Mail" 

     ##Create the message 
     set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true} 

     ##Set a recipient 
     tell theMessage 
      make new to recipient with properties {name:recipientName, address:recipientAddress} 

     ##Send the Message 
      send 

     end tell 
    end tell 
    end email 

    my email(COL A, COL B, COL C, COL D) 

Answer 1

這是我砍死在一起！我是一個新手，所以要溫柔。改進和批評非常感謝！

on email(emails, names, origin, destination) 
    set recipientName to names 
    set recipientAddress to emails 
    set theSubject to "c" & " --> " & "d" & "Shipment" 
    set theContent to names & ", if you would like assistance with your shipment moving from " & "c" & " to " & "d" & " , or any other shipment you may have, please let me know. We have drivers available in your Area of Operations ready for pick up." 

    tell application "Mail" 

     ##Create the message 
     set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true} 

     ##Set a recipient 
     tell theMessage 
     make new to recipient with properties {name:recipientName, address:recipientAddress} 

      ##Send the Message 
      send 

     end tell 
    end tell 
end email 

on recipientNames() 
    set y to 1 as string 
    tell application "Numbers" 
     activate 
     open alias "Macintosh HD:Users:TYPKRFT:Desktop:Form.numbers" 
     tell table 1 of sheet 1 of document 1 
      set myNames to {} 
      repeat with i from 1 to the count of rows 
       set x to "B" & y 
       set myNames to myNames & the value of the cell x 
       set y to y as integer 
       set y to y + 1 
       set y to y as string 
      end repeat 
     end tell 
    end tell 

    set itemsToDelete to {"missing value", "Name", missing value, "stop"} 

    set cleanNames to {} 

    repeat with i from 1 to count myNames 
     if {myNames's item i} is not in itemsToDelete then set cleanNames's end to myNames's item i 
    end repeat 
    return cleanNames 
end recipientNames 

on emailAddress() 
    set y to 1 as string 
    tell application "Numbers" 
     activate 
     open alias "Macintosh HD:Users:TYPKRFT:Desktop:Form.numbers" 
     tell table 1 of sheet 1 of document 1 
      set myEmails to {} 
       repeat with i from 1 to the count of rows 
       set x to "C" & y 
       set myEmails to myEmails & the value of the cell x 
       set y to y as integer 
       set y to y + 1 
       set y to y as string 
      end repeat 
     end tell 
    end tell 

    set itemsToDelete to {"missing value", "Email", missing value, "stop"} 

    set cleanEmails to {} 

    repeat with i from 1 to count myEmails 
     if {myEmails's item i} is not in itemsToDelete then set cleanEmails's end to myEmails's item i 
    end repeat 
    return cleanEmails 
end emailAddress 

set a to emailAddress() 
set b to my recipientNames() 


set reps to count of a 
set x to 1 
repeat reps times 
    set emails to item x of a 
    set names to item x of b 
    my email(emails, names) 
    set x to x + 1 
end repeat