Re: Searching a Mail message
Re: Searching a Mail message
- Subject: Re: Searching a Mail message
- From: Philip Aker <email@hidden>
- Date: Sun, 3 Jun 2007 07:32:23 -0700
On 2007-06-03, at 07:21:50, deivy petrescu wrote:
Some people tend to undermine AS abilities.
May be my problem is I tend to overestimate its capabilities and
can not go past it.
Here's your script adapted to work with Mail. When I run it on
your post I'm replying to, it doesn't produce an acceptable result.
Philip,
I beg to disagree. It produces perfect results.
You're kidding right?
Reread my message. I said I cheated a bit.
Yes, you admitted you cheated. The object is to get valid email
addresses from the content of an email message. So your code getting
them from a fixed text item doesn't solve much. See my reply to Doug
MacNutt for an alternate. Leaving the solution as an exercise is not
proof of viability.
Philip,
I did not need to do any cheating and I'd probably get more
appropriate results.
I'll leave the solution as an exercise... :).
However, obviously, no matter what you try, you'd get spurious
email addresses if the user decides to write in a "different" way,
say.
For instance, "Meet me@3PM" or
"Write me at applescript@
dicas.com"
But even with this spurious email addresses, you did get all the
emails of the body. Cleaning up some email is much easier than to
look for all of them.
on tid(theDelimiter)
set AppleScript's text item delimiters to theDelimiter
end tid
tid("@")
set emails to {}
tell application "Mail" to set m to content of item 1 of (get
selection)
set q to text items of m
tid(space)
repeat with j from 1 to ((count q) - 1)
if (text item -1 of text item j of q) ≠ "" and (text item 1 of
text item (j + 1) of q) ≠ "" then set end of emails to (text item
-1 of text item j of q) & "@" & (text item 1 of text item (j + 1)
of q)
end repeat
emails
Result:
{"\"@\"", "it.
Here
<script>
tid(\"@\")
set", "\"email@hidden", "email@hidden",
"email@hidden", "\"@\"", "tid
</script>
---{\"email@hidden\",", "\"email@hidden
\",", "\"email@hidden\"}
I", "(email@hidden)
Help/Unsubscribe/Update", "email@hidden
"}
Philip Aker
email@hidden
Deivy _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (applescript-
email@hidden)
Help/Unsubscribe/Update your Subscription:
@mac.com
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden
Philip Aker
email@hidden
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden