Move mails older than

Meine Schwester hat 1 GB Mailspace und muss in regelmäßigen Abständen die Emails aus der Inbox oder dem gesendet-Ordner in einen lokalen Mail-Ordner verschieben, damit das Postfach nicht überläuft. Dieses Skript hier fragt den Quell-Account und das Quell-Postfach ab, im Anschluss das Zielpostfach und dann wie alt die Mails sein müssen, damit sie verschoben werden sollen. Neben dem reinen Nutzen ein schönes Beispiel, wie man eine Mailbox via AppleScript-Dialog auswählen kann. ;-) Viel Spaß damit!

## MoveMail oder than... ©hubionmac.com 23.09.2014
## This script moves all Emails older than x days from a source mailbox to a destination mailbox
## source and destination mailbox may be located on differenc accounts or may be local mailboxes



tell application "Mail"
  set theaccounts to name of every account whose enabled is true
  set sourceAccount to (choose from list theaccounts & {"• Local •"} with prompt "Set Source-Mailbox:" & return & "Select Account") as string
  if sourceAccount is "false" then
    error number -128
  end if
  set sourceMailbox to (choose from list my return_mailboxes(sourceAccount) with prompt "Set Source-Mailbox:" & return & "Select Mailbox") as string
  if sourceMailbox is "false" then
    error number -128
  end if
  if sourceAccount is "• Local •" then
    set sourceMailbox to mailbox sourceMailbox
  else
    set sourceMailbox to mailbox sourceMailbox of account sourceAccount
  end if
  
  
  set destiAccount to (choose from list theaccounts & {"• Local •"} with prompt "Set destination-Mailbox:" & return & "Select Account" default items {sourceAccount}) as string
  if destiAccount is "false" then
    error number -128
  end if
  set destiMailbox to (choose from list my return_mailboxes(destiAccount) with prompt "Set destination-Mailbox:" & return & "Select Mailbox") as string
  if destiMailbox is "false" then
    error number -128
  end if
  if destiAccount is "• Local •" then
    set sourceMailbox to mailbox destiMailbox
  else
    set destiMailbox to mailbox destiMailbox of account destiAccount
  end if
  
  
  repeat until 1 = 0
    try
      set daycount to text returned of (display dialog "Only move mail older than x days" default answer "30") as integer
      if daycount > 0 then
        exit repeat
      end if
    end try
  end repeat
  set deadline to current date
  set deadline to deadline - 60 * 60 * 24 * daycount
  display dialog "Really move " & (count of (every message of sourceMailbox whose date sent < deadline)) & " messages?"
  move (every message of sourceMailbox whose date sent < deadline) to destiMailbox
  
end tell


on return_mailboxes(accountname)
  tell application "Mail"
    set l to {}
    if accountname is "• Local •" then
      repeat with thebox in every mailbox
        set tmp to name of thebox
        repeat until 1 is 0
          if name of container of thebox is not missing value then
            set tmp to name of container of thebox & "/" & tmp
            set thebox to container of thebox
          else
            exit repeat
          end if
        end repeat
        set l to l & {tmp as rich text}
      end repeat
      
    else
      repeat with thebox in every mailbox of account accountname
        set tmp to name of thebox
        repeat until 1 is 0
          if name of container of thebox is not missing value then
            set tmp to name of container of thebox & "/" & tmp
            set thebox to container of thebox
          else
            exit repeat
          end if
        end repeat
        set l to l & {tmp as rich text}
      end repeat
    end if
  end tell
  return l
end return_mailboxes
									

Posted in Apple Mail | Tagged , , , | Leave a comment

Enable iTunes Storeactivation

Enable iTunes icon
In bestimmten Fällen möchten Unternehmen und Bildungseinrichtungen ihre Geräte möglicherweise mithilfe von iTunes aktivieren, ohne dass zusätzliche Inhalte synchronisiert oder gesichert werden. In diesem Artikel wird beschrieben, wie der Modus "Nur aktivieren" eingeschaltet wird.
Nun das schreibt Apple hier. Aber wer möchte schon immer diese Modus in iTunes aktiviert haben? Dieses Skript aktiviert den Modus solange es als Anwendung gespeichert (mit der Option "Nach Run-Handler anzeigen")wurde, wenn man das Skript startet. Und deaktiviert die Einstellung sobald es wieder geschlossen wird. iTunes wird von dem Skript automatisch neu gestartet, so dass die geänderte Einstellung direkt wieder aktiv wird.

