filemaker + appleScript + Entourage

[funky_nassau]

Hi Zusammen,

Ich versuche aus Filemaker Daten(Emailadressen) in meinen Outlook zu schauffeln.
Leider bin ich newbie was AppleScript betrifft - vielleicht kann mir ja jemand helfen.
Das Script was ich jetzt habe schaut wie folgt aus:
--------------
tell application "FileMaker Pro"
go to first record
set strBcc to ""
set strAUSWAHL to last cell--Somit bekomme ich die Anzahl der ausgewählten records

set i to 1
repeat until (i = strAUSWAHL)
copy cell "Email" of current record to strBcc--<copy in array oder Liste??
set i to i + 1
if i = strAUSWAHL + 1 then exit repeat
go to record i
end repeat



set strMAILTO to {"dsdsdsd" & "<" & "info@sdsd.de" & ">"}
end tell
tell application "Microsoft Entourage"
activate
set theMSG to make new draft window with properties {to recipients:strMAILTO, BCC recipients:strBcc, subject:strAUSWAHL, content:"kjhjkjkjkjkg"}


end tell
-------------------------
Das Script funktioniert so weit, jedoch schreibt er in der neuen Nachricht bloß die letzte Emailadresse des Eintrages als BCC.
Wie kann ich meine Variablen in einen Art Array oder Liste ablegen
und dann mit einer Variable ansprechen.
Müßte dann so ausschauen
myvar="asa@as.de,asas@sasa.de,sdsd@sdsd.de, ......
Danke im voraus!
Marcus
---------------

[Snow]

Hallo Marcus,

du hast bereits die Stelle, die den Fehler beinhaltet markiert:

[funky_nassau]

Hi Snow,

danke für Deine schnelle Antwort.
Leider fügt das Script bei Entourage bei mir nichts ein - vermutlich weil ich die Liste als Variable falsch anspreche?!
------------
tell application "FileMaker Pro"

go to first record


set strBcc to ""
set strAUSWAHL to last cell

set i to 1
set BccList to {}
repeat until (i = strAUSWAHL)
set the end of BccList to cell "Email" of current record
--set AppleScript's text item delimiters to {","}<-brauch ich das? oder werden Kommas automatisch eingefügt?
set i to i + 1
if i = strAUSWAHL + 1 then exit repeat
go to record i
end repeat


set strMAILTO to {"sdsdsd" & "<" & "info@dsdsd.de" & ">"}
end tell

tell application "Microsoft Entourage"
activate
set theMSG to make new draft window with properties {to recipients:strMAILTO, BCC recipients:BccList, subject:"bla bla", content:"kjhjkjkjkjkg"}

end tell
--------------
Danke im voraus!
Marcus
------------------

[Snow]

Hallo Marcus,

ich habe mir die Sache nochmal angesehen. Das Problem ist anscheinend, dass es sich bei BCC recipients nicht um eine Liste handeln darf, sondern ein Text erwartet wird.

Hier eine Version des Scripts, die zu funktionieren scheint. Genauere Tests überlasse ich dir.

tell application "FileMaker Pro"

go to first record


set strBcc to ""
set strAUSWAHL to count records

set i to 1
set BccList to ""
repeat until (i > strAUSWAHL)
if i is not strAUSWAHL then
set BccList to BccList & cell "Email" of current record & ", "
else
set BccList to BccList & cell "Email" of current record
end if

set i to i + 1
if i > strAUSWAHL then exit repeat
go to record i
end repeat

set strMAILTO to { "sdsdsd" & "<" & "info@dsdsd.de" & ">" }
end tell

tell application "Microsoft Entourage"
activate
set theMSG to make new draft window with properties { to recipients:strMAILTO, subject:"bla bla", content:"kjhjkjkjkjkg" }
set BCC recipients of window 1 to BccList
end tell

Gruß
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[funky_nassau]

Hi Snow,

besten Dank für Deine Hilfe - exzellent gemeistert!!
Für alle die so ein Skript mal benötigen hab ich`s nochmal zusammengefaßt, da es bei mir nicht sofort gefunzt hat:
-----------------
tell application "FileMaker Pro"

go to first record
set strAUSWAHL to last cell--<-Gibt die ausgewählten Records in FM wieder

set i to 1
set Bcc to ""
repeat until (i > strAUSWAHL)--<-stept durch alle ausgewählten RECORDS in FM und schreibt die Zelle "Email" jedes Records in die Variable Bcc und hängt ein Komma an

if i is not strAUSWAHL then
set Bcc to Bcc & cell "Email" of current record & ", "
else
set Bcc to Bcc & cell "Email" of current record
end if

set i to i + 1
if i > strAUSWAHL then exit repeat
go to record i
end repeat

set strMAILTO to {"sdsdsd" & "<" & "info@dsdsd.de" & ">"}
end tell

tell application "Microsoft Entourage"
activate
set theMSG to make new draft window with properties {to recipients:strMAILTO, BCC recipients:Bcc, subject:"bla bla", content:"kjhjkjkjkjkg"}

end tell
--------------------------------------------------------

[Snow]

[funky_nassau]

!!!!!!!!!!!!!!!!!!!!!!!!!!PERFEKT!!!!!!!!!!!!!!!!!!!!!!!!!!