Send email to each message selected using applescript

Question

Hi,
I have a script which will send a single email to a number of recipients but I wanted it to send individual emails to the selected messages. I also wanted the script to extract the first name from the sender field. The problem I've had with that is the sender field reads something like "Joe Blogs via PayPal" I'd be happy with "Joe Blogs" if I could remove the "via PayPal". I found a script to remove words from text
set replyName to {}
set replyNametext to ""
set replyName to "Joe Blogs via PayPal"
set haystack to replyName
set needle to " via PayPal"
set replacement to ""
search_replace(haystack, needle, replacement)
on search_replace(haystack, needle, replacement)
          set old_delimiters to AppleScript's text item delimiters
          set AppleScript's text item delimiters to needle
          set temp_list to every text item of haystack
          set AppleScript's text item delimiters to replacement
          set return_value to temp_list as text
          set AppleScript's text item delimiters to old_delimiters
          return return_value
end search_replace
But I can't get that to work in the main script.
This is my main script:
set thesenders to {}
set thesenderstext to ""
set replyName to {}
set replyName to ""
tell application "Mail"
          set themessage to the selection
          repeat with i from 1 to the number of items in themessage
                    set thesender to (extract address from (the reply to of (item i of themessage)))
                    set replyName to (extract name from (the reply to of (item i of themessage)))
                    if thesenders does not contain thesender then
                              set thesenders to {thesender}
                              set replyName to {replyName}
                    end if
          end repeat
          set AppleScript's text item delimiters to ", "
          set thesenderstext to thesenders as rich text
          set AppleScript's text item delimiters to ""
          set newMessage to make new outgoing message
          set theSubject to "instructions"
          set theContent to "Dear " & replyName & ",
Thanks so much for your email. ...
Regards ..."
          set newMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}
          set theAttachment1 to POSIX file "/Users/Jim/qrcode.13177607.png"
          set theAttachment2 to POSIX file "/Users/Jim/qrcode.13177658.png"
          set theAttachment3 to POSIX file "/Users/Jim/qrcode.13177665.png"
          tell newMessage
                    set visible to true
                    make new to recipient with properties {address:thesenderstext}
                    make new attachment with properties {file name:theAttachment1} at after the last paragraph
                    make new attachment with properties {file name:theAttachment2} at after the last paragraph
                    make new attachment with properties {file name:theAttachment3} at after the last paragraph
          end tell
          set toAddress to thesenders as rich text
          tell newMessage
                    make new to recipient with properties {address:toAddress}
                    --  send
          end tell
          activate
end tell
I realise this is probably a bit of a Frankenstein monster of a script which probably contains lots of redundant features but I'm a total novice to scripts. Please could you help.
Thanks.
Jim

Answer 1

Hi all,
We are also facing same issue.
The function ids:getUsersInGroup doesnt return value.
Even i imported identityservice.xsd and is_config .xsd and created variable using the *"users"* element of identityservice.xsd schema and assigned the value to this variable.
But Audit always says
*"XPath query string returns multiple nodes.*
*According to BPEL4WS spec 1.1 section 14.3, The assign activity part and query should not return multipe nodes.*
*Please check the BPEL source at line number "72" and verify the part and xpath query "*
Help me to resolve this issue.