Create task from Contact

Is there an applescript I can use from the applescript menu to create a
note from a contact: "Call <contact>, <work phone no.>" and link it to
the conatct??

Thanks
--
Jeremy
jeremyatcommunityhypenrelationsdotcoetc

Paul
Mon Mar 14 09:49:42 CST 2005

> 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_3193631383_12497670
Content-type: text/plain;
charset="US-ASCII"
Content-transfer-encoding: 7bit

On 3/14/05 2:40 AM, in article 1gteti0.uez71a1927q7sN%jeremy@yahoo.com,
"Jeremy Fieldsend" <jeremy@yahoo.com> wrote:

> Is there an applescript I can use from the applescript menu to create a
> note from a contact: "Call <contact>, <work phone no.>" and link it to
> the conatct??

Here you go. It's designed for Entourage 2004, and will replicate the
category and project, if any, of the contact to the note. If you're in
Entourage X or 2001, just remove references to theProjects and project list
below.

It lets you select more than one contact at a time of you wish, and will
make notes for all of them. If there's no work phone number, it will use the
home phone number. You could change that to 'mobile phone number' or just
remove that line. If you want to open the note after it's made, remove the
"--" before the last line 'open theNote'.

Finally - you do realize you could make a task, optionally with a reminder,
instead of a note. But you'd have to know in advance how many days in
advance to make the reminder and/or due date.

tell application "Microsoft Entourage"
try
set theSelection to selection
if class of theSelection is not list then error number -128
on error
beep
display dialog "You can only run this script on selected
contact(s)." buttons {"Cancel"} default button 1 with icon 0
return
end try

repeat with i from 1 to (count theSelection)
repeat 1 times
set theContact to item i of theSelection
if class of theContact is not contact then exit repeat -- 1
times
set theName to name of theContact
set thePhone to business phone number of theContact
if thePhone = "" then set thePhone to home phone number of
theContact
set theText to "Call " & theName & ", " & thePhone
set {theCategories, theProjects} to theContact's {category,
project list}
set theNote to make new note with properties {name:theName,
content:theText, category:theCategories, project list:theProjects}
link theNote to theContact
open theNote
end repeat
end repeat
end tell

--
Paul Berkowitz
MVP MacOffice
Entourage FAQ Page: <http://www.entourage.mvps.org/faq/index.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 Microsoft Office you are using -
**2004**, X or 2001. It's often impossible to answer your questions
otherwise.

--B_3193631383_12497670
Content-type: text/html;
charset="US-ASCII"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: Create task from Contact</TITLE>
</HEAD>
<BODY>
On 3/=
14/05 2:40 AM, in article 1gteti0.uez71a1927q7sN%jeremy@yahoo.com, "Jer=
emy Fieldsend" <jeremy@yahoo.com> wrote: 
 
> Is there an applescript I can use from the apple=
script menu to create a 
> note from a contact: "Call <contact>, <work phone no.&gt=
;" and link it to 
> the conatct?? 
 
 
Here you go. It's designed for Entourage 2004, and will replicate th=
e category and project, if any, of the contact to the note. If you're in Ent=
ourage X or 2001, just remove references to theProjects and project list bel=
ow. 
 
It lets you select more than one contact at a time of you wish, and will ma=
ke notes for all of them. If there's no work phone number, it will use the h=
ome phone number. You could change that to 'mobile phone number' or just rem=
ove that line. If you want to open the note after it's made, remove the &quo=
t;--" before the last line 'open theNote'. 
 
Finally - you do realize you could make a task, optionally with a reminder,=
instead of a note. But you'd have to know in advance how many days in advan=
ce to make the reminder and/or due date. 
 
 
tell application<=
/FONT> "Microsoft Entourage" 
    try 
        set theSelection to selection 
        =
if class of=
 theSelection =
is not list then error number -128 
    on error 
        beep 
        dis=
play dialog "You can only run this script on selected contact(s)=
." buttons {"Cancel"} default button 1 with icon 0=
 
        re=
turn 
    end <FONT=
COLOR=3D"#0000FF">try 
     
    repeat with i from 1 to (<FONT=
COLOR=3D"#0000FF">count theSelection) 
        re=
peat 1 times 
           &nb=
sp;set theContact<=
/FONT> to item</FO=
NT> i of <F=
ONT COLOR=3D"#408000">theSelection 
            <=
FONT COLOR=3D"#0000FF">if class <FO=
NT COLOR=3D"#0000FF">of theContact =
is not</FON=
T> contact then</F=
ONT> exit repea=
t -- 1 times 
           &nb=
sp;set theName</FO=
NT> to name=
of theContact 
            <=
FONT COLOR=3D"#0000FF">set thePhone=
to business phone=
number of =
theContact 
            <=
FONT COLOR=3D"#0000FF">if thePhone =
=3D "" then set thePhone to home phone number of theContact 
            <=
FONT COLOR=3D"#0000FF">set theText =
to "Call " & theName & ", " & the=
Phone 
            <=
FONT COLOR=3D"#0000FF">set {theCategories<=
/FONT>, theProjects} t=
o theContact's {category, project list} 
            <FO=
NT COLOR=3D"#0000FF">set theNote <F=
ONT COLOR=3D"#0000FF">to make <FONT=
COLOR=3D"#0000FF">new note with properties {name:theName, content:theText, category:theCategories, project list:<=
FONT COLOR=3D"#408000">theProjects} 
            <FO=
NT COLOR=3D"#0000FF">link theNote to theContact 
            <=
FONT COLOR=3D"#0000FF">open theNote 
        =
end repeat 
    end <FONT=
COLOR=3D"#0000FF">repeat 
end tell 
 
 
-- 
Paul Berkowitz 
MVP MacOffice 
Entourage FAQ Page: <a href=3D"http://www.entourage.mvps.org/faq/index.html">=
<http://www.entourage.mvps.org/faq/index.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 Microsoft Office you are using - **200=
4**, X  or 2001. It's often impossible to answer your questions otherwi=
se. 

</BODY>
</HTML>

--B_3193631383_12497670--

jeremy
Mon Mar 14 12:22:33 CST 2005

Paul Berkowitz <berkowit@spoof_silcom.com> wrote:

> Here you go. It's designed for Entourage 2004, and will replicate the
> category and project, if any, of the contact to the note. If you're in
> Entourage X or 2001, just remove references to theProjects and project list
> below.
>
> It lets you select more than one contact at a time of you wish, and will
> make notes for all of them. If there's no work phone number, it will use the
> home phone number. You could change that to 'mobile phone number' or just
> remove that line. If you want to open the note after it's made, remove the
> "--" before the last line 'open theNote'.
>
> Finally - you do realize you could make a task, optionally with a reminder,
> instead of a note. But you'd have to know in advance how many days in
> advance to make the reminder and/or due date.
>
>
> tell application "Microsoft Entourage"
> try
> set theSelection to selection
> if class of theSelection is not list then error number -128
> on error
> beep
> display dialog "You can only run this script on selected
> contact(s)." buttons {"Cancel"} default button 1 with icon 0
> return
> end try
>
> repeat with i from 1 to (count theSelection)
> repeat 1 times
> set theContact to item i of theSelection
> if class of theContact is not contact then exit repeat -- 1
> times
> set theName to name of theContact
> set thePhone to business phone number of theContact
> if thePhone = "" then set thePhone to home phone number of
> theContact
> set theText to "Call " & theName & ", " & thePhone
> set {theCategories, theProjects} to theContact's {category,
> project list}
> set theNote to make new note with properties {name:theName,
> content:theText, category:theCategories, project list:theProjects}
> link theNote to theContact
> open theNote
> end repeat
> end repeat
> end tell

Many thanks Paul.
--
Jeremy
jeremyatcommunityhypenrelationsdotcoetc

jeremy
Mon Mar 14 12:23:07 CST 2005

Paul Berkowitz <berkowit@spoof_silcom.com> wrote:

> Finally - you do realize you could make a task, optionally with a reminder,
> instead of a note. But you'd have to know in advance how many days in
> advance to make the reminder and/or due date.

Which is, of course, a much more sensible route altogether. I've tried -
unsuccessfully - to adapt your applescript. I don;t need the optional
reminder, just a task which reads "call <name>, <phone>.

Many thanks
--
Jeremy
jeremyatcommunityhypenrelationsdotcoetc

Paul
Mon Mar 14 14:00:01 CST 2005

> 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_3193646402_13382746
Content-type: text/plain;
charset="ISO-8859-1"
Content-transfer-encoding: 8bit

On 3/14/05 10:23 AM, in article 1gtfeva.gv1aw71f3dmy4N%jeremy@yahoo.com,
"Jeremy Fieldsend" <jeremy@yahoo.com> wrote:

> Paul Berkowitz <berkowit@spoof_silcom.com> wrote:
>
>> Finally - you do realize you could make a task, optionally with a reminder,
>> instead of a note. But you'd have to know in advance how many days in
>> advance to make the reminder and/or due date.
>
> Which is, of course, a much more sensible route altogether. I've tried -
> unsuccessfully - to adapt your applescript. I don;t need the optional
> reminder, just a task which reads "call <name>, <phone>.

Really? All you needed to do as change the word 'note' to 'task'. (I'm also
changing the variable to 'theTask' in all places just so it reads better,
but it would have worked anyway as 'theNote') I actually forgot to comment
out the 'open' part last time, so I'm doing it here. If you want it to open,
remove the "--" characters. This version makes a task with no due date and
no reminder.

P.S. I send scripts in HTML for a good reason: otherwise long lines break in
the email and would create errors when compiling. You'd have to know soe
AppleScript to know where to restore long lines by removing carriage
returns. On the other hand, I've discovered that people reading these
messages in the Google (or other) web browser have problems with scripts
containing non-ASCII (non-basic) characters like ? (is not equal), which
come out as commas, for example, at least in HTML, since the browser is
using Windows character format, and also break the script. So I'm trying to
rememver to always use the more verbose English alternatives like 'is not
equal to'. I may need to be reminded occasionally. Anyway, you're all better
off using Entourage or another newsreader, not Google: your messages and the
replies will appear within a min ute or so of being sent, not 12 hours or
so.

tell application "Microsoft Entourage"
try
set theSelection to selection
if class of theSelection is not list then error number -128
on error
beep
display dialog "You can only run this script on selected
contact(s)." buttons {"Cancel"} default button 1 with icon 0
return
end try

repeat with i from 1 to (count theSelection)
repeat 1 times
set theContact to item i of theSelection
if class of theContact is not contact then exit repeat -- 1
times
set theName to name of theContact
set thePhone to business phone number of theContact
if thePhone = "" then set thePhone to home phone number of
theContact
set theText to "Call " & theName & ", " & thePhone
set {theCategories, theProjects} to theContact's {category,
project list}
set theTask to make new task with properties {name:theName,
content:theText, category:theCategories, project list:theProjects}
link theTask to theContact
--open theTask
end repeat
end repeat
end tell

--
Paul Berkowitz
MVP MacOffice
Entourage FAQ Page: <http://www.entourage.mvps.org/faq/index.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 Microsoft Office you are using -
**2004**, X or 2001. It's often impossible to answer your questions
otherwise.

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

<HTML>
<HEAD>
<TITLE>Re: Create task from Contact</TITLE>
</HEAD>
<BODY>
On 3/=
14/05 10:23 AM, in article 1gtfeva.gv1aw71f3dmy4N%jeremy@yahoo.com, "Je=
remy Fieldsend" <jeremy@yahoo.com> wrote: 
 
> Paul Berkowitz <berkowit@spoof_silcom.com>=
wrote: 
>   
>> Finally - you do realize you could ma=
ke a task, optionally with a reminder, 
>> instead of a note. But you'd have to know in advance how many days=
in 
>> advance to make the reminder and/or due date. 
> 
> Which is, of course, a much more sensible route altogether. I've tried=
- 
> unsuccessfully - to adapt your applescript. I don;t need the optional<=
BR>
> reminder, just a task which reads "call <name>, <phone&g=
t;. 
 
