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.414  | #106
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.

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
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.
email  Senden Sie eine Nachricht