¿Cómo pedir una carpeta de correo en applecript?

0

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
    
pregunta Arnoud 08.08.2013 - 12:24

1 respuesta

1

Aunque no sé si AppleScript puede hacer lo que quieres, hay un complemento de Apple Mail llamado Mail Hub que haz lo que quieras y agrega funcionalidad adicional. Soy un cliente satisfecho.

    
respondido por el Jon Duke 12.12.2013 - 18:09

Lea otras preguntas en las etiquetas