Really? All you needed to do as change the word 'note=
' to 'task'. (I'm also changing the vari=
able to 'theTask' in all places just so it reads better, but it would have w=
orked anyway as 'theNote') I actually forgot to comment out the 'open' part =
last time, so I'm doing it here. If you want it to open, remove the "--=
" characters. This version makes a task with no due date and no reminde=
r. 
 
P.S. I send scripts in HTML for a good reason: otherwise long lines break i=
n the email and would create errors when compiling. You'd have to know soe A=
ppleScript to know where to restore long lines by removing carriage returns.=
On the other hand, I've discovered that people reading these messages in th=
e Google (or other) web browser have problems with scripts containing non-AS=
CII (non-basic) characters like ≠ (is not equal), which come out as co=
mmas, for example, at least in HTML, since the browser is using Windows char=
acter format, and also break the script. So I'm trying to rememver to always=
use the more verbose English alternatives like 'is not equal to'. I may nee=
d to be reminded occasionally. Anyway, you're all better off using Entourage=
or another newsreader, not Google: your messages and the replies will appea=
r within a min ute or so of being sent, not 12 hours or so. 
 
 
tell application<=
/FONT> "Microsoft Entourage" 
    try 
        set theSelection to selection 
        =
if class of=
 theSelection =
is not list then error number -128 
    on error 
        beep 
        dis=
play dialog "You can only run this script on selected contact(s)=
." buttons {"Cancel"} default button 1 with icon 0=
 
        re=
turn 
    end <FONT=
COLOR=3D"#0000FF">try 
     
    repeat with i from 1 to (<FONT=
COLOR=3D"#0000FF">count theSelection) 
        re=
peat 1 times 
           &nb=
sp;set theContact<=
/FONT> to item</FO=
NT> i of <F=
ONT COLOR=3D"#408000">theSelection 
            <=
FONT COLOR=3D"#0000FF">if class <FO=
NT COLOR=3D"#0000FF">of theContact =
is not</FON=
T> contact then</F=
ONT> exit repea=
t -- 1 times 
           &nb=
sp;set theName</FO=
NT> to name=
of theContact 
            <=
FONT COLOR=3D"#0000FF">set thePhone=
to business phone=
number of =
theContact 
            <=
FONT COLOR=3D"#0000FF">if thePhone =
=3D "" then set thePhone to home phone number of theContact 
            <=
FONT COLOR=3D"#0000FF">set theText =
to "Call " & theName & ", " & the=
Phone 
            <=
FONT COLOR=3D"#0000FF">set {theCategories<=
/FONT>, theProjects} t=
o theContact's {category, project list} 
            <FO=
NT COLOR=3D"#0000FF">set theTask <F=
ONT COLOR=3D"#0000FF">to make <FONT=
COLOR=3D"#0000FF">new task with properties {name:theName, content:theText, category:theCategories, project list:<=
FONT COLOR=3D"#408000">theProjects} 
            <FO=
NT COLOR=3D"#0000FF">link theTask to theContact 
            -=
-open theTask 
        end repeat 
    end <FONT=
COLOR=3D"#0000FF">repeat 
end tell 
 
 
-- 
Paul Berkowitz 
MVP MacOffice 
Entourage FAQ Page: <a href=3D"http://www.entourage.mvps.org/faq/index.html">=
<http://www.entourage.mvps.org/faq/index.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 Microsoft Office you are using - **200=
4**, X  or 2001. It's often impossible to answer your questions otherwi=
se. 

</BODY>
</HTML>

--B_3193646402_13382746--

jeremy
Tue Mar 15 05:24:46 CST 2005

Paul Berkowitz <berkowit@spoof_silcom.com> wrote:

