Re: Complicated script

[David Leitch]

Title: Re: Complicated script

on 24/9/01 9:46 AM, David Leitch at [EMAIL PROTECTED] wrote:

> on 22/9/01 3:34 AM, Allen Watson at [EMAIL PROTECTED] wrote:
>
>> I modified the script so that if no “@” is found in the address, it will
>> attempt to make a “JPMorgan.com” address out of it, display a message showing
>> what the address is, and ask you want to accept it as is, edit it, or cancel.
>> The format, given your example, should be:
>>
>> “Peter C Talbot <[EMAIL PROTECTED]>”
>
>
> Allen
>
> Progress is fantasic, however the script is creating addresses of the form
>
> Thomas K Wilson  <> <Thomas.K.Wilson..<>@JPMorgan.com>
>
> I am guessing the extra angle brackets are being added in these lines:
> if trialAddress does not contain "@" then
>               set part2 to my myBetween("<", ">", newstuff)
>               set part2 to "<" & my myBefore(" ", part2) & my
> myAfter(return, part2) & ">"
>               set trialAddress to trialAddress & " " & part2

I'm also noticing that when I edit the address manually in response to the presented dialog box
    set nameLine to text returned of (display dialog "Edit as desired" default answer nameLine)

Then the change is not accepted and indeed no processing is done on the addressing. I guessing that in the code fragment below the lines after the second else statement
    set dName to my myBefore("<", nameLine)
    set eAddress to my myBetween("<", ">", nameLine)

May actually need to be outside of the else clause. Ie shouldn’t we set dname and eddress to the result of of the if else process?

else if btn = "Edit" then
               set nameLine to text returned of (display dialog "Edit as desired" default answer nameLine)
                
            else
               if nameLine does not contain " " then
                   set dName to ""
                    set eAddress to nameLine
                else
                   set dName to my myBefore("<", nameLine)
                    set eAddress to my myBetween("<", ">", nameLine)
                end if
               set AppleScript's text item delimiters to {""}
                set display name of sender of theMsg to dName
                set address of sender of theMsg to eAddress
                --exit repeat

Again I repeat the whole script and continue to say thanks. Entourage is far preferable to Lotus Notes in terms of user friendliness.

tell application "Microsoft Entourage"
    set theMsg to item 1 of (get current messages)
    if address of sender of theMsg is "[EMAIL PROTECTED]" then
       set theContent to content of theMsg
        -- Remove leading blanks
       -- Collapse space runs to single space
       set paras to paragraphs of theContent
        set newstuff to ""
        repeat with aLine in paras
            repeat while aLine begins with " "
                if aLine is not " " then
                   set aLine to text 2 thru -1 of aLine
                else
                   set aLine to ""
                end if
           end repeat
           repeat while aLine contains "  "
                set aLine to my myReplace("  ", " ", aLine)
            end repeat
           if length of aLine > 0 then set newstuff to newstuff & aLine & return
        end repeat
       if ((words 1 thru 3 of newstuff) as text) contains "attachment" then
           set newstuff to my myAfter(")", newstuff) -- Discard the attachment info
       end if
       
        set trialAddress to word 1 of newstuff
        if trialAddress contains "@" then
           set finalAddress to trialAddress -- We are done
           return finalAddress
        else
           set trialAddress to my myBefore("To:", newstuff)
            set trialAddress to my myReplace(return, "", trialAddress)
            if trialAddress does not contain "@" then
               set part2 to my myBetween("<", ">", newstuff)
                set part2 to "<" & my myBefore(" ", part2) & my myAfter(return, part2) & ">"
                set trialAddress to trialAddress & " " & part2
            end if
           set finalAddress to trialAddress
        end if
       set nameLine to finalAddress
        if nameLine does not contain "@" then
           set nameLine to nameLine & " <" & (my myReplace(" ", ".", nameLine) & "@JPMorgan.com") & ">"
            display dialog "Unclear address, trying: " & nameLine buttons {"Cancel", "Edit", "Accept"} default button "Accept" giving up after 15
            set btn to button returned of result
            if btn = "Cancel" then
               return
           else if btn = "Edit" then
               set nameLine to text returned of (display dialog "Edit as desired" default answer nameLine)
                
            else
               if nameLine does not contain " " then
                   set dName to ""
                    set eAddress to nameLine
                else
                   set dName to my myBefore("<", nameLine)
                    set eAddress to my myBetween("<", ">", nameLine)
                end if
               set AppleScript's text item delimiters to {""}
                set display name of sender of theMsg to dName
                set address of sender of theMsg to eAddress
                --exit repeat
           end if
       end if
   end if
end tell


on myReplace(oldS, newS, theText)
    set od to AppleScript's text item delimiters
    set AppleScript's text item delimiters to oldS
    set temp to text items of theText
    set AppleScript's text item delimiters to newS
    set theText to temp as text
    return theText
end myReplace

to myBetween(firstPart, secondPart, someString)
    set lastpart to myAfter(firstPart, someString) -- What follows firstPart
   set midpart to myBefore(secondPart, lastpart)
    return midpart
end myBetween

to myBefore(subStr, mainStr)
    set od to AppleScript's text item delimiters
    set AppleScript's text item delimiters to subStr
    set temp to text items of mainStr
    set theBefore to item 1 of temp
    set theRest to (the rest of temp) as text
    set AppleScript's text item delimiters to od
    return theBefore
end myBefore

to myAfter(subStr, mainStr)
    set od to AppleScript's text item delimiters
    set AppleScript's text item delimiters to subStr
    set temp to text items of mainStr
    set theRest to item 1 of temp
    set theAfter to (the rest of temp) as text
    set AppleScript's text item delimiters to od
    return theAfter
end myAfter

--
David Leitch  JPMorgan [EMAIL PROTECTED]  +612 9220 1609