VBOffice

Email vorm Senden Kategorien hinzufügen

Zum Thema "Nachrichten vorm Senden prüfen": Dieses Beispiel zeigt einen Hinweis, wenn der Email keine Kategorie zugewiesen ist.

Zuletzt geändert: 24.04.2007 | Aufrufe: 75.184  | #53
◀ Vorheriges Beispiel Nächstes Beispiel ▶
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.

Es geht bei diesem Makro weniger darum, dass der Empfänger ihre Email mit einer Kategorie bekommt, sondern vielmehr darum, dass Sie die gesendete Nachricht in Ihrem eigenen Ordner mithilfe von Stichwörtern leichter wiederfinden. Dieses kleine Skript bringt einen Hinweis, wenn die Kategorie noch fehlt. Sie können das Senden dann abbrechen.


tip  So fügen Sie Makros in Outlook ein
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  On Error Resume Next
  Dim Msg$

  If Len(Item.Categories) = 0 Then
    Msg = "Möchten Sie dem Element noch Kategorien hinzufügen?"
    If MsgBox(Msg, vbYesNo Or vbQuestion) = vbYes Then
      Cancel = True
    End If
  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