Verschieben eines Termins bestätigen

Wenn Sie in der Kalenderansicht einen Termin versehentlich verschieben und das nicht merken, kann das böse folgen haben. Das folgende Makro gibt Ihnen die Möglichkeit, den Vorgang abzubrechen.

Kopieren Sie den Code ins Modul DieseOutlookSitzung und starten Sie Outlook dann neu.

  So fügen Sie Makros in Outlook ein

Private WithEvents m_Exp As Outlook.Explorer

Private Sub Application_Startup()
  Set m_Exp = Application.ActiveExplorer
End Sub

Private Sub m_Exp_BeforeItemPaste(ClipboardContent As Variant, _
  ByVal Target As MAPIFolder, Cancel As Boolean _
)
  Dim Folder As Outlook.MAPIFolder
  Dim Msg As String

  Msg = "Sie sind im Begriff, einen Termin zu ändern. Fortfahren?"

  Set Folder = m_Exp.CurrentFolder
  If Folder.DefaultItemType = olAppointmentItem Then
    Cancel = (MsgBox(Msg, vbYesNoCancel) <> vbYes)
  End If
End Sub