Newest functions Upload a function Leave a tip My account

There are 2,572 functions in this library.

Html_Txt_Mail ( H_T_Obj ; H_T_From ; H_T_To ; H_T_Cc ; H_T_Body ; H_T_SendYN )

Send HTML mail with applescript

  Average rating: 4.5 (30 votes) Log in to vote

Paolo Marchetto - Show more from this author No one http://paolomarchetto.it

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* Multiple addresses must be separated as in example:info@alice.it¶paolo@icloud.com The last parameter can be Y or N. Y sent immediately; N save in drafts. If the text starts with "<" then the email is in HTML format, otherwise it will be in text format. */ "set theSubject to \"" & H_T_Obj & "\"¶ set theSender to \"" & H_T_From & "\"¶ set theRecipients to split(\"" & H_T_To & "\",\"¶\")¶ set theCCRecipients to split(\"" & H_T_Cc & "\",\"¶\")¶ set theHTML to \"" & H_T_Body & "\"¶ set theHTML to searchReplaceText(theHTML,\"¶\",return)¶ tell application \"Mail\"¶ set theMessage to make new outgoing message with properties {subject:theSubject, sender:theSender}¶ if text 1 thru 1 of theHTML is \"<\" then¶ set html content of theMessage to theHTML¶ else¶ set content of theMessage to theHTML¶ end¶ tell theMessage¶ repeat with thisRecipient in theRecipients¶ set thisName to my textBetween(thisRecipient,\"\",\" <\")¶ if thisName is \"\" then¶ set thisAddr to thisRecipient¶ else¶ set thisAddr to my textBetween(thisRecipient,\"<\",\">\")¶ end if¶ make new to recipient at end of to recipients with properties {name:thisName, address:thisAddr}¶ end repeat¶ repeat with thisCCRecipient in theCCRecipients¶ set thisName to my textBetween(thisCCRecipient,\"\",\" <\")¶ if thisName is \"\" then¶ set thisAddr to thisCCRecipient¶ else¶ set thisAddr to my textBetween(thisCCRecipient,\"<\",\">\")¶ end if¶ make new to recipient at end of cc recipients with properties {name:thisName, address:thisAddr}¶ end repeat¶ end tell¶" & If ( H_T_SendYN = "Y" ; ( "send theMessage¶¶") ; "save theMessage¶" ) & "end tell¶ to split(someText, delimiter)¶ set AppleScript's text item delimiters to delimiter¶ set someText to someText's text items¶ set AppleScript's text item delimiters to {\"\"}¶ return someText¶ end split¶ on textBetween(theText, openDelim, closeDelim)¶ if openDelim is \"\" then¶ set oStart to 1¶ else¶ set oStart to offset of openDelim in theText¶ end if¶ if oStart = 0 then return \"\"¶ set oStart to oStart + (length of openDelim)¶ if closeDelim is \"\" then¶ set oEnd to (length of theText)¶ else¶ set oEnd to offset of closeDelim in (text (oStart + 1) thru (length of theText) of theText)¶ if oEnd = 0 then return \"\"¶ set oEnd to oEnd + oStart - 1¶ end if¶ set result to text oStart thru oEnd of theText¶ end textBetween¶ to searchReplaceText(theText, searchString, replaceString)¶ set searchString to searchString as list¶ set replaceString to replaceString as list¶ set theText to theText as text¶ set oldTID to AppleScript's text item delimiters¶ repeat with i from 1 to count searchString¶ set AppleScript's text item delimiters to searchString's item i¶ set theText to theText's text items¶ set AppleScript's text item delimiters to replaceString's item i¶ set theText to theText as text¶ end repeat¶ set AppleScript's text item delimiters to oldTID¶ return theText¶ end searchReplaceText" Click to copy

With this custom function, you can send HTML email using Apple Mail and Applescript. This is not my own work. They are several things that I found online and I've only changed into something easier to use.

 

Comments

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: