none
Confirmation on Meeting update Outlook 2013 RRS feed

  • Question

  • HI.

    Im sorry if I misplace this post it's more like a how-to question, ive searched for the answer but cannot find any.

    i've notice that my outlook doesn't ask for any confimation if i move a appointment in my calendar.

    Is there any setting i can make so outlook will ask "if i really want to move" an appointment to another date/ time with the "Drag drop function" ?




    • Edited by Labrinth1 Thursday, June 19, 2014 5:34 PM
    Thursday, June 19, 2014 5:21 PM

Answers

  • Here is an update.

    It's was not possible to do this as default so I came up with a Macro for doing this.

    Dim WithEvents objCalFolder As Outlook.Folder
    Dim objDelFolder As Outlook.Folder
    
    PrivateSub Application_Startup()
    Set objCalFolder = Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objDelFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
    End Sub
    
    Private Sub objCalFolder_BeforeItemMove(ByVal Item As Object, ByVal MoveTo As MAPIFolder, Cancel As Boolean)
    Dim iret As Integer
    If MoveTo = "calendar" Then
    iret = MsgBox("Move Appointment", vbOKCancel, "Move")
    ElseIf MoveTo = "Removed" Then
    iret = MsgBox("Delete appointment?", vbOKCancel, "Delete")
    End If
    If iret = vbCancel Then
    Cancel = True
    End If
    End Sub

    It's doing what I want confirm on delete or move an appointment..

    Note that the value of MoveTo changes with the language so if your culture is different you need to change the right operator to appropriate culture value.


    • Marked as answer by Labrinth1 Saturday, July 19, 2014 7:19 PM
    • Edited by Labrinth1 Saturday, July 19, 2014 7:25 PM
    Saturday, July 19, 2014 7:18 PM

All replies

  • Hello,

    The current forum is for developers. I'd recommend asking non-programming questions in the Outlook IT Pro Discussions forum instead.

    • Marked as answer by Labrinth1 Thursday, June 19, 2014 5:55 PM
    • Unmarked as answer by Labrinth1 Saturday, July 19, 2014 7:12 PM
    Thursday, June 19, 2014 5:38 PM
  • Here is an update.

    It's was not possible to do this as default so I came up with a Macro for doing this.

    Dim WithEvents objCalFolder As Outlook.Folder
    Dim objDelFolder As Outlook.Folder
    
    PrivateSub Application_Startup()
    Set objCalFolder = Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objDelFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
    End Sub
    
    Private Sub objCalFolder_BeforeItemMove(ByVal Item As Object, ByVal MoveTo As MAPIFolder, Cancel As Boolean)
    Dim iret As Integer
    If MoveTo = "calendar" Then
    iret = MsgBox("Move Appointment", vbOKCancel, "Move")
    ElseIf MoveTo = "Removed" Then
    iret = MsgBox("Delete appointment?", vbOKCancel, "Delete")
    End If
    If iret = vbCancel Then
    Cancel = True
    End If
    End Sub

    It's doing what I want confirm on delete or move an appointment..

    Note that the value of MoveTo changes with the language so if your culture is different you need to change the right operator to appropriate culture value.


    • Marked as answer by Labrinth1 Saturday, July 19, 2014 7:19 PM
    • Edited by Labrinth1 Saturday, July 19, 2014 7:25 PM
    Saturday, July 19, 2014 7:18 PM