All calendar events from outlook and transferring to an excel file using apple script - Stack Overflow

admin管理员组

文章数量:1026989

first time I am using apple script and it isn't running the excel file part, could anyone point me in the right direction, it keeps point to the start time. I am trying to achieve get the event meetings and appointments for the calendar into a file on excel.

tell application "Microsoft Outlook"
    -- Get all calendars in Outlook
    set allCalendars to calendars
   
    -- Choose a specific calendar (the first one as an example)
    set selectedCalendar to item 1 of allCalendars
   
    -- Get all calendar events in the selected calendar
    set calendarEvents to calendar events of selectedCalendar
   
    -- Start Excel
    tell application "Microsoft Excel"
        activate
        set newWorkbook to make new workbook
        set newSheet to active sheet of newWorkbook
       
        -- Write headers
        set value of cell "A1" of newSheet to "Meeting Name"
        set value of cell "B1" of newSheet to "Date"
        set value of cell "C1" of newSheet to "Reoccurrence"
        set value of cell "D1" of newSheet to "Attendees"
       
        -- Write event details starting from the second row
        set rowIndex to 2
        repeat with anEvent in calendarEvents
            set eventName to subject of anEvent
            set eventDate to start time of anEvent
            set isRecurring to recurring of anEvent
            set attendeeList to ""
           
            -- Get attendees
            if (exists required attendees of anEvent) then
                set requiredAttendees to required attendees of anEvent
                repeat with anAttendee in requiredAttendees
                    set attendeeList to attendeeList & name of anAttendee & ", "
                end repeat
                -- Remove the trailing comma and space
                if (length of attendeeList > 2) then
                    set attendeeList to text 1 thru -3 of attendeeList
                end if
            end if
           
            -- Write details to Excel
            set value of cell ("A" & rowIndex) of newSheet to eventName
            set value of cell ("B" & rowIndex) of newSheet to (eventDate as string)
            set value of cell ("C" & rowIndex) of newSheet to (isRecurring as string)
            set value of cell ("D" & rowIndex) of newSheet to attendeeList
           
            set rowIndex to rowIndex + 1
        end repeat
    end tell
end tell

-- Notify user that the export is complete
display dialog "Export to Excel completed!" with title "Success" buttons {"OK"} default button "OK"

Explanation:

• Meeting Name (A): The subject of the meeting.
• Date (B): The start date and time of the meeting.
• Recurrence (C): Indicates if the meeting is recurring (true or false).
• Attendees (D): A comma-separated list of required attendees.

first time I am using apple script and it isn't running the excel file part, could anyone point me in the right direction, it keeps point to the start time. I am trying to achieve get the event meetings and appointments for the calendar into a file on excel.

tell application "Microsoft Outlook"
    -- Get all calendars in Outlook
    set allCalendars to calendars
   
    -- Choose a specific calendar (the first one as an example)
    set selectedCalendar to item 1 of allCalendars
   
    -- Get all calendar events in the selected calendar
    set calendarEvents to calendar events of selectedCalendar
   
    -- Start Excel
    tell application "Microsoft Excel"
        activate
        set newWorkbook to make new workbook
        set newSheet to active sheet of newWorkbook
       
        -- Write headers
        set value of cell "A1" of newSheet to "Meeting Name"
        set value of cell "B1" of newSheet to "Date"
        set value of cell "C1" of newSheet to "Reoccurrence"
        set value of cell "D1" of newSheet to "Attendees"
       
        -- Write event details starting from the second row
        set rowIndex to 2
        repeat with anEvent in calendarEvents
            set eventName to subject of anEvent
            set eventDate to start time of anEvent
            set isRecurring to recurring of anEvent
            set attendeeList to ""
           
            -- Get attendees
            if (exists required attendees of anEvent) then
                set requiredAttendees to required attendees of anEvent
                repeat with anAttendee in requiredAttendees
                    set attendeeList to attendeeList & name of anAttendee & ", "
                end repeat
                -- Remove the trailing comma and space
                if (length of attendeeList > 2) then
                    set attendeeList to text 1 thru -3 of attendeeList
                end if
            end if
           
            -- Write details to Excel
            set value of cell ("A" & rowIndex) of newSheet to eventName
            set value of cell ("B" & rowIndex) of newSheet to (eventDate as string)
            set value of cell ("C" & rowIndex) of newSheet to (isRecurring as string)
            set value of cell ("D" & rowIndex) of newSheet to attendeeList
           
            set rowIndex to rowIndex + 1
        end repeat
    end tell
end tell

-- Notify user that the export is complete
display dialog "Export to Excel completed!" with title "Success" buttons {"OK"} default button "OK"

Explanation:

• Meeting Name (A): The subject of the meeting.
• Date (B): The start date and time of the meeting.
• Recurrence (C): Indicates if the meeting is recurring (true or false).
• Attendees (D): A comma-separated list of required attendees.

本文标签： All calendar events from outlook and transferring to an excel file using apple scriptStack Overflow