### 11.09.2014 © hubionmac.com
### Applescript um iTunes in den StoreActivation Mode zu versetzten
### Damit wird jedes angeschlossene iOS Device direkt über iTunes aktiviert und wieder ausgeworfen
### Damit man iTunes normal weiter nutzen kann, ist dieses Setting nur solange aktiv, wie dieses Skript läuft (Als Anwendung gespeichert)

property setprefs : false

on run
  set theaction to button returned of (display alert "Activate StoreActivation Setting in iTunes? iTunes will restart?" buttons {"Activate", "nope quit"} default button {"Activate"})
  if theaction is "Activate" then
    tell application "System Events"
      repeat with i from 1 to 10
        if name of every process contains "iTunes" then
          tell application "iTunes" to quit
        else
          do shell script "defaults write com.apple.iTunes StoreActivationMode -integer 1"
          set setprefs to true
          exit repeat
        end if
        delay 1
      end repeat
      if setprefs is false then
        display alert "Error on resetting preferences... (could not quit iTunes in time) Restart and quit app to fix this"
      else
        tell application "iTunes" to activate
        do shell script "afplay /System/Library/Sounds/Pop.aiff "
      end if
      
    end tell
  else
    tell me to quit
  end if
end run

##Routine die beim Beendetn des Skript-Programmes durchlaufen wird
on quit
  ##es wird versucht die gesetzte Voreinstellung wieder zur löschen… kommt es zu einem Fehler, wird dieser angezeigt und das Programm beendet sich trotzdem...
  tell application "System Events"
    repeat with i from 1 to 10
      if name of every process contains "iTunes" then
        tell application "iTunes" to quit
      else
        do shell script "defaults write com.apple.iTunes StoreActivationMode -integer 0"
        set setprefs to false
        exit repeat
      end if
      delay 1
    end repeat
  end tell
  if setprefs is true then
    display alert "Error on resetting preferences... (could not quit iTunes in time) Restart and quit app to fix this"
  else
    tell application "iTunes" to activate
    do shell script "afplay /System/Library/Sounds/Pop.aiff "
  end if
  
  continue quit
  
end quit

									

und hier auch mal die Anwendung als AppleScript Applet (10.9)
Posted in defaults write, iTunes, Useful Snippets | Tagged , , | Leave a comment

Finder Attribute von Dateien löschen (Synology Shares)

Wie auch immer es dazu kommt, in meinen Synology Shares sind manche Dateien nicht mehr zu öffnen und erscheinen ausgegraut im Finder. Der Grund dafür sind erweiterte Finder-Attribute, die den Zugriff beschränken. Das Skript hier löscht einfach die Attribute aller im Finder ausgewählten Dateien.

##hubionmac.com
##remove extenden finder attributes from Finder selection.
##e.g. on synology shares some files (greyed out) can only be opened after this procedure
tell application "Finder"
  set a to selection
  repeat with b in a
    set b to quoted form of POSIX path of (b as alias)
    do shell script "xattr -d com.apple.FinderInfo " & b
  end repeat
end tell
									

Posted in Finder, Useful Snippets | Tagged , , , | Leave a comment

Update-Server kurzzeitig umstellen

Update_umleitung

Im Zuge einer Projektarbeit (Aufsetzten eines OSX Update-Servers) musste ein Skirpt her, mit dem man kurzfristig die Adressen des lokalen Updates-Servers eintragen lassen kann. Das ist an sich nicht schwierig und lässt sich auch über einen Terminal-Befehl leicht erreichen. Das ganze soll nur möglichst einfach ablaufen und sich auch Rückgängig machen lassen, damit der lokale Update-Server nur verwendet wird, wenn das Programm auch läuft... also:

Das Skript hier einfach als Anwendung speicher, die nach dem Öffnen auch offen bleibt. Der Wert der Variable myupdate_server_ip sollte natürlich entsprechende IP des Update-Server gesetzte werden.

Update_umleitung-BlogBild

### 09.02.2014 © hubionmac.com
### AppleScript welches den Update-Server eines Macs für die Dauer der Laufzeit verändert und beim Beendet wieder auf den Default-Wert zurücksetzt
### Der Defaults Befehlt stammt von http://support.apple.com/kb/ht4069



##Voreinstellung, das ist die IP oder der Domain-Name des Update-Servers
property myupdate_server_ip : "192.168.1.1"

on run
  ##Wenn der Dialog mit Ja bestätigt wird geht es weiter, ansonsten beendet sich das Programm
  set doit to button returned of (display alert "Soll ich den Update-Server (" & myupdate_server_ip & ") eintragen?" buttons {"Nein", "Ja"} default button {"Ja"}) as text
  if doit is "Ja" then
    try
      ##das ist die eigentliche Code Zeile über die der Update-Server definiert wird
      do shell script "defaults write /Library/Preferences/com.apple.SoftwareUpdate CatalogURL http://" & myupdate_server_ip & ":8088/index.sucatalog" with administrator privileges
      ##Sofern der vorherige Eintrage erfolgreich war, müsste diese Befehl ohne Fehler durchlaufen
      do shell script "defaults read /Library/Preferences/com.apple.SoftwareUpdate CatalogURL"
      ##Das ist ein reiner Info Dialog ohne weitere Funktion… verschwindet nach 5 Sekunden
      display alert "Update Server eingetragen, beende das Programm, um den Eintrag wieder zu löschen…" buttons {"OK"} default button {"OK"} giving up after 5
    on error msg
      ##Sollte es einen Fehler gegegeben haben (z.B. die Voreinstellung wurde nicht gesetzt, wird dieser angezeigt und das Programm beendet...
      display alert "Es scheint ein Problem setzen der Voreinstellung gegeben zu haben…\n\n" & msg
      quit
    end try
  else
    ##Wenn der Anfangs-Dialog mit nein bestätigt wurde, beendet sich das Programm halt...
    tell me to quit
  end if
  
end run

##Routine die beim Beendetn des Skript-Programmes durchlaufen wird
on quit
  ##es wird versucht die gesetzte Voreinstellung wieder zur löschen… kommt es zu einem Fehler, wird dieser angezeigt und das Programm beendet sich trotzdem...
  try
    do shell script "sudo defaults delete /Library/Preferences/com.apple.SoftwareUpdate CatalogURL" with administrator privileges
    display alert "Update-Server wieder zurück auf default" giving up after 5
  on error msg
    display alert msg
  end try
  continue quit
  
end quit
									

Und sobald das Programm nun läuft, wir nach dem Kennwort gefragt, der Update-Server umgestellt und wenn man es beendet ist alles wieder auf Anfang gesetzt. Ist super praktisch, wenn man nur zeitweise den lokalen Update-Server nutzen möchte, z.B. bei mobilen Geräten, die nicht immer im lokalen Netzwerk verbleiben. Danke an Dennis für die Grund-Idee.

Posted in defaults write, OS X | Tagged , , , | Leave a comment

Webdesgin: helfende-tiere.de im neuen Look

Die Seite wurde komplett neu gestaltet. Neben zahlreichen Pfoten- und Hufspuren verziert die Lieblingsschrift (MyFairCody) des Siteowners den neuen Webauftritt. Als CMS kommt WordPress zum Einsatz.20140122-105116.jpg
Posted in webdev | Tagged , , , | Leave a comment

Webdesign: macxtreme.de im neuen Look

Die neue Seite von Macxtreme ist online. Pures html5, etwas Javascript und WordPress im Hintergrund. Das ganze konnte Dank html5 Boilerplate in Recordzeit umgesetzte werden. THX! logo
Posted in links, webdev | Tagged , | Leave a comment

.icns Icon-Dateien via Terminal erstellen

Für ein Skript, welches mir automatisch Partition mit Image-Dateien bespielt, brauchte ich einen Mechanismus, über den ich dynamisch VolumeIcons auf die fertigen Volumes anwenden konnte. Normalerweise würde ich hierfür
  • Im Programm Vorschau ein entsprechendes Bilds (idealerweise 512x512px) öffnen, auswählen und kopieren
  • Das gewünschte Objekt im Finder auswählen und mir die Information anzeigen lassen
  • tab drücken und mit cmd+V das Bild aus der Zwischenablage als Icon festlegen
Read More »
Posted in Useful Snippets | Tagged , , , | Leave a comment

SVG Editor

LogoNachdem Inkscape den Dienst unter 10.7 eingestellt hat und die Alternative DrawBerry zwar schön funktioniert, die exportieren SVGs aber nichts taugen, bin ich bei svg-edit fündig geworden. Einfach simpel und online dazu.
Posted in Nice2Know | Tagged , | Leave a comment

Mails ins Postfach bewegen… 3.0

Da ich in letzte Zeit einige meiner Accounts auf Exchange umstellen musste, hat das Skript nicht mehr korrekt funktioniert. Deshalb hierzu eine kleine Anpassung.

-- MoveMailTo
--  Created by Hubi on 16.06.2009
--Änderung vom 07.12.2009
--     ->Unterordner können nu auch als Ziel genutzt werden
--     ->POP Accounts bzw. lokale Ordner können nun auch angesprochen werden.
--  Copyright 2009 hubionmac.com. All rights reserved. ;-)
-- Änderung vom 31.10.2013:
--     ->Unterstützung von Exchange Postfächern… diese haben zumindest unter 10.7 und 10.8 die Account Typ unknown
tell application "Mail"
  
  set theSelection to selection
  if theSelection ≠ {} then
    try
      set ac_name to (name of account of mailbox of (item 1 of theSelection))
      set ac_typ to account type of account of mailbox of (item 1 of theSelection)
    on error
      --wenn eine Nachricht in einem lokalen Postfach ausgewählt wurde kann das nur schief gehen, also:
      set ac_name to ""
      set ac_typ to pop
    end try
    set t_mail to {}
    if ac_typ = imap or ac_typ = unknown then
      repeat with i from 1 to (count of every mailbox of account ac_name)
        --set t_mail to t_mail & ((i & " " & name of mailbox i of account ac_name) as text)
        set t_mail to t_mail & ((name of mailbox i of account ac_name & " (" & i & ")") as rich text)
      end repeat
    else if ac_typ = pop then
      repeat with i from 1 to (count of every mailbox)
        --set t_mail to t_mail & ((i & " " & name of mailbox i of account ac_name) as text)
        set t_mail to t_mail & ((name of mailbox i & " (" & i & ")") as rich text)
      end repeat
    end if
    
    
    set my_mailboxes to {"•••NEW•••"} & t_mail
    set theaction to choose from list my_mailboxes default items {item 1 of my_mailboxes}
    if theaction as rich text ≠ "false" then
      if theaction as rich text = (item 1 of my_mailboxes) as rich text then
        set new_mailboxname to text returned of (display dialog "New Mailbox" default answer "---New Mailbox ---")
        if new_mailboxname as rich text ≠ "false" then
          if ac_typ = imap then
            tell account ac_name to set desti_box to (make new mailbox with properties {name:new_mailboxname})
          else if ac_typ = pop then
            make new mailbox with properties {name:new_mailboxname}
            set desti_box to new_mailboxname
          end if
        end if
      else
        --set desti_box to mailbox ((first word of (theaction as text)) as integer) of account ac_name
        if ac_typ = imap or ac_typ is unknown then
          set desti_box to mailbox ((last word of (theaction as rich text)) as integer) of account ac_name
        else if ac_typ = pop then
          set desti_box to mailbox ((last word of (theaction as rich text)) as integer)
        end if
      end if
      repeat with themessage in theSelection
        
        move themessage to desti_box
      end repeat
    end if
  else
    display dialog "Nix ausgewählt zum verschieben" giving up after 1
  end if
end tell
									

Posted in Apple Mail | Tagged , , | Leave a comment

Big Red Button

Einen USB-Taster brauchte ich, mit dem ich eine Klingel realisieren konnte, die an verschiedenen Rechner einen Ton gleichzeit abspielt.
Das ganz noch dazu ohne in günstig und am liebsten ohne Java... fündig wurde ich beim Big Red Button von Dream Cheeky, für den man sich dank derrick via GitHub eine coolen USB-Treiber kompilieren konnte. Ein wenig Applescript-Voodoo später ist er nun fertig. DOWNLOAD
Big Red Button Skript v.2
1.38 MB (266 hits)
Das Skript überwacht den Knopf auch, d.h. wenn der Button vom Rechner entfernt wird, solange das Skirpt läuft, schlägt es Alarm =!) Siehe auch das Demo-Video
Posted in tools, Useful Snippets | Tagged , , , | Leave a comment
  • Seite übersetzen:


    Paypal for Pizza:




  • Kategorien


  • Letzte Kommentare

    • Hubi: Merci für das Feedback =)
    • Dieter: Auch mit der Version 10.9.4, Mail Version 7.3 (1878.6), gibt es bei mir keinerlei Fehleranzeigen.
    • Marcus Breiden: Das Script hat auf jeden Fall einen Fehler: if movedIt is false then error “Fehler beim Bewegen...
    • Roger: Thank you for that droplet. Exactly what I was looking for, to see on windows computer which were corrupted...
    • Dieter: Servus Hubi! Zur Info: mit der neuen Mail Version 7.3 (1878.2) in OS X 10.9.3 gibt es KEINE Probleme,...