Pages and Numbers = Mail.app

Question

Hi,
I want to create "customized e-mails" from a Pages template and a table in Numbers.
I succeded in creating the Pages document with the fields, associating them with a column in the right file in Numbers.
But, one of the column is the e-mail address I want to sand the e-mail to.
How can i create an e-mail with the instantiated template to the right recipient ?
I am wondering if there is not a way to do a simple script bades on Numbers only.
thanks

Answer 1

Hi users of the English language, you know that French askers are quite rare here (mainly because English is badly taught in our schools). In such case I make the choice to answer in French.
You may use an automatic translator to try to understand what I wrote. I'm sure that it will make you laugh.
Utiliser Pages pour ce genre de travail est difficile parce qu'il n'est pas facile d'extraire le contenu de pages mais c'était oublier que la fonction Fusion ne crée pas un document découpé en pages mais un document découpé en sections.
De ce fait, le problème peut se traiter comme suit :
--{code}
tell application "Numbers" to tell document 1 to tell sheet 1 to tell table 1
          set les_balises to value of cells of row 1 (* j'ai considéré que la 1ère ligne de la table source contient les balises sans leurs caractères < & >. *)
          set les_valeurs to value of cells of rows 2 thru -1 (* create a list of lists *)
end tell
set texte_brut to read file "chemin:d:accès:a:mon:texte"
set objet_des_mails to "blah blah blah"
repeat with m from 1 to count of les_valeurs
          copy texte_brut to le_message
          repeat with b from 1 to count of les_balises
                    set le_message to my remplace(le_message, "<" & item b of les_balises & ">", item b of item m of les_valeurs)
          end repeat -- b
          my |crée_le_mail|(le_message, item x of item m of les_valeurs, objet) -- x étant l'ndex de l'adrrese mail du destinataire dans une fiche individuelle
  -- certains fournisseurs d'accès n'aimant pas les envois en masse, il peut être utile de prévoir une pause tous les dix ou vingt messages
end repeat -- m
--=====
on |crée_le_mail|(un_message, addresse_destinataire, objet_du_mail)
  -- demande à Mail de créer un message à partir des trois valeurs passées
  -- expédie le mail
end |crée_le_mail|
--=====
-- cette routine provient de ma bibliothèque de codes prêts à l’emploi, je suis sur de son bon fonctionnement.
replaces every occurences of d1 by d2 in the text t
on remplace(t, d1, d2)
          local oTIDs, l
          set oTIDs to AppleScript's text item delimiters
          set AppleScript's text item delimiters to d1
          set l to text items of t
          set AppleScript's text item delimiters to d2
          set t to l as text
          set AppleScript's text item delimiters to oTIDs
          return t
end remplace
--=====
--{code}
Yvan KOENIG (VALLAURIS, France) mercredi 2 novembre 2011 17:39:27
iMac 21”5, i7, 2.8 GHz, 4 Gbytes, 1 Tbytes, mac OS X 10.6.8 and 10.7.2
My iDisk is : <http://public.me.com/koenigyvan>
Please : Search for questions similar to your own before submitting them to the community