VBOffice

Verschieben eines Termins bestätigen

Dieses Makro warnt Sie, bevor Sie einen Termin aus Versehen auf einen anderen Zeitpunkt verschieben.

Zuletzt geändert: 02.10.2014 | Aufrufe: 26.408  | #106
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

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.


tip  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
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.
email  Senden Sie eine Nachricht