| 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 |  | 
	
		|  | 
	
		|  |