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: 81.405  | #53
◀ Vorheriges Beispiel Nächstes Beispiel ▶
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.

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