How do I relink freshly imported email to addresses in Address Book?

Folks,

Have just come back to Entourage after 6 months in Mail.app. I
imported my mail first using the Import Mail script, then used Paul
Berkowitz's Sync Entourage-AB script to import all the Apple Address
Book contact info.

I now need to link the email in my different folders to contacts in
Entourage's Address Book. It may be glaringly obvious but I just
cannot see how to link them.

Any suggestions appreciated.

Steve Jamieson

Paul
Sat Feb 14 10:38:37 CST 2004

> This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

--B_3159592718_19246754
Content-type: text/plain;
charset="ISO-8859-1"
Content-transfer-encoding: 8bit

On 2/13/04 10:24 PM, in article
5ad91914.0402132224.79277ad8@posting.google.com, "Steve J"
<stevej@webone.com.au> wrote:

> Have just come back to Entourage after 6 months in Mail.app. I
> imported my mail first using the Import Mail script, then used Paul
> Berkowitz's Sync Entourage-AB script to import all the Apple Address
> Book contact info.
>
> I now need to link the email in my different folders to contacts in
> Entourage's Address Book. It may be glaringly obvious but I just
> cannot see how to link them.

Do you mean real Entourage links (as in the preferences "Automatically link
contacts with the messages I receive from them" and "Automatically link
contacts with the messages I send to them") or applying categories (as in
the preference "Automatically match message categories to senders'
categories"), or both?

It could be done by script, per folder, and would be very slow. I don't of
any other way. Dragging the messages or folders out and in doesn't do it.

And any other type of individual links (not to senders) would have to be
done manually by you.

You could run this from Script Editor, but it will be quicker if you save it
as a Script (compiled script) to the Entourage Script Menu Items in the
Microsoft User Data folder i your user's Documents folder and run it from
the script menu.

Select a folder before running it. Repeat for every folder except Drafts and
Deleted Items.

-------------------------

tell application "Microsoft Entourage"
try
set theFolder to displayed feature of main window
if class of theFolder ? folder then error number -128
on error
beep 2
display dialog "You first have to select a folder in tehb main
window." buttons {"Cancel"} default button 1 with icon 0
end try

repeat with theMsg in (every message of theFolder)
try -- if anything is wrong, just skip
if class of theMsg is incoming message then
set eAddress to address of sender of theMsg
-- will error and skip if no contact
set theContact to item 1 of (find eAddress)
link theMsg to theContact
set category of theMsg to (get category of theContact)

else if class of theMsg is outgoing message then
repeat with theRecipient in (every recipient of theMsg)
set eAddress to address of address of theRecipient
-- will error and skip if no contact
set theContact to item 1 of (find eAddress)
link theMsg to theContact
end repeat
end if
end try
end repeat
activate
beep
display dialog "All done!" buttons {"OK"} default button "OK" with icon
1
end tell

------------------------------------------

--
Paul Berkowitz
MVP Entourage
Entourage FAQ Page: <http://www.entourage.mvps.org/toc.html>
AppleScripts for Entourage: <http://macscripter.net/scriptbuilders/>

Please "Reply To Newsgroup" to reply to this message. Emails will be
ignored.

PLEASE always state which version of Entourage you are using - 2001 or X.
It's often impossible to answer your questions otherwise.

--B_3159592718_19246754
Content-type: text/html;
charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: How do I relink freshly imported email to addresses in Address B=
ook?</TITLE>
</HEAD>
<BODY>
On 2/=
13/04 10:24 PM, in article 5ad91914.0402132224.79277ad8@posting.google.com, =
"Steve J" <stevej@webone.com.au> wrote: 
 
> Have just come back to Entourage after 6 months =
in Mail.app.  I 
> imported my mail first using the Import Mail script, then used Paul<BR=
>
> Berkowitz's Sync Entourage-AB script to import all the Apple Address<B=
R>
> Book contact info. 
> 
> I now need to link the email in my different folders to contacts in<BR=
>
> Entourage's Address Book. It may be glaringly obvious but I just 
> cannot see how to link them. 
 
Do you mean real Entourage links (as in the preferences "Automatically=
link contacts with the messages I receive from them" and "Automat=
ically link contacts with the messages I send to them") or applying cat=
egories (as in the preference "Automatically match message categories t=
o senders' categories"), or both? 
 
It could be done by script, per folder, and would be very slow. I don't of =
any other way. Dragging the messages or folders out and in doesn't do it.<BR=
>
 
And any other type of individual links (not to senders) would have to be do=
ne manually by you. 
 
You could run this from Script Editor, but it will be quicker if you save i=
t as a Script (compiled script) to the Entourage Script Menu Items in the Mi=
crosoft User Data folder i your user's Documents folder and run it from the =
script menu. 
 
Select a folder before running it. Repeat for every folder except Drafts an=
d Deleted Items. 
 
------------------------- 
 
tell application<=
/FONT> "Microsoft Entourage" 
    try 
        set theFolder to displayed feature of main window 
        =
if class of=
 theFolder ≠ folder then error number -128 
    on error 
        beep 2 
        displ=
ay dialog "You first have to select a folder in tehb main window=
." buttons {"Cancel"} default button 1 with icon 0=
 
    end try 
     
    repeat with theMsg in (every <=
FONT COLOR=3D"#0000FF">message of <=
FONT COLOR=3D"#408000">theFolder) 
        tr=
y -- if anything is wrong, just skip 
           &nb=
sp;if class=
of theMsg =
is incoming messag=
e then 
           &nb=
sp;    set eAddress to address of sender of theMsg 
            &=
nbsp;   -- will error and skip if no=
contact 
           &nb=
sp;    set theContact to item 1 of (find eAddress) 
            &nb=
sp;   link theMsg to theCont=
act 
            &=
nbsp;   set category of theMsg to (get category of theContact) 
            &nb=
sp;    
            <FO=
NT COLOR=3D"#0000FF">else if=
class of <=
FONT COLOR=3D"#408000">theMsg is <F=
ONT COLOR=3D"#0000FF">outgoing message then<BR=
>
           &nb=
sp;    repeat with theRecipient=
in (every<=
/FONT> recipient of</B=
> theMsg) 
            &nb=
sp;       set</B=
> eAddress to</=
B> address of</=
B> address of</=
B> theRecipient 
            &=
nbsp;       -- w=
ill error and skip if no contact 
           &nb=
sp;        =
set theContact to item 1 =
of (find eA=
ddress) 
            &nb=
sp;       link</FON=
T> theMsg to <FONT=
COLOR=3D"#408000">theContact 
            &=
nbsp;   end repeat 
           &nb=
sp;end if 
        end try 
    end <FONT=
COLOR=3D"#0000FF">repeat 
    activate 
    beep 
    display dialog &quot=
;All done!" buttons {"OK"} <FONT=
COLOR=3D"#0000FF">default button "OK" =
with icon 1 
end tell 
 
------------------------------------------ 
 
-- 
Paul Berkowitz 
MVP Entourage 
Entourage FAQ Page: <a href=3D"http://www.entourage.mvps.org/toc.html"><ht=
tp://www.entourage.mvps.org/toc.html></a> 
AppleScripts for Entourage: <a href=3D"http://macscripter.net/scriptbuilders/=
"><http://macscripter.net/scriptbuilders/></a> 
 
Please "Reply To Newsgroup" to reply to this message. Emails will=
be ignored. 
 
PLEASE always state which version of Entourage you are using - 2001 or X. I=
t's often impossible to answer your questions otherwise. 

</BODY>
</HTML>

--B_3159592718_19246754--

stevej
Sat Feb 14 14:55:29 CST 2004

Apologies. Forgot to note that I am using Entourage 10.1.4 under
10.3.2 on a TiBook G4

stevej
Sat Feb 14 23:37:44 CST 2004

Paul,

The compiler tells me: "Expected "then", etc. but found unknown
token"

It is highlighting the ? just after if class of theFolder on line 4.

I wouldn't know what an Applescript did if it jumped up and bit me, so
I beg your indulgence on this one.

Thanks,

Steve Jamieson

PS: and is the 1 at the very bottom of the script meant to be alone
on that line?

> tell application "Microsoft Entourage"
> try
> set theFolder to displayed feature of main window
> if class of theFolder ? folder then error number -128
> on error
> beep 2
> display dialog "You first have to select a folder in tehb main
> window." buttons {"Cancel"} default button 1 with icon 0
> end try
>
> repeat with theMsg in (every message of theFolder)
> try -- if anything is wrong, just skip
> if class of theMsg is incoming message then
> set eAddress to address of sender of theMsg
> -- will error and skip if no contact
> set theContact to item 1 of (find eAddress)
> link theMsg to theContact
> set category of theMsg to (get category of theContact)
>
> else if class of theMsg is outgoing message then
> repeat with theRecipient in (every recipient of theMsg)
> set eAddress to address of address of theRecipient
> -- will error and skip if no contact
> set theContact to item 1 of (find eAddress)
> link theMsg to theContact
> end repeat
> end if
> end try
> end repeat
> activate
> beep
> display dialog "All done!" buttons {"OK"} default button "OK" with icon
> 1
> end tell
>
> ------------------------------------------
>
> --
> Paul Berkowitz
> MVP Entourage
> Entourage FAQ Page: <http://www.entourage.mvps.org/toc.html>
> AppleScripts for Entourage: <http://macscripter.net/scriptbuilders/>
>
> Please "Reply To Newsgroup" to reply to this message. Emails will be
> ignored.
>
> PLEASE always state which version of Entourage you are using - 2001 or X.
> It's often impossible to answer your questions otherwise.
>
>
> --

Bernard
Sun Feb 15 03:22:38 CST 2004

Steve J wrote :

> The compiler tells me: "Expected "then", etc. but found unknown
> token"
>
> It is highlighting the ? just after if class of theFolder on line 4.

Something must have gone wrong when copying the script. You shouldn't see a
question mark, but a crossed equal sign. To replace the "?", type the equal
symbol holding the option key. It should display "?" (but maybe it doesn't
in the font you are using...)

> PS: and is the 1 at the very bottom of the script meant to be alone
> on that line?

No. That's another copy problem. There is another that should not have been
cut. Well, here's the script again, I've managed to make the lines shorter.
Hope it'll run this time:

tell application "Microsoft Entourage"
try
set theFolder to displayed feature of main window
if class of theFolder ? folder then error number -128
on error
beep 2
display dialog "You first have to select a folder in the main ¬
window." buttons {"Cancel"} default button 1 with icon 0
end try

repeat with theMsg in (every message of theFolder)
try -- if anything is wrong, just skip
if class of theMsg is incoming message then
set eAddress to address of sender of theMsg
-- will error and skip if no contact
set theContact to item 1 of (find eAddress)
link theMsg to theContact
set category of theMsg to (get category of theContact)

else if class of theMsg is outgoing message then
repeat with theRecipient in (every recipient of theMsg)
set eAddress to address of address of theRecipient
-- will error and skip if no contact
set theContact to item 1 of (find eAddress)
link theMsg to theContact
end repeat
end if
end try
end repeat
activate
beep
display dialog "All done!" buttons {"OK"} default button "OK" ¬
with icon 1
end tell
---------------------------------------------------------
Please reply to the newsgroup, and within the same thread.
Merci de répondre au groupe, et dans l'enfilade.

--
Bernard Rey - Toulouse / France
MVP - Macintosh

stevej
Mon Feb 16 04:26:19 CST 2004

Bernard,

Works well, slow, but well. Many thanks.

Steve J

How do I relink freshly imported email to addresses in Address Book?

Re: How do I relink freshly imported email to addresses in by Paul

Re: How do I relink freshly imported email to addresses in Address Book? by stevej

Re: How do I relink freshly imported email to addresses in Address Book? by stevej

Re: How do I relink freshly imported email to addresses in by Bernard

Re: How do I relink freshly imported email to addresses inAddress Book? by stevej