• MacTech Network:
  • Tech Support
  • |
  • MacForge.net
  • |
  • Apple News
  • |
  • Register Domains
  • |
  • SSL Certificates
  • |
  • iPod Deals
  • |
  • Mac Deals
  • |
  • Mac Book Shelf

MAC TECH

  • Home
  • Magazine
    • About MacTech in Print
    • Issue Table of Contents
    • Subscribe
    • Risk Free Sample
    • Back Issues
    • MacTech DVD
  • Archives
    • MacTech Print Archives
    • MacMod
    • MacTutor
    • FrameWorks
    • develop
  • Forums
  • News
    • MacTech News
    • MacTech Blog
    • MacTech Reviews and KoolTools
    • Whitepapers, Screencasts, Videos and Books
    • News Scanner
    • Rumors Scanner
    • Documentation Scanner
    • Submit News or PR
    • MacTech News List
  • Store
  • Apple Expo
    • by Category
    • by Company
    • by Product
  • Job Board
  • Editorial
    • Submit News or PR
    • Writer's Kit
    • Editorial Staff
    • Editorial Calendar
  • Advertising
    • Benefits of MacTech
    • Mechanicals and Submission
    • Dates and Deadlines
    • Submit Apple Expo Entry
  • User
    • Register for Ongoing Raffles
    • Register new user
    • Edit User Settings
    • Logout
  • Contact
    • Customer Service
    • Webmaster Feedback
    • Submit News or PR
    • Suggest an article
  • Connect Tools
    • MacTech Live Podcast
    • RSS Feeds
    • Twitter

Moving from Microsoft Office VBA to AppleScript:
MacTech's Guide to Making the Transition

Introduction  |  Table of Contents

Page Prev and Page Next buttons at bottom of the page.

Would you like a hard copy
or PDF of this Guide?

You can get a hard copy sent to you
AND download a PDF now ($19.95)
, or

... just download a PDF ($9.95).

Either way, you get a complimentary
MacTech Magazine Subscription

courtesy of the
Microsoft Mac Business Unit


 

  Magazine Reg. Price:  $50.00 value  
  Guide Reg. Price:  $40.00 value  
  You Save:  over $80.00!  

April, 2007
Page 133



end tell

Essential: if you have an Exchange account, you need to read about multiple address books and calendars in the Make a New Contact and Open Existing Contact sections earlier in this chapter. Everything written there about address books and contacts applies equally to calendars and events.

Create Task from Event (Make New Task)

Note: In Entourage 2004, including v11.2 and later, tasks and notes are only local, not on Exchange servers. But that might well change for Office 2008.

If you've followed along with making a new message, contact, and event, you know how to do it now, so I won't bother with a plain "Make New Task". This script includes making a new task, and discusses the main difference between task and event, namely the different types of reminders they have.

The Entourage menu comes with three scripts provided by Microsoft: Create Event from Message, Create Note from Message, and Create Task from Message. Often it would be handy to Create Task from Event, especially if someone sends you an .ics file from another application that can be imported into Entourage but appears as a calendar event with a fixed time (probably midnight!) when you'd actually prefer to have it as a task.

This script will do it. It is fully commented within rather than at the end this time, except for explanations of the calculation for recurring events and tasks and some unusual and undocumented features. which follow at the end:

tell application "Microsoft Entourage"

     try

          (*get the currently selected event(s)

              (in calendar or custom view) *)

          set theEvents to (get selection)

          if theEvents = {} or class of (item 1 of theEvents) ¬

              is not event then error number -128

     on error

          (*if there are no events selected, or the first item selected

              is not a calendar event, warn the user and then quit*)

          beep 2

          display dialog "First select an event in the calendar or " & ¬

              "a custom view. Then try again" buttons {"Cancel"} ¬

              default button 1 with icon 0

     end try

    

     repeat with theEvent in theEvents

          repeat 1 times

              (* if any subsequent item (in a custom view) selected is

              not a calendar event, warn the user and then quit *)

              if class of theEvent is not event then exit repeat

                  

              (* get the information from the event,

              and store it in variables*)

              set {theTitle, theLocation, theStartTime, hasReminder, ¬

                   theReminder, ifRecurring, theRecurrence, theCategories, ¬

                   theProjects, theNotes, theLinks} to theEvent's {subject, ¬



< Previous Page Next Page>
 
MacTech Only Search:
Community Search:

 
 
 

 
 
 
 
 
  • SPREAD THE WORD:
  • Slashdot
  • Digg
  • Del.icio.us
  • Reddit
  • Newsvine
  • Generate a short URL for this page:



MacTech Magazine. www.mactech.com
Toll Free 877-MACTECH, Outside US/Canada: 805-494-9797
MacTech is a registered trademark of Xplain Corporation. Xplain, "The journal of Apple technology", Apple Expo, Explain It, MacDev, MacDev-1, THINK Reference, NetProfessional, Apple Expo, MacTech Central, MacTech Domains, MacNews, MacForge, and the MacTutorMan are trademarks or service marks of Xplain Corporation. Sprocket is a registered trademark of eSprocket Corporation. Other trademarks and copyrights appearing in this printing or software remain the property of their respective holders.
All contents are Copyright 1984-2010 by Xplain Corporation. All rights reserved. Theme designed by Icreon.
 
Nov. 20: Take Control of Syncing Data in Sow Leopard' released
Nov. 19: Cocktail 4.5 (Leopard Edition) released
Nov. 19: macProVideo offers new Cubase tutorials
Nov. 18: S Stardom anounces Safe Capsule, a companion piece for Apple's
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live