AppleScript to create a new Outlook email using selected text as subject

applescriptautomationms office

I have a workflow that involves creating emails by copying and pasting text into the subject. I think an AppleScript could do much of the heavy lifting. I'd also use Automator to set up the input as selected text and also setup a "run applescript" part to the workflow.

So this script would essentially tell Outlook to take input (selected text) and set as subject of a new email.

I think it would start out like this, from referencing other scripts to automate email creation in outlook:

tell application "Microsoft Outlook"
set NewMail to make new outgoing message with properties

I imagine after that it would be something like {Subject: Input}

Anyone know what the proper way to do this?

Best Answer

See if this works for you:

set varSubject to "Hello"
set varContent to "GoodBye"
set varName to "Jon Snow"
set varEmail to "jsnow@castleblack.org"
tell application "Microsoft Outlook"
    set newMail to make new outgoing message with properties {subject:varSubject, plain text content:varContent}
    make new recipient at newMail with properties {email address:{name:varName, address:varEmail}}
end tell

Getting the Contents of Selected Messages

From Automating Spamcop:

set raw to {}
tell application "Mail"
    set msgs to selection
    if length of msgs is not 0 then
        repeat with msg in msgs
            set messageSource to source of msg
            set raw to raw & messageSource
            set background color of msg to gray     
        end repeat
    end if
end tell

Sending E-mail with AppleScript

From Send Email using Applescript:

set recipientName to "WhiteHat"
set recipientAddress to "someemail@here.com"
set theSubject to "Type your subject here!"
set theContent to "Type your message content here!"

tell application "Mail"

        ##Create the message
        set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}

        ##Set a recipient
        tell theMessage
                make new to recipient with properties {name:recipientName, address:recipientAddress}

                ##Send the Message
                send

        end tell
end tell

Combine, Create, and Send

Combining the two snippets above gives the following AppleScript:

set recipientName to "The Boss"
set recipientAddress to "boss@example.com"
set theSubject to "Type your subject here!"

set theCombinedContent to ""
tell application "Mail"
    set msgs to selection
    if length of msgs is not 0 then
        repeat with msg in msgs
            set theCombinedContent to theCombinedContent & (content of msg)
            -- set background color of msg to gray
        end repeat

        set theMessage to make new outgoing message with properties {subject:theSubject, content:theCombinedContent, visible:true}

        tell theMessage
            make new to recipient with properties {name:recipientName, address:recipientAddress}

            -- Uncomment line below to automatically send
            -- send

        end tell

    end if

end tell

Applescript not returning string

on run
    set cat to value of variable "cat" of front workflow (*I have already defined the variable elsewhere in the workflow*)
    set num to {}
    set myString to ""
    tell application "Contacts"
        repeat with i in cat
            set inGroup to group i
            set phoneProps to value of phones of inGroup's people
            repeat with i in phoneProps
                try
                    set myString to myString & "\n" & first item of i (*gets first number only*)
                on error
                    set myString to myString & "\n" & "blank field" (*covers for empty phone number, otherwise would halt on error*)
                end try
            end repeat
        end repeat
        return myString
    end tell  
end run

Best Answer

Related Solutions

AppleScript/Automate Mail Tasks

Getting the Contents of Selected Messages

Sending E-mail with AppleScript

Combine, Create, and Send

Applescript not returning string

Related Question