Hallo zusammen,
ich hab eine Ordneraktion (hier im Forum gefunden), die Dateien automatisch per Mail versendet. Diese läuft unter OS 10.3.6 super. Ist es grundsätzlich möglich diese Aktion auch unter OS 9.2.2 zu laufen zu bekommen?
Das Mailprogramm kann ich umscripten (von Apple Mail auf Microsoft Outlook Express).
Hier noch das Script:
(*
Send certain new files in actionfolder via mail.
12.03.2004 / starbuxx
very alpha so far
*)
-- hier die dateitypen eintragen, auf die geachtet werden soll
property extension_List : {"pdf"}
property theBodyText : "Diese E-Mail wurde automatisch generiert und dient zum automatischen PDF-Versand.
Bitte senden sie ihre Antwort an den zuständigen Sachbearbeiter."
on adding folder items to this_folder after receiving added_items
-- Adresse des Mailempfängers
set theRecipientEmailAddress to "test@web.de" as string
-- Der Account, über den verschickt werden soll.
-- Normalerweise reicht die Email Adresse
set theSenderAccount to "test@test.de" as string
-- Die Betreffzeile
set theSubject to "Automatische Nachricht: " as string
-- Datei mitschicken oder nur über die Ankunft informieren?
-- true = Datei mitschicken, false = nur informieren
set attachFile to true
-- Wenn false, poppt das E-Mail Fenster auf.
set quiet_Mode to false
tell application "Finder"
-- checking vor valid file extension
if «class nmxt» of first item of added_items is in the extension_List then
-- setting which file to attach and generating body text from its name
try
set theAttachment to first item of added_items
end try
-- starting mail if not running and generating message header and body
try
tell application "Outlook Express"
set newMessage to make new outgoing message with properties {subject:theSubject, content:theBodyText, sender:theSenderAccount}
tell newMessage
if quiet_Mode is equal to false then
set visible to true
end if
make new to recipient at beginning of to recipients with properties {address:theRecipientEmailAddress}
if attachFile is equal to true then
tell content
make new attachment with properties {file:theAttachment} at after the last paragraph
end tell
end if
end tell
send newMessage
end tell
end try
try
delete theAttachment
end try
end if
end tell
end adding folder items to
ich hab eine Ordneraktion (hier im Forum gefunden), die Dateien automatisch per Mail versendet. Diese läuft unter OS 10.3.6 super. Ist es grundsätzlich möglich diese Aktion auch unter OS 9.2.2 zu laufen zu bekommen?
Das Mailprogramm kann ich umscripten (von Apple Mail auf Microsoft Outlook Express).
Hier noch das Script:
(*
Send certain new files in actionfolder via mail.
12.03.2004 / starbuxx
very alpha so far
*)
-- hier die dateitypen eintragen, auf die geachtet werden soll
property extension_List : {"pdf"}
property theBodyText : "Diese E-Mail wurde automatisch generiert und dient zum automatischen PDF-Versand.
Bitte senden sie ihre Antwort an den zuständigen Sachbearbeiter."
on adding folder items to this_folder after receiving added_items
-- Adresse des Mailempfängers
set theRecipientEmailAddress to "test@web.de" as string
-- Der Account, über den verschickt werden soll.
-- Normalerweise reicht die Email Adresse
set theSenderAccount to "test@test.de" as string
-- Die Betreffzeile
set theSubject to "Automatische Nachricht: " as string
-- Datei mitschicken oder nur über die Ankunft informieren?
-- true = Datei mitschicken, false = nur informieren
set attachFile to true
-- Wenn false, poppt das E-Mail Fenster auf.
set quiet_Mode to false
tell application "Finder"
-- checking vor valid file extension
if «class nmxt» of first item of added_items is in the extension_List then
-- setting which file to attach and generating body text from its name
try
set theAttachment to first item of added_items
end try
-- starting mail if not running and generating message header and body
try
tell application "Outlook Express"
set newMessage to make new outgoing message with properties {subject:theSubject, content:theBodyText, sender:theSenderAccount}
tell newMessage
if quiet_Mode is equal to false then
set visible to true
end if
make new to recipient at beginning of to recipients with properties {address:theRecipientEmailAddress}
if attachFile is equal to true then
tell content
make new attachment with properties {file:theAttachment} at after the last paragraph
end tell
end if
end tell
send newMessage
end tell
end try
try
delete theAttachment
end try
end if
end tell
end adding folder items to
Zuletzt bearbeitet: