Outlook - Apply VBA code to appointments when selected but not opened

[JuliannaDemp]

I'd like to modify this vba code to run on appointments that are selected, but not opened.


Option Explicit
Sub InsertConfCallInfo()
Dim myItem As AppointmentItem
On Error GoTo lbl_Exit
Set myItem = ActiveInspector.CurrentItem
myItem.Location = "CALL: (866) 555-1212 / CODE: 9854101812"
'myItem.Display 'Not required as the item is already displayed.
lbl_Exit:
Exit Sub
End Sub

[gmayor]

The following should work

Sub InsertConfCallInfo()
Dim myItem As AppointmentItem
On Error Resume Next
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set myItem = ActiveInspector.currentItem
Case olExplorer
Set myItem = Application.ActiveExplorer.Selection.Item(1)
End Select
myItem.Location = "CALL: (866) 555-1212 / CODE: 9854101812"
myItem.Save
lbl_Exit:
Set myItem = Nothing
Exit Sub
End Sub

[JuliannaDemp]

It works! Thank you soooo much!