Mi scuso in anticipo poiché questa sarà una lunga domanda. Spero che qualcuno con la conoscenza di applecript possa aiutarmi. Sto trasferendo tutte le mie macchine Windows su Apple e sono bloccato con un'ultima piccola cosa fastidiosa. All'interno di Outlook ho avuto una macro in esecuzione che mi chiedeva dove inviare una mail dopo averlo inviato. Sono abituato a archiviare progetti in cartelle separate e ad avere la posta in entrata e in uscita insieme. La maggior parte degli articoli che inviamo BTW vanno nella cartella cestino. In altre parole, le mie cartelle degli articoli inviati sono sempre vuote.
Per scopi di riferimento, allego la macro originale di seguito.
Ho provato questo attraverso le regole, ma ora capisco che Mail non supporta le regole sugli oggetti inviati. Poi ho finito con l'automator e il applescript. Ho trovato alcuni esempi su Internet che spostano i messaggi selezionati in una cartella specifica (preimpostata). Questo però non è quello di cui ho bisogno, ho bisogno che lo script mi chieda ogni volta quale cartella usare.
La prossima cosa che non riesco a trovare è una sorta di trigger automatico quando invio una mail. Ad esempio, sarebbe possibile tramite un'opzione "quando una posta viene archiviata nella posta inviata". O qualcosa di simile. La prossima cosa migliore è solo una scorciatoia da tastiera che avvia la macro anche se questo è abbastanza vicino a farlo manualmente semplicemente spostando la posta inviata in una cartella specifica.
Ad ogni modo, spero che la mia domanda sia chiara e che un guru di mele con te intelligente abbia un modo per affrontarlo.
Grazie in anticipo!
Arnoud
COPIA DEL MIO CODICE VBA ORIGINALE UTILIZZATO SULLA IMPOSTAZIONE DI OUTLOOK DI WINDOWS
Dim objFolder As MAPIFolder
' Variable declaration
Dim objNS As NameSpace
Dim colKeywords As New Collection
Dim vntRecipients As Variant
Dim bolExternalEmail As Boolean
' Set variables
Set objNS = Application.GetNamespace("MAPI")
' Set up list of keywords that you use when attaching files
colKeywords.Add "attachement"
colKeywords.Add "Attachement"
colKeywords.Add "attached"
colKeywords.Add "Attached"
' Check for attechment keywords and check for number of attachments
If checkForKeywords(colKeywords, Item.Body) And (Item.Attachments.Count = 0) Then
' If attachments should be in email ask for continue
If MsgBox("Attachement missing. Send e-mail anyway?", vbYesNo) = vbNo Then
Cancel = True
Exit Sub
End If
End If
' Check for subject
If Item.Subject = "" Then
MsgBox "Please specify a subject"
Cancel = True
Exit Sub
End If
' Only enable actions for emails
If Item.Class = olMail Then
' Get folder to save email
Set objFolder = objNS.PickFolder
' Check if folder has been specified
If TypeName(objFolder) <> "Nothing" Then
' If folder has been specified move email
Set Item.SaveSentMessageFolder = objFolder
Else
' Otherwise do not send email and get back to email
Cancel = True
End If
End If
send_message:
' Unset everything
Set objFolder = Nothing
Set objNS = Nothing
End Sub