Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Ronny •-->

Anmeldedatum: 06.06.2002 Beiträge: 108 Wohnort: Plötz
|
Verfasst am: 07.06.2002 - 10:11 Titel: eMail - Mails dynamisch aus Outlook lesen |
|
|
Ich möchte aus FMPro heraus ein AppleScript starten, welches alle Mails aus Outlook herauslesen soll und diese in FMPro einträgt. Das Proplem ist jetzt, das ganze soll dynamisch sein, also Anzahl der Unterordner in Outlook soll nicht begrenzt sein.
Wie kann man das umsetzen?
Kann man die Ordner in Outlook noch anders ansprechen, oder muss man immer mit deiser Struktur arbeiten:
... folder "Ordner1.1.1" of folder "Ordner1.1" of folder "Ordner1" ?
Wie bekomm ich das dann dynamisch?
MfG
Ronny |
|
Nach oben |
|
 |
Snow Administrator


Anmeldedatum: 21.11.2000 Beiträge: 1946 Wohnort: Deiningen
|
Verfasst am: 08.06.2002 - 10:10 Titel: eMail |
|
|
Hallo Ronny,
hilft es dir weiter, wenn du zuerst mall alle Mails in einer Liste unterbringst?
tell application "Outlook Express"
set MsgList to every message of every folder
end tell _________________ Peter
-
Fischer-Bayern.de|Shadetreemicro.com
Zuletzt bearbeitet von Snow am 22.02.2003 - 17:11, insgesamt einmal bearbeitet |
|
Nach oben |
|
 |
Snow Administrator


Anmeldedatum: 21.11.2000 Beiträge: 1946 Wohnort: Deiningen
|
Verfasst am: 08.06.2002 - 12:00 Titel: eMail |
|
|
Hi Ronny,
die einfache Zeile oben hat nicht so funktioniert. Unterordner wurden nicht berücksichtigt. Es muss also eine rekursive Routine verwendet werden.
Ich habe das mal ausgetüftelt:
global MsgList, allMsg
on run
set MsgList to { }
set allMsg to { }
tell application "Outlook Express"
set FldList to every folder whose name is not ¨
"Postausgang" and name is not "Gelöschte Objekte" and name is not ¨
"Entwürfe" and name is not "Gesendete Objekte"
repeat with oneFold in FldList
my work_on_folder(oneFold)
end repeat
end tell
MsgList
repeat with i from 1 to (count items in MsgList)
set oneMsgList to item i of MsgList
set allMsg to allMsg & oneMsgList
end repeat
end run
on work_on_folder(tFold)
my ExtractMessage(tFold)
tell application "Outlook Express"
set newFold to every folder of tFold
repeat with nFold in newFold
my work_on_folder(nFold)
end repeat
end tell
end work_on_folder
on ExtractMessage(oneFold)
tell application "Outlook Express"
set the end of MsgList to messages of oneFold
end tell
end ExtractMessage
Das sollte jetzt aber wirklich alle Mails beinhalten. Einige Ordner habe ich ausgeschlossen. Die Funktion erklärt sich aber von selbst - denke ich. _________________ Peter
-
Fischer-Bayern.de|Shadetreemicro.com
Zuletzt bearbeitet von Snow am 22.02.2003 - 17:10, insgesamt einmal bearbeitet |
|
Nach oben |
|
 |
Snow Administrator


Anmeldedatum: 21.11.2000 Beiträge: 1946 Wohnort: Deiningen
|
Verfasst am: 08.06.2002 - 12:05 Titel: eMail |
|
|
Hm, habe gerade erst bemerkt, dass du von Outlook schreibst.
Ich hoffe es funktioniert damit genauso wie mit Outlook Express. _________________ Peter
-
Fischer-Bayern.de|Shadetreemicro.com |
|
Nach oben |
|
 |
Ronny •-->

Anmeldedatum: 06.06.2002 Beiträge: 108 Wohnort: Plötz
|
Verfasst am: 09.06.2002 - 17:44 Titel: eMail |
|
|
Hi Snow,
Danke für deine Mühe. Werd es gleich mal ausprobieren.
Ach ja, sollte mich demnächst besser ausdrücken, ich meinte auch Outlook Express.
Gruss Ronny |
|
Nach oben |
|
 |
|