Me disculpo por adelantado ya que esta será una pregunta larga. Espero que alguien con conocimientos de Apple pueda ayudarme. Estoy transfiriendo todas mis máquinas de Windows a Apple y estoy atascado con una pequeña y última cosa molesta. En Outlook tenía una macro en ejecución que me preguntó dónde archivar un correo después de enviarlo. Estoy acostumbrado a archivar proyectos en carpetas separadas y tengo el correo entrante y saliente juntos. La mayoría de los artículos que envío por cierto van a la carpeta de basura. En otras palabras, mis carpetas de elementos enviados siempre están vacías.
A modo de referencia, adjunto la macro original a continuación.
Intenté esto a través de las reglas, pero ahora entiendo que Mail no admite reglas sobre los elementos enviados. Entonces terminé con el automator y el applecript. He encontrado algunos ejemplos en Internet que mueven los correos seleccionados a una carpeta específica (predeterminada). Sin embargo, eso no es lo que necesito, necesito el script para preguntarme cada vez qué carpeta usar.
Lo siguiente que no puedo encontrar es algún tipo de activador automático cuando envío un correo. Por ejemplo, sería posible a través de una opción "cuando un correo se almacena en el correo enviado". O algo similar. Lo siguiente mejor es solo un acceso directo del teclado que inicia la macro, aunque esto es muy parecido a hacerlo manualmente simplemente moviendo el correo enviado a una carpeta específica.
De todos modos, espero que mi pregunta sea clara y que algún gurú de AppleScript entre ustedes tenga una manera de lidiar con esto.
Gracias de antemano!
Arnoud
COPIA DE MI CÓDIGO VBA ORIGINAL UTILIZADO EN LA CONFIGURACIÓN DE PERSPECTIVAS DE 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