-- Ange var prenumerantförteckningen finns, det är en excelfil med två kolumner
-- Den första kolumnen innehåller prenumerantens man, den andra mailadressen
-- Den första raden i filen innehåller kolumnrubriker
-- Den sista raden i förteckningen innehåller värdet "Slut"
set Prenumerantfil to choose file with prompt "Ange prenumerantförteckning:"
tell application "Microsoft Excel"
activate
open Prenumerantfil
-- set Prenumerantfil to active document
end tell
-- Ange var filen med utskicket finns.
set Utskicksfil to choose file with prompt "Ange filen som innehåller utskicket:"
tell application "Pages"
activate
open Utskicksfil
end tell
-- Inledande variabeltilldelning
-- Radnummer i prenumerantförteckningen, rubriktext på rad 1
set radnummer to 1
-- Inledande variebeltilldelning, strängar
set prenumerant to "Dummy"
set prenumerantmail to "dummy"
-- Ange bilagans namn och plats. Ändra filnamnet här
-- set bilaga to "Macintosh HD:Users:magnus:Desktop:bilaga.pdf"
-- Ange mailets rubrik
set mailrubrik to "Utskick april 2011"
-- Sista cellen i kolumnen skall ha värdet Slut
repeat until prenumerant = "Slut"
set radnummer to radnummer + 1
-- Hämta prenumerantens namn och mailadress
tell application "Microsoft Excel"
activate
copy value of (column 1 of row radnummer) to prenumerant
copy value of (column 2 of row radnummer) to prenumerantmail
end tell
-- Skapa text om copyright med prenumerantens namn
set Copyrighttext to "Detta material får endast användas inom " & prenumerant & ". All kopiering utanför " & prenumerant & " är inte tillåten."
-- Infoga copyrighttext
tell application "Pages"
tell every section of front document
set odd footer to Copyrighttext
end tell
end tell
-- Spara det anpassade utskicket som .pdf
tell application "Pages"
set Utskicksfil to front document
save Utskicksfil in "Macintosh HD:Users:magnus:Desktop:bilaga.pdf"
end tell
-- Maila utskicket
tell application "Mail"
set theMessage to make new outgoing message with properties {visible:true, subject:mailrubrik}
tell theMessage
make new to recipient at end of to recipients with properties {name:prenumerant, address:prenumerantmail}
end tell
tell content of theMessage
make new attachment with properties {file name:"bilaga.pdf"} at after last paragraph
end tell
tell application "Mail"
send theMessage
end tell
end tell
-- Ta bort filen
-- delete file "Macintosh HD:Users:magnus:Desktop:bilaga.pdf"
end repeat