> Really? All you needed to do as change the word 'note' to 'task'. (I'm also
> changing the variable to 'theTask' in all places just so it reads better,
> but it would have worked anyway as 'theNote') I actually forgot to comment
> out the 'open' part last time, so I'm doing it here. If you want it to open,
> remove the "--" characters. This version makes a task with no due date and
> no reminder.

(last request, honest)

How do I get the title of the task to read Call <name of contact>,
<phone number of contact>?

I've had several goes at amending your script without - needless to say
- much success although I have managed to get the word 'Call" in there.
(Hoo-ra)

Many thanks
--
Jeremy
jeremyatcommunityhypenrelationsdotcoetc

Paul
Tue Mar 15 10:59:02 CST 2005

On 3/15/05 3:24 AM, in article 1gtgq7t.8upgov9489b2N%jeremy@yahoo.com,
"Jeremy Fieldsend" <jeremy@yahoo.com> wrote:

> Paul Berkowitz <berkowit@spoof_silcom.com> wrote:
>
>> Really? All you needed to do as change the word 'note' to 'task'. (I'm also
>> changing the variable to 'theTask' in all places just so it reads better,
>> but it would have worked anyway as 'theNote') I actually forgot to comment
>> out the 'open' part last time, so I'm doing it here. If you want it to open,
>> remove the "--" characters. This version makes a task with no due date and
>> no reminder.
>
> (last request, honest)
>
> How do I get the title of the task to read Call <name of contact>,
> <phone number of contact>?

Since we've already set the variable theText to be:

set theText to "Call " & theName & ", " & thePhone

you can just set the name of the task to that same variable when making the
task:

set theTask to make new task with properties {name:theText,
content:theText, category:theCategories, project list:theProjects}

(Since you insist on replying in plain text even though I told you my
reasons for sending in HTML, you can deal with the interpolated hard
carriage return yourself when the inevitable error occurs if you paste the
whole line. Or don't paste the line but instead just change the name value
and that's all.)

This will contain the comma you wanted originally in the content. If you
don't want the comma in the task title, I leave it as an exercise to figure
out how to remove it...
>
> I've had several goes at amending your script without - needless to say
> - much success although I have managed to get the word 'Call" in there.
> (Hoo-ra)

That's a start...

--
Paul Berkowitz
MVP MacOffice
Entourage FAQ Page: <http://www.entourage.mvps.org/faq/index.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 Microsoft Office you are using -
**2004**, X or 2001. It's often impossible to answer your questions
otherwise.

jeremy
Tue Mar 15 11:12:55 CST 2005

Paul Berkowitz <berkowit@spoof_silcom.com> wrote:

> > How do I get the title of the task to read Call <name of contact>,
> > <phone number of contact>?
>
> Since we've already set the variable theText to be:
>
> set theText to "Call " & theName & ", " & thePhone
>
> you can just set the name of the task to that same variable when making the
> task:
>
> set theTask to make new task with properties {name:theText,
> content:theText, category:theCategories, project list:theProjects}

Many thanks.
>
> (Since you insist on replying in plain text even though I told you my
> reasons for sending in HTML, you can deal with the interpolated hard
> carriage return yourself when the inevitable error occurs if you paste the
> whole line. Or don't paste the line but instead just change the name value
> and that's all.)

As far as I know, my newsreader (MacSoup) doesn't do html and - in any
event - one of the things I *can* do is take out the hard carriage
returns.
>
> This will contain the comma you wanted originally in the content. If you
> don't want the comma in the task title, I leave it as an exercise to figure
> out how to remove it...
> >
> > I've had several goes at amending your script without - needless to say
> > - much success although I have managed to get the word 'Call" in there.
> > (Hoo-ra)
>
> That's a start...

Indeed.
Thanks
--
Jeremy
jeremyatcommunityhypenrelationsdotcoetc

Create task from Contact

Re: Create task from Contact by Paul

Re: Create task from Contact by jeremy

Re: Create task from Contact by jeremy

Re: Create task from Contact by Paul

Re: Create task from Contact by jeremy

Re: Create task from Contact by Paul

Re: Create task from Contact by jeremy