Results 1 to 1 of 1

Displaying Outlook's Scheduling Assistant by default from new Appointment from excel

Threaded View

  1. #1
    Forum Contributor
    Join Date
    06-02-2005
    Posts
    100

    Displaying Outlook's Scheduling Assistant by default from new Appointment from excel

    My vba applet creates a new appointment request with the following code with a series of email addresses in column(1) on the activesheet:

    Dim allAddress
    Dim lrow As Integer, x As Integer, i As Integer
    
    lrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row
            
    allAddress = ActiveSheet.Cells(1, 1).Value
    For x = 2 To lrow
         allAddress = allAddress & "; " & ActiveSheet.Cells(x, 1).Value
    Next x
    
    Dim objApplication As Object 'Outlook Application Object
    Set objApplication = CreateObject("Outlook.Application")
    
        Dim objAppointment As Object 'AppointmentItem Item
        Set objAppointment = objApplication.CreateItem(1)
        
            'Appointment properties
            objAppointment.Location = "Steve's Office"
            objAppointment.Start = Now + 1
            objAppointment.Duration = 60
            objAppointment.Subject = "Study Meeting"
            objAppointment.RequiredAttendees = allAddress
    
    objAppointment.display
    Which works just fine as far as I can tell.

    But instead of opening to the Appointment display view I would like it to open to the Scheduling Assistant display view by default instead but nothing I've tried so far seems to want to work.

    And since this will eventually be a distributed solution I would like to avoid having to add the Microsoft Outlook 15.0 Object Library so early binding solutions won't work here.

    Any help would be most appreciated.

    (Edit: I cross-posted this over at the Outlook MSDN site. If a solution or at least some sytax pops up over there I'll add it to here as well).
    https://social.msdn.microsoft.com/Fo...rum=outlookdev

    [edit] Solved. Added:

            'Switch to the Scheduling Assistant tab in that inspector.
            Dim oInsp As Object
            Set oInsp = objAppointment.GetInspector
                oInsp.SetCurrentFormPage ("Scheduling Assistant")
    It was the GetInspector part I was missing entirely.
    Last edited by Ouka; 02-10-2017 at 04:32 PM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 1
    Last Post: 07-06-2014, 07:37 PM
  2. [SOLVED] Automatic Outlook Appointment from Excel Help
    By conwaythibodeaux in forum Excel Programming / VBA / Macros
    Replies: 7
    Last Post: 01-20-2014, 10:59 PM
  3. Conditional Formatting for appointment scheduling.
    By Mr. H2 in forum Excel General
    Replies: 0
    Last Post: 04-09-2013, 09:50 AM
  4. Send outlook appointment to others using excel VBA
    By jjin in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 02-11-2013, 09:04 PM
  5. Adding an appointment to Outlook from Excel with VBA
    By bibleguy125 in forum Excel General
    Replies: 8
    Last Post: 11-29-2012, 09:35 AM
  6. Linking excel to Outlook appointment
    By Slartibartfast in forum Excel - New Users/Basics
    Replies: 0
    Last Post: 04-07-2009, 12:59 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1