Try something along the (pun intended) lines of
Set Variable [ $addressList ; Let ( m = Substitute ( YourTable::theMailList ; ">; " ; ¶ ) ; Middle ( m ; 2 ; Length ( m ) - 2 ) ) ]
Set Variable [ $addressCount ; ValueCount ( $addressList) ]
Exit Loop if [ Let ( $addressCounter = $addressCounter + 1 ; $addressCounter > $addressCount )
Set Variable [ $currentLine ; GetValue ( $addressList ; $addressCounter ) ]
Set Variable [ $currentMailAddress ;
Let ( [
p = Position ( $currentLine ; "<" ; 1 ; 1 ) ;
isValid = p < Position ( $currentLine ; "@" ; 1 ; 1 ) ;
start = Case ( p and isValid ; p + 1 ; 1 )
Middle ( $currentLine ; start ; Length ( $currentLine ) - start )
Set Field [ YourTable::eMail : $currentMailAddress ]
Thank your help.
This script works fine. Except, the last alpabet is missing like below.
Since I am not skillful filemaker user, where do I have to modify the this script?
Thank one again...
Oops – a one-off error. Change
Middle ( $currentLine ; start ; Length ( $currentLine ) - start + 1 )
to grab that last character, too.