AppleScript para guardar correos electrónicos seleccionados de Outlook en una carpeta designada de mi ordenador

Mi empresa ha cambiado recientemente de PC a Mac. Soy muy nuevo en AppleScript. He estado tratando de improvisar un script para guardar los correos electrónicos seleccionados de Outlook en una carpeta designada.

Hasta ahora tengo lo siguiente que da un Error de Sintaxis - Esperado final de línea, etc, pero encontró un identificador.

-- Prompt the user to choose a folder to save the emails
set saveFolder to choose folder with prompt "Select a folder to save the emails"

tell application "Microsoft Outlook"
    -- Get the selected emails
    set selectedEmails to selected objects
    repeat with theEmail in selectedEmails
        -- Get the subject of the email
        set emailSubject to subject of theEmail

        -- Generate a unique file name for each email
        set timeStamp to do shell script "date +%Y%m%d%H%M%S"
        set fileName to emailSubject & "_" & timeStamp & ".eml"

        -- Save the email as an .eml file in the selected folder
        save theEmail in saveFolder as "eml" with name fileName

    end repeat
end tell

También he probado el siguiente código que se ejecuta sin errores pero en realidad no guarda nada en la carpeta indicada.

-- Prompt the user to choose a folder to save the emails
set saveFolder to choose folder with prompt "Select a folder to save the emails"

tell application "Microsoft Outlook"
    -- GET SELECTE EMAILS
    --set messages_ to the selection
    set selectedEmails to selected objects

    --ITERATE THROUGH THEM AND SAVE THEM
    repeat with theEmail in selectedEmails

        set theMsg to item i of selectedEmails

        -- Get the subject of the email
        set emailSubject to subject of theEmail

        -- Generate a unique file name for each email
        set timeStamp to do shell script "date +%Y%m%d%H%M%S"
        set fileName to emailSubject & "_" & timeStamp & ".eml"

        set textPath to saveFolder & fileName as string
        save theMsg in (textPath)

    end repeat
end tell

He probado diferentes iteraciones de los dos y parece que no avanzo.

¿Puede alguien indicarme la dirección correcta? Odio decirlo pero como que extraño VBA.