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: 83.841  | #53
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.

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