How to Handle Lync Meeting Add-In with VBScript ? RRS feed

  • Question

  • Hi together,

    I need a suggestion how to handle the lync 2013 add-in within calender appointments in outlook via VBS. The Button looks like the Lync 2013 symbol with a calender in front when I open a appointment in outlook..

    I already have a VBScript that successfully creates an appointment and just need to add the "Join Online" from the Lync Meeting button. My Script looks like this:

    Option Explicit
    Dim OutApp
    Dim apptOutApp
    Set OutApp = CreateObject("Outlook.Application")
    Set apptOutApp = OutApp.CreateItem(1)
    With apptOutApp
    .Start = "10.09.2015" & " 16:00"
    .Subject = "TEST"
    .Body = "NONE"
    .Location = "Kantine TP - Treffpunkt Büros"
    .Duration = "45"
    .ReminderMinutesBeforeStart = 15
    .ReminderPlaySound = True
    .ReminderSet = True
    .MeetingStatus = 1
    End With
    Set apptOutApp = Nothing
    Set OutApp = Nothing

    Thanks for any suggestions how to get this done !

    Best, Markus

    Wednesday, September 9, 2015 7:21 AM


All replies

  • Hello Markus,

    The Outlook object model doesn't provide anything fir that. You may consider pasting the link into the message body.

    Wednesday, September 9, 2015 7:27 AM
  • Hi Eugene,

    unfortunately the meeting server we use creates an individual meeting link for every single meeting ID when the mentioned button is clicked manually. Looks like this:

    The last part of the URL changes every time... Don't think that pasting the link will work... :(

    Do you have any other idea?

    Wednesday, September 9, 2015 8:00 AM
  • You can run the Lync button programmatically. The CommandBars.Execute method runs the procedure or built-in command assigned to the specified control.
    Wednesday, September 9, 2015 10:19 AM
  • Do you have a VBScript example where you use the method?

    I tried by myself but get a Script Host error ("Object doesn´t support this property or method: 'CommandBars'"). Chance is that I simply don´t use it right and a running example always helps.. :)

    Wednesday, September 9, 2015 1:09 PM
  • What code exactly did you try to use?
    Wednesday, September 9, 2015 1:26 PM
  • I tried to include a execute directly in the With - part of my statement starting with ".CommandBars".

    Since I have to work with the Notepad I don´t have any syntax correction or check. So I tried several variations like

    .CommandBars("Appointment").CommandButton("Lync Meeting").Execute

    all resulting in the same error.

    And additionally I am not very experienced with VBS.. (working in a Data Management department using mainly SAS and Oracle SQL). :) So thank you for your patience !

    Thursday, September 10, 2015 7:23 AM
  • You need to use only the Execute method as shown below:


    Pass a valid idMso value.

    Thursday, September 10, 2015 8:43 